07.03.2011, 07:16
|
Начинающий
|
|
Регистрация: 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?
|