É claro meu camarada, não é abuso nenhum, aliás, é uma correção, haja
vista eu achava que já a tinha enviado.
procedure ExibeFoto(DataSet : TDataSet; BlobFieldName : String;
ImageExibicao : TImage);
var
BlobStream : TStream;
JpegImage : TJPEGImage;
bitmap:TBitMap;
begin
BlobStream :=
DataSet.CreateBlobStream(DataSet.FieldByname(BlobFieldName), bmRead);
if BlobStream.Size <> 0 then
begin
JpegImage := TJPEGImage.Create;
try
JpegImage.LoadFromStream(BlobStream);
ImageExibicao.Picture.Assign(JpegImage);
ImageExibicao.Center:=true;
finally
BlobStream.Free;
JpegImage.Free;
end;
end
else
begin
Bitmap:=TBitMap.Create;
Try
Bitmap.Width:=1;
Bitmap.Height:=1;
ImageExibicao.Picture.Assign(BitMap);
ImageExibicao.Center:=false;
finally
Bitmap.Free;
BlobStream.Free;
end;
end;
end;
Fraterno abraço
Carlos
