Cita:
Empezado por koiji
...
y llego a la imagen en la BD PNG metira el error JPEG error#53 y el codigo que puse el que estoy utilizando que me tira el error gracias por la colabroracion
|
Un caso similar se trato en este hilo:
Recuperando una imagen de SQL Server da error, el enlace es al foro C++ pero el problema es el mismo y también la solución.
Así que en Delphi y usando el evento
OnDataChange del
TDataSource para mostrar campos con diferentes tipos de imágenes en un
TImage sería:
Código Delphi
[-]
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
G: TGraphic;
B: TBitmap;
begin
case IBDataSet1.FieldByName('TIPO_IMAGEN').AsInteger of
0: G:= TBitmap.Create;
1: G:= TJPEGImage.Create;
2: G:= TPNPObject.Create;
end;
B:= TBitmap.Create;
try
G.Assign(TblobField(IBDataSet1.FieldByName('IMAGEN')));
B.Assign(G);
Image1.Picture.Bitmap.Assign(B);
finally
G.Free;
B.Free;
end;
end;
Recuerda usar los TAG's cuando incluyas código en tus mensajes de este modo:
Saludos: