🚀 go-pugleaf

> { S = ValueList->Strings->Text.Length() + 1; char *P = new char[S];

Here you allocate P

>   try
>   { P = ValueList->Strings->Text.c_str();

Here you assign to P new value, previously allocated block is not 
referenced. It is NOT copy operation.

>   delete P;

Here you free memory from block returned by 
ValueList->Strings->Text.c_str(), not block allocated in new char[S]. Later 
C++ Builder frees AnsiString, but its memory is freed before by delete P.

AnsiString s = ValueList->Strings->Text;
BS->Write(S.c_str(), S.Length() + 1);

or something like this should work.

//------------------------------------------
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)

"Nerio" <ne_serzanti@tin.it> �������/�������� � �������� ���������: 
news:42d692d4$1@newsgroups.borland.com...
>I wrote part of a program where, in a ADODataSet, record by record I 
>collect a lot of field names and their respective content transferring them 
>into a ValueListEditor. Next :
> ---
> ADOTableX->Edit();
> TADOBlobStream *BS = new TADOBlobStream TBlobField *) ADOTableXAnalisys, 
> bmWrite);
> try

>      BS->Write(P, S);
>   }
>   catch(...)
>   { delete P; throw; }
>   delete P;
> }
> catch(...)
> { delete BS; throw; }
>  delete BS;
> ADOTableX->Post;  // all those to fill the Access BlobField named Analisys
> ---
> passing to to following record but I have an access exception writing to 
> the blob field (not always at the same record)
> Can you explain what happen
> Thanks Nerio
>
>