Показать сообщение отдельно
  #6  
Старый 31.01.2013, 17:21
Аватар для vladimirse
vladimirse vladimirse вне форума
Прохожий
 
Регистрация: 16.01.2013
Сообщения: 37
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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;   
Ответить с цитированием