insertar un archivo en un campo blob desde delphi

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

[thelibmx]

muchas gracias sitrico, pues ahorita no puedo probar el codigo por que estoy en mi casa pero llegando al trabajo lo pruebo y te digo que tal, veo que el archivoblob, esta asignado a un memotext, supongo que eso es para subir un archivo de texto, me parece que si quisiera hacerlo con cualquier tipo de archivo tendria que ser un loadstream, ojala puedas postear el otro codigo, de antemano muchas gracias por la atencion y pues por la ayuda

[[sitrico]]

No pude enviarlo hoy pero encntré este ejemplo:

Código Delphi [-]
procedure TForm1.loadPic;
var
  jpeg: TJPEGImage;
  Stream: TMemoryStream;
  BlobField: TBlobField;
begin
  BlobField := table1.DataSet.FieldByName('Bild') as TBlobField;
  jpeg := TJPEGImage.Create;
  try
    if  (Image1.Picture.Graphic is TJPegImage) then  begin
       jpeg.Assign (ImageFoto.Picture.Bitmap);
    end;
    Stream := TMemoryStream.Create;
    try
       jpeg.SaveToStream (Stream);
      DataSourceForm.DataSet.Edit;
      BlobField.LoadFromStream (Stream);
    finally
      Stream.Free;
    end;
  finally
    jpeg.Free;
  end;
end;

El TBlobField es más o menos equivalente al Querygestion.ParamByName(BlobField).

[thelibmx]

[quote=sitrico;252575]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




quote]
con ese codigo manda un mensaje de "table is read only" ya verifique en las propiedades del ttable y la propiedad read only esta desactivada, cheque en el tdatabase haber si podria haber alguna propiedad ahi y no encontre algo que pudiera afectar, alguna sugerencia o comentario que me pudieran dar?


gracias

[[Chris]]

Empezado por thelibmx

con ese codigo manda un mensaje de "table is read only" ya verifique en las propiedades del ttable y la propiedad read only esta desactivada, cheque en el tdatabase haber si podria haber alguna propiedad ahi y no encontre algo que pudiera afectar, alguna sugerencia o comentario que me pudieran dar?


gracias

Creo que necesitarás un TUpdateSQL si es que estás utilizando un componente TQuery.

Saludos.

[thelibmx]

en efecto si estoy utilizando un tquery.

El TUpdateSQL es un componente que no he ocupado aun, lo uso en sustitucion del tquery? o como lo pongo en marcha? eh buscado un poco en los foros y creo que lo tendria qe ligar al t query pero no se muy bien, sigo buscando sobre tupdatesql, si pones un poco de codigo me serviria de ayuda a entender mejor agradezco tu ayuda D&W, vaya que estoy sufriendo con subir archivos a la base de datos

[[Chris]]

primero, el TUpdateSQL tiene es un componente que normalmente, se encuentra dentro de la misma paleta que el TQuery. El TQuery tiene una propiedad lladada UpdateObject, en esta es donde relacionas el TQuery con el TUpdateSQL.

Ahora, tendrás que ingresar secuencias SQL en el TUpdateSQL, para esto haz doble-clic en modo de diseño sobre el componente TUpdateSQL, donde se te mostrará una ventana en donde las podrás ingresar. Trae opciones para que el sistema te las genere automáticamente. Puedes buscar más ayuda al respecto en la ayuda de Delphi o aca en los foros.

Saludos.

[thelibmx]

ya agregue el tupdatesql, modifique un poco el codigo puse entonces mi codigo es asi

 
procedure TFrmenuu.BitBtn1Click(Sender: TObject);
begin
if OpenDialog.Execute then
begin
Olecontainer1.CreateObjectFromFile(PChar(OpenDialog.FileName),false);
vertbar.max:= Olecontainer1.Height;
horzbar.max:= Olecontainer1.Height;
Panelcontenedor.Visible:=true;
showmessage(OpenDialog.FileName);
Querygestion.Active:=true;
Querygestion.Insert;
QuerygestionLlave.Value :=strtoint(Edit1.Text);
QuerygestionNOMBRE.Value :=tdEditAsunto.Text;
QuerygestionARCHIVOBLOB.loadFromFile(OpenDialog.FileName);
Querygestion.Post;
showmessage('agregado');
//fin del boton de carga de documento
end;
end;

sorry por usar esas etiquetas pero no habia etiquetas de delphi
ese codigo genera este error:
general sql error. Error while executing the query; ERROR: no existe el tipo <<lo>>.
si alguien tiene una pista se los agradecere