Guardar archivos en sql2000
 

hola amigos quisiera saber cual es el tipo de campo para guardar cualquier tipo de datos en sql2000 osea necesito estos tipo de archivos exe,pdf,mp3,zip etc

e leido este hilo http://www.clubdelphi.com/foros/showthread.php?t=53976 donde muestra supuestamente como hacerlo pero no me funciona no guarda nada

Campos BLOB

no veo definido ese tipo de datos en SQL 2000

Los BLOB son (Binary Large Objects), así que lo mismo en MS SQL se llaman binary o algo así.

No hay más que hacer una sencilla búsqueda en google:
BINARY VARBINARY
BINARY VARYING
BIT VARYING 1 byte por carácter Se puede almacenar cualquier tipo de datos en un campo de este tipo. Los datos no se traducen (por ejemplo, a texto). La forma en que se introducen los datos en un campo binario indica cómo aparecerán al mostrarlos.

ok probare luego les cuento

E cambiado el tipo de datos a binary y escribe el siguiente codigo para cargar un archivo y me da error

Código Delphi [-]
 
begin
  if Open.Execute then
     begin
        dbedit4.text:=open.fileName;
        TBlobField(ADOTable1.FieldByName('archivos')).LoadFromFile(Open.FileName);
    end;
   else
    Open.Destroying;
end;

el error me dice invalid class typecast

alguien tiene algun ejemplo de como guardar un archivo en sql2000 ya que no me funcionan lo que estoy haciendo

kurono,

Revisa estos links:

http://www.clubdelphi.com/foros/show...ht=TBlobStream

http://www.clubdelphi.com/foros/show...highlight=BLOB

http://www.clubdelphi.com/foros/show...highlight=BLOB

http://www.onlinedelphitraining.com/...ters/blobs.htm

http://delphi.about.com/od/database/a/record2blob.htm

http://www.scalabium.com/faq/dct0141.htm

Los metodos de manejo de campos BLOB descritos en los links son aplicables en general a cualquier tipo de BD.

Espero sea util :)

Nelson.

analizare los codigo luego les cuento cual me funciono

amigos les cuento que e probado varios codigo de los link los cuales en si son todos parecidos y en todos el codigo me da error en una linea del codigo

Código Delphi [-]

procedure guardar(FileName, FieldName: string);
var
   blob, myFileStream : TStream;
begin
   blob := cds.CreateBlobStream(cds.FieldByName(FieldName), bmWrite);
  try
     blob.Seek(0, soFromBeginning);
     myFileStream := TFileStream.Create(FileName, fmShareDenyWrite);
  try
     blob.CopyFrom(myFileStream, myFileStream.Size) ;
  finally
     myFileStream.Free ;
 end;
   finally
     blob.Free ;
 end;
end;

la parte tachada en negrita es donde me da el error y el cds lo declare como TDataSet

Kurono,

Revisa este fragmento de código del link : http://delphi.about.com/od/database/a/record2blob.htm

Código Delphi [-]
var
    User : TUser;
    blobF : TBlobField;
    bs : TStream;
 begin
    User.Name := edName.Text;
    User.NumberOfQuestions := StrToInt(edNOQ.Text) ;
    User.CanAsk := chkCanAsk.Checked;
 
    myTable.Insert;
 
    blobF := myTable.FieldByName('data') as TBlobField;
    bs := myTable.CreateBlobStream(blobF, bmWrite) ;
    try
      bs.Write(User,SizeOf(User)) ;
    finally
      bs.Free;
    end;
 end;

¿Ves como definen el campo blobF como un TBlobField antes de usarlo?. Creo que también es válido definirlo así:

Código Delphi [-]
bs := myTable.CreateBlobStream(myTable.FieldByName('data') as TBlobField, bmWrite);

Espero sea útil :)

Nelson

hare algunas prueba con el codigo luego te cuento

amigo nlsgarcia no me funciona de ninguna manera crees que sea algo con la base de datos en sql2000 el campo lo tengo declarado binary incluso lo declare varbinary y nada

hola amigos les cuento que hise prueba con una base de datos acces y todo funciona bien pero en sql2000 no funciona sera porque en access el campo si se declara como blod mientras que en sql2000 se declara como binary

Kurono,

Revisa estos links:

1- http://www.dbforums.com/microsoft-sq...er-2000-a.html

2- http://www.databasejournal.com/featu...ver-Part-2.htm

El tipo de campo blob en SQL Server 2000 es Image.

Te anexo una tabla del mencionado libro que define el campo blob Image.

Espero sea útil :)

Nelson.

amigo nlsgarcia efectivamente declarando el campo como image ya puedo grabar archivos en la base de datos con sql2000 muchas gracia por tu ayuda aun asi leere tus link para documentarme mejor

Kurono,

Gracias por tus comentarios :)

Cuando puedas coloca en el post las rutinas de lectura y grabación del campo blob en SQL Server 2000 para que sirvan de ejemplo de como procesar este tipo de datos.

Nelson.

el codigo que utilize fue el mismo que mencione al principio del hilo

Código Delphi [-]
// De archivo en disco a campo BLOB 
TBlobField(ADOTable1.FieldByName('pdf')).LoadFromFile('archivo.pdf'); 
 // De campo BLOB a archivo en disco 
TBlobField(ADOTable1.FieldByName('pdf')).SaveToFile('archivo.pdf');

este es un ejemplo de como lo utilize en mis codigo de pruebas

para guardar en la base de datos

Código Delphi [-]
 
begin
  try
     TBlobField(ADOTable1.FieldByName('archivos')).LoadFromFile(Open.FileName);
   finally
     ADOTable1.Post;
     ShowMessage('archivo guardado');
   end;
end;

y este es para guardar de la base de datos al disco

Código Delphi [-]
 
begin
  TBlobField(ADOTable1.FieldByName('archivos')).SaveToFile('C:\'+ DBEdit1.Text+'.exe');
  ShowMessage('archivo guardado');
end;