Цитата:
Сообщение от M.A.D.M.A.N.
А зачем вообще использовать DBImage?
Можно же из блоба вычитать битмап, загрузить в обычный Image как image.bitmap.loadfromstream(fieldbyname('КОРТИНКО' ).AsStream).
|
Я их почти так и вытаскиваю )
Код:
procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
BlobStream : TMemoryStream;
Jpeg: TJPEGImage;
begin
BlobStream:=TMemoryStream.Create;
TBlobField(ZQuery1.FieldByName('pic')).SaveToStream(BlobStream);
if BlobStream.Size > 0 then
begin
Jpeg:=TJPEGImage.Create;
BlobStream.Position:=0;
Jpeg.LoadFromStream(BlobStream);
DBImage1.Picture.Assign(Jpeg);
end
else
Label1.Caption:='Картинка отсутствует!';
Jpeg.Free;
BlobStream.Free;
end;