insertar un archivo en un campo blob desde delphi

[[Caral]]

lo he tratado de arreglar pero no se ve bien
Si algun moderador lo arregla, por favor
Esta en el siguiente post.
Gracias

[[Caral]]

Hola
Y asi:

Código Delphi [-]var blob:TBlobStream;
blobf:TBlobField;
fs:tstream;
begin

Este es el ejemplo completo

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var
Stream1: TBlobStream;
Stream2: TStream;
begin
Stream1 := TBlobStream.Create(Table1Notes, bmRead);
try ClientDataSet1.Edit; { here’s a different way to create a blob stream }
Stream2 := ClientDataSet1.CreateBlobStream(ClientDataSet1.FieldByName('Remarks'), bmReadWrite);
try
Stream2.CopyFrom(Stream1, Stream1.Size); ClientDataSet1.Post;
finally
Stream2.Free;
end;

finally Stream1.Free;
end;
end;



Insisto, no se, pero esta en el help
Saludos

[[Caral]]

Hola
Ya consulte a mi Maestro Egostar y en el help sale esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);

var
  Stream1, Stream2 : TIBBlobStream;
begin
  Stream1 := TIBBlobStream.Create(IBTable1Notes);
  try
    Stream1.Mode = bmRead;
    IBTable2.Edit;
    { here’s a different way to create a blob stream } 
    { note that with this one, we don’t need a try.. finally clause }
    { because we are not responsible for freeing the stream }
    Stream2 := IBTable2.CreateBlobStream(IBTable2.FieldByName('Remarks'), bmReadWrite);
    Stream2.CopyFrom(Stream1, Stream1.Size);

    IBTable2.Post;
  finally
    Stream1.Free;
  end;
end;

Ahi lo dice todo.
Saludos

[thelibmx]

no se si sea mucho abusar pero podrias explicar un poco el codigo ?

[Delfino]

La cosa es mas sencilla q esto :
un campo Blob persistente tiene los metodos LoadFromFile y LoadFromStream, o bien haces un cast a la clase TBlobField, si el campo no es persistente,

Código Delphi [-]
CampoBlob.LoadFromFile(..);
(Dataset.FieldByName('NombreBlob')  as TBlobField).LoadFromSream(..);

te quedas con el q mas te conviene de los dos..

[thelibmx]

Empezado por Delfino

La cosa es mas sencilla q esto :
un campo Blob persistente tiene los metodos LoadFromFile y LoadFromStream, o bien haces un cast a la clase TBlobField, si el campo no es persistente,

Código Delphi [-]
CampoBlob.LoadFromFile(..);
(Dataset.FieldByName('NombreBlob') as TBlobField).LoadFromSream(..);




te quedas con el q mas te conviene de los dos..

ok, gracias delfino, mira me da pena decir esto pero soy super nuevo en eso de los campos blob, mas o menos intento entender como es que se lleva ese proceso pero no me queda claro, cuando pones campoblob.loadfromstream campoblob se refiere al nombre del campo donde se va insertar el archivo ¿? o a que, yo ocupo un tquery para insertar los datos, me es util ese query o tengo que agregar algun componente¿? eso es lo que no me queda claro, o donde debo agregar la linea para que suba el archivo a la hora de hacer el insert, mi codigo es el que esta arriba, no se si puedas apoyarme un poco o darme una pista, de antemano gracias por tu ayuda

[[sitrico]]

Bueno mira no se si ayude o complique la cosa a estas alturas pero te recomiendo lo siguiente:

Modifica la sentencia SQL asi:

Original:

Código Delphi [-]
Querygestion.SQL.add('insert into tabla_prueba(llave,nombre,archivoblob) values '+
      Edit1.Text+','''+tdEditAsunto.Text+''','+QuotedStr(blob)+')');

Modificada:

Código Delphi [-]
Querygestion.SQL.add('insert into tabla_prueba(llave,nombre,archivoblob) values '+
      '(:llave,:nombre,:archivoblob)');

De esa manera usarás parametros para manipular los datos en SQL (el nombre del campo precedido de dos puntos ":")

Luego (creo) que puedes hacer:

Código Delphi [-]
Querygestion.ParamByName('llave').asinteger := unentero;
Querygestion.ParamByName('nombre').AsString := uncharacter
Querygestion.ParamByName('archivoblob').AsString := memo.text

Tambien tengo por ahi un codigo para el loadfromfile y loadfromstream pero no en este equipo prueba y si te sirve mañana te puedo poner más información.