Cita:
Empezado por Casimiro Notevi
No, amigo ElMug, creo que no te enteras o no te explicas. ¿Realmente has leído lo que hemos escrito?.
|
Olvidalo, Casimiro.
Aqui les dejo el codigo que les menciono en el mensaje anterior.
Con este procedimiento, se pueden leer imagenes archivadas en columna tipo Blob, que puedan ser BitMap, o JPEG y SIN LA NECESIDAD de tener otra columna donde se almacena el tipo de imagen, como he visto que lo hacen aqui.
Tampoco es necesario descifrar el dato Blob para escudriñar bits o bytes y ver si es bitmap o JPEG.
El desarollo es, pues, novedoso, lo desarrolle hace un par de dias, y aqui se los comparto:
Código:
// var
// BlobField: TField;
// BS: TStream;
with SQLQuery1 do
begin
BlobField := FieldByName('Pic'); {'Pic' is name of column with photo}
BS := CreateBlobStream(BlobField,bmRead);
Image1.Picture.Graphic:= TJpegImage.Create; {assume is Jpeg}
Try
Image1.Picture.Graphic.LoadFromStream(BS); {error if not Jpeg}
Except {repeat steps for BitMap}
BS.Free;
Image1.Picture.Graphic:= nil; {empty}
BlobField := FieldByName('Pic'); {'Pic' is name of column with photo}
BS := CreateBlobStream(BlobField,bmRead);
Image1.Picture.Graphic:= TBitMap.Create; {bitmap}
Image1.Picture.Graphic.LoadFromStream(BS);
end; {Try}
BS.Free;
end; {with SQLQuery}
Ojala lo encuentres util.