Recibe un cordial saludo.
Buscando por el foro encontre esta respuesta a mis requerimientos, roman dejo unas rutinas realmente interesantes pero no me funcionan aparecen errores de acceso, estoy trabajando con delphi 2007 mysql y zeos trabajo con zquery pero tambien probe con ztable y me aparece el mismo error.
la rutina que trabajo es la siguiente
Código:
procedure Tcusuario.DataSource1DataChange(Sender: TObject; Field: TField);
begin
if zquery1.FieldByName('foto').AsVariant<> null then
begin
Image1.Picture.LoadFromFile('c:\biodyn\imagen.jpg');
image1.Stretch:=true;
PictureToField(image1.Picture, Zquery1.FieldByName('foto'));
end;
la idea es que si no hay foto en la base de datos grabe una imagen de muestra
pero me aparece el siguiente error.
access violation at 0X7c925d4e write of address 0x00030fb0;
Esto por que puede ser el campo foto en la tabla es del tipo blob
Espero me puedan ayudar.