Показать сообщение отдельно
  #22  
Старый 07.03.2011, 07:16
Kapitoshka438 Kapitoshka438 вне форума
Начинающий
 
Регистрация: 09.11.2009
Сообщения: 145
Репутация: 238
По умолчанию

Цитата:
Сообщение от jekahm
...
Также попытался вывести изображение (но уже в другой Image) с помощью
Код:
Image2.Picture.Graphic.LoadFromStream(Stream);
из потока, который использовал при добавлении изображения, но все равно ничего не происходит!
Такое не пройдет.

Цитата:
procedure TForm1.Button3Click(Sender: TObject);
var MS : TFileStream;
Stream: TMemoryStream;
begin
DataSource1.DataSet.Open;
DataSource1.DataSet.Insert;
Stream := TMemoryStream.Create;
Image1.Picture.Graphic.SaveToStream(Stream);
TBlobField(ADOQuery1.FieldByName('photo')).LoadFro mStream(Stream);
Stream.Free;
end;
А где Post?
Ответить с цитированием