и снова о бинарных данных

[grigoreo]

Уважаемые форумчане кто как делает сей момент, хочу хранить небольшие пиктограмки в базе попробовал потоки частично не работает подскажите где накосячил...

вот так сохраняю в поле нужной строки и тут нареканий нет...

Код: Выделить всё

procedure TForm1.SpeedButton1Click(Sender: TObject);
var s1:TMemoryStream;
begin
  s1:=TMemoryStream.Create;
  SpeedButton1.Glyph.SaveToStream(s1);
  pgQ1.ParamByName('par1').LoadFromStream(s1,ftBlob);
  pgQ1.SQL.Text:='update _type set pic=:par1 where id='+pgQ.Fields[0].AsString;pgQ1.ExecSQL;
end;


вот тут пытаюсь загнать в объект TImage(по анологии с верхним) и не работает

Код: Выделить всё

procedure TForm1.DBGrid1DblClick(Sender: TObject);
var s1:TMemoryStream;
begin
  s1:=TMemoryStream.Create;
  TBlobField(pgQ.FieldByName('pic')).SaveToStream(s1);
  Image1.Picture.Bitmap.LoadFromStream(s1);
end;


стоит заместо SaveToStream поставить SaveToFile и по анологии LoadFromStream на LoadFromFile картинка показывается добросовестно а через стрим пусто...
где закавыка?

[Sergei I. Gorelkin]

Между записью и сохранением нужно делать Stream.Seek(0,soFromBeginning).

[grigoreo]

Между записью и сохранением нужно делать Stream.Seek(0,soFromBeginning).

Огромное спасибо , а то голову сломал(чем то по сути похоже на работу с файлами только в памяти)) )

[MaratIsk]

а откуда у pgQ1 появился параметр ParamByName('par1'), если SQL.Text присвоен потом ?!