🚀 go-pugleaf

doing if this way gives me the following error:

 Project raised exception class EoleEception with message 'Not Enough
Stroage is available to complete this operation'.
here is the revamped code

TStringStream *Blob = new TStringStream("");
    try {
        RichEdit8->Lines->SaveToStream(Blob);
 comdtext = "insert into data (ItemNumber, UserLog, Date, Time,
SerializedDate, SerializedTime, "+fields;
  comdtext += ",
Notes )values('"+ItemNo+"','"+userID+"','"+dated+"','"+timed+"',
"+SerialDate+", "+SerialTime+", ";
  comdtext += values+", :BlobNotes)";
  RichEdit8->Text = comdtext;
  ADOCommand2->CommandType = cmdText;
  ADOCommand2->CommandText = comdtext;
  Blob->Position = 0;

ADOCommand2->Parameters->ParamByName(WideString("BlobNotes"))->LoadFromStrea
m(Blob, ftBlob);
  ADOCommand2->Execute();
  }
  __finally {
        delete Blob;
   }

----------------------------------------------------------------------------
---------------------------------------------
"Viatcheslav V. Vassiliev" <support@oledbdirect.com> wrote in message
news:425c1c03@newsgroups.borland.com...
> Drop TADOCommand to form. Set CommandText to
>
> insert into data (Col1, BlobColumn) values (1, :Blob)
>
> Now when you check Parameters you should see one parameter - Blob. In code
> do:
>
>
ADOCommand1->Parameters->ParamByName(WideString("Blob"))->LoadFromFile("Unit
1.cpp",ftBlob); ADOCommand1->Execute();There is also LoadFromStream(). Do
not forget to set Stream->Position = 0 orcall Stream->Seek(0,
soFromBeginning) before loading from
it.//------------------------------------------Regards,Vassiliev V.
V.http://www.managed-vcl.com - using .Net objects in Delphi for Win32
+ADO.Nethttp://www.oledbdirect.com - The fastest way to access MS SQL
Server,MS Jet (Access) and Interbase (through OLEDB)"James Peterson"
<jpeterson@romanmealmilling.com> �������/�������� ��������� ���������:
news:425a656e@newsgroups.borland.com...> so I can do the following>> TStream
*Blob>
=ADODataSet1->CreateBlobStream(ADODataSet1->FieldByName("Notes"),bmWrite);>
try {>        RichEdit8->Lines->SaveToStream(Blob);>    }>    __finally {>
delete Blob;>    }>  comdtext = "insert into data (ItemNumber, UserLog,
Date, Time,> SerializedDate, SerializedTime, "+fields;>  comdtext += ",>
Notes )values('"+ItemNo+"','"+userID+"','"+dated+"','"+timed+"',>
"+SerialDate+", "+SerialTime+", ";>  comdtext += values+"(:Blob))";>
ADOCommand2->CommandType = cmdText;>  ADOCommand2->CommandText = comdtext;>
ADOCommand2->Execute();>>> "Viatcheslav V. Vassiliev"
<support@oledbdirect.com> wrote in message>
news:42577d85@newsgroups.borland.com...>> Use parameters.>>>> insert into
(blobfield) values (:blob)>>>> Then set parameter to anything you need,
including stream or string that>> contains quotes or line breaks.>>>>
file://------------------------------------------>> 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)>>>> "James Peterson"
<jpeterson@romanmealmilling.com> �������/�������� �>> �������� ���������:
news:42568316$1@newsgroups.borland.com...>> > is there a way to insert a
Stream into an ADOCommand ?>> >>> > Forexample>> > you have a RichText1 and
you wanted to save it with formating into the>> > following ADOCommond.>>
>>> >  comdtext = "insert into data (ItemNumber, UserLog, Date, Time,>> >
SerializedDate, SerializedTime, "+fields;>> >  comdtext
+=")values('"+ItemNo+"','"+userID+"','"+dated+"','"+timed+"',>> >
"+SerialDate+", "+SerialTime+", ";>> >  comdtext += values+")";>> >
ADOCommand2->CommandType = cmdText;>> >  ADOCommand2->CommandText =
comdtext;>> >  ADOCommand2->Execute();>> >>> >>>>>>>
>