🚀 go-pugleaf

Thank you.

    > Try ms->Seek(0, soFromBeginning) after save.

That was the problem. I figure it out last night.

"Viatcheslav V. Vassiliev" <support@oledbdirect.com> wrote in message
news:429ab7a2$1@newsgroups.borland.com...
> Try ms->Seek(0, soFromBeginning) after save.
>
> //------------------------------------------
> Regards,
> Vassiliev V. V.
> http://www.managed-vcl.com - using .Net objects in Delphi for Win32 +
> ADO.Net
> http://www.oledbdirect.com - The fastest way to access MS SQL Server,
> MS Jet (Access) and Interbase (through OLEDB)
>
> "Daniel Stevanovic" <danste@neobee.net> �������/�������� � ��������
> ���������: news:429a1002@newsgroups.borland.com...
> > Does anyone knows why this doesn't work ? Please :(
> >
> >    table->Insert();    // table: TADOTable
> >    ...
> >    TMemoryStream *ms=new TMemoryStream();
> >    Image1->Picture->Bitmap->SaveToStream(ms);    // Image1: TImage
> > component
> >    try
> >    {
> >      ((TBlobField*)table->Fields->Fields[4])->LoadFromStream(ms);
> >    }
> >    __finally
> >    {
> >      delete ms;
> >    }
> >
> >    table->Post();
> >
> >
> >
>
>