HOLA:
Tengo un pequeño problema. Tengo un query que obtiene la clave de una persona y su fotografía. Lo que busco es que me muestre la foto de la persona...
Es muy simple pero no se que me falta. Intenté con el DBimage y el Datasource pero me dibuja solo la mitad de la imagen.
Probé codigo que encontré en Internet pero algo me esta faltando... me marca error en la linea donde le asigno la imagen al objeto del formulario.
Este es el codigo que probé, si me pueden ayudar a ver donde esta el error... De antemano gracias!
Var
Stream: TMemoryStream;
Jpg: TJpegImage;
Begin
Stream := nil;
Jpg := nil;
query1.SQL.Clear;
query1.Close;
query1.SQL.Text:='select * from foto where foto_cve='''+Edit1.text+'''';
query1.Open;
try
Stream := TMemoryStream.Create;
TBlobField(query1.FieldByName('FOTO_IMAGEN')).SaveToStream(Stream);
if Stream.Size > 0 then begin
Stream.Position := 0;
Jpg := TJpegImage.Create;
Jpg.LoadFromStream(Stream);
Image1.Picture.Assign(Jpg);
Aqui marca error
...
...
... etc.