insertar un archivo en un campo blob desde delphi

[thelibmx]

Empezado por Caral

Hola
Ya sabes, no me hagas mucho caso por que no entiendo muy bien tu codigo, pero lo que veo es esto.

si mira en pocas palabras lo que hago es que cuando yo aprieto un boton, se abre un opendialog, en el escojo un archivo, y ese archivo cualquiera que sea lo asigno a un olecontainer para visualizarlo, puede ser excel, word, pdf,powert point, etc. entonces yo quiero que ese archivo se suba a una base de datos que tengo, con otros datos que tengo en unos cuadros de texto, yo agrego datos a la base de datos atraves de un query, lo que no se es como agregar el archivo a la base de datos, el codigo que utilizo para eso es asi

Código Delphi [-]
Querygestion.Close;
Querygestion.SQL.Clear;
Querygestion.SQL.add('insert into tabla_prueba(llave,nombre) values('+Edit1.Text+','''+tdEditAsunto.Text+''')'); 
Querygestion.ExecSQL;
showmessage('agregado');

con eso inserto los datos, pero el archivo que seleccione lo quiero insertar en la misma tabla en un campo que se llama 'archivobob', pero eso es lo que no se, quisiera si se pudiera, hacer algo mas o menos asi para poder insertar el archivo tambien

Código Delphi [-]
Querygestion.Close;
Querygestion.SQL.Clear;
Querygestion.SQL.add('insert into tabla_prueba(llave,nombre,archivoblob) values('+Edit1.Text+','''+tdEditAsunto.Text+''','+archivoquequierosubir+')'); 
Querygestion.ExecSQL;
showmessage('agregado');

se me complica lo de subir el archivo, los codigos que hay en los foros, he intentado probarlos y pues no los comprendo bien, pues no obtengo resultados les agradeceria mucho si me pudieran ayudar

[[Caral]]

Hola
Yo de estas cosas no se, pero si el nombre blob es una variable de tipo tstream (blob:TStream; ), no se tendria que concatenar tambien?

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

No se, la verdad es solo un pensamiento.
Saludos

[thelibmx]

Empezado por Caral

Hola
Yo de estas cosas no se, pero si el nombre blob es una variable de tipo tstream (blob:TStream; ), no se tendria que concatenar tambien?


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

si pero marca error de tipo de datos
[Pascal Error] frmenu.pas(198): E2010 Incompatible types: 'string' and 'TStream'
alguna sugerencia?

[[Caral]]

Hola
Pues parece que el campo blob es string, recuerda, no se de esto.
Tal vez asi:

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

Saludos

[thelibmx]

agradesco tu ayuda en verdad, yo estoy mas perdido, pero algo bueno siempre se aprende, se supone que blob esta declarado como Tstream, aun con el QuotedStr sigue marcando el mismo error, creo que hay algo que se esta pasando o tal ves es la manera incorrecta de hacerlo

Código Delphi [-]
procedure TFrmenuu.BitBtn1Click(Sender: TObject);
var
blob:TStream;
blobf:TBlobField;
fs:tstream;
begin
if OpenDialog.Execute then
begin
Olecontainer1.CreateObjectFromFile(PChar(OpenDialog.FileName),false);
vertbar.max:= Olecontainer1.Height;
horzbar.max:= Olecontainer1.Height;
Panelcontenedor.Visible:=true;
Querygestion.Close;
Querygestion.SQL.Clear;
Querygestion.SQL.add('insert into tabla_prueba(llave,nombre,archivoblob) values('+Edit1.Text+','''+tdEditAsunto.Text+''','+QuotedStr(blob)+')');
Querygestion.ExecSQL;
//Querygestion.Open;
showmessage('agregado');

blob:=querygestion.CreateBlobStream(querygestion.DataSource.DataSet.FieldByName('archivoblob'), bmwrite);
  //
  try
    blob.Seek(0, soFromBeginning);
    with TFileStream.Create(OpenDialog.FileName, fmCreate) do
      try
        CopyFrom(blob, blob.Size)
      finally
        Free
      end;
  finally
    blob.Free
  end;
end;
end;

no pense que fuera tan complicado subir un archivo a una base de datos

[[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