Saludos Compañeros, estoy teniendo problemas para cargar una imagen en un TJvImage desde un campo BLOB en la base de datos, lo mas cerca que he podido encontrar en el foro es esto:
Código Delphi
[-]Var B: TJPEGImage;
MS: TMemoryStream;
begin
B := TJPEGImage.Create;
MS := TMemoryStream.Create;
ZTable1FOTO2.SaveToStream(MS);
B.LoadFromStream(MS);
Foto.Picture.Assign(B);
MS.Free;
B.Free;
end;
Pues no me funciona, me tira este error:
Cita:
---------------------------
Debugger Exception Notification
---------------------------
Project TimerPunch.exe raised exception class EJPEG with message 'JPEG error #42'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
|
Existe una mejor manera una Imagen BLOB en un TJvImage o TImage?, Trabajo con Delphi 7 y Firebird 2.0.
Saludos.