Guardar archivos en sql2000

[[kurono]]

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

[Casimiro Notevi]

Campos BLOB

[[kurono]]

no veo definido ese tipo de datos en SQL 2000

[Casimiro Notevi]

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.

[[kurono]]

ok probare luego les cuento

[[kurono]]

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

[[kurono]]

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

[[nlsgarcia]]

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.

[[kurono]]

analizare los codigo luego les cuento cual me funciono

[[kurono]]

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

[[nlsgarcia]]

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

[[kurono]]

hare algunas prueba con el codigo luego te cuento

[[kurono]]

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

[[kurono]]

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

[[nlsgarcia]]

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.

Tomado del libro : Microsoft SQL Server 2000 Bible de Paul Nielsen, Editorial Wiley.
"SQL Server can store any binary object up to 2GB, which definitely qualifies as a binary large object (blob) in an image column"

Tomado del link 2:

"SQL BOL (Books On Line) gives a good example of the three binary types:

-Use Binary when the sizes of the column data entries are consistent (and less than 8,000 bytes).

-Use varBinary when the sizes of the column data entries vary considerably (and are less than 8,000 bytes).

-Use varBinary(max) when the column data entries exceed 8,000 bytes.

-For SQL 2000, use the Image data type. However, be aware that Microsoft has stated the Image data type is for backwards compatibility only, and may be discontinued on a future version."

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

Espero sea útil

Nelson.

[[kurono]]

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

[[nlsgarcia]]

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.

[[kurono]]

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;