Подозреваю, что в программе, в какой-то из приведённых функций есть ошибка (при звершении программа виснет. Debuger показывает на код в импортируемой DLL...может память как-то не так высвобождается). Пожалуйста, подскажите:

написано в Билдере

Функция устанавливает картинку на форме:

int __fastcall Tcard_window::SetUserFoto(int Mode)
{
TBlobField* FotoField;
TADOBlobStream *BS;

if (Mode == 0)
{
Image1->Picture->Assign(main_window->TMyCard[main_window->CurrentCard]->FPicture);

return 0;
}

FotoField = (TBlobField*)main_window->ADOQuery1->FieldByName("foto");

BS = new TADOBlobStream ( FotoField, bmRead );

try
{
Image1->Picture->Bitmap->LoadFromStream(BS);
}
catch ( ... )
{
//Image1->Picture->Bitmap->FreeImage();
}

delete BS;

return 0;
}


Функция записывает картинку в БД:



void __fastcall Tcard_window::PutFotoToBase(void)
{
TBlobField* FotoField;// = (TBlobField*)ADOTable1->Fields->Fields[25];
TFileStream *fs;
TADOBlobStream *BS;

if(OpenPictureDialog1->Execute())
{
main_window->ADOTable1->Open();
// --------------------------------------------
TLocateOptions Opts;
Opts.Clear();
Variant LocVal = Variant(numer);

main_window->ADOTable1->Locate("counter", LocVal, Opts);

// --------------------------------------------
FotoField = (TBlobField*)main_window->ADOTable1->Fields->FieldByName("foto");//Fields[25];

fs= new TFileStream( OpenPictureDialog1->FileName, fmOpenRead);
Image1->Picture->Bitmap->LoadFromStream(fs);

main_window->ADOTable1->Edit();
BS = new TADOBlobStream ( FotoField, bmWrite );

try
{
BS->LoadFromStream(fs);
}
__finally
{
delete BS;
delete fs;
}

main_window->ADOTable1->Post();
main_window->ADOTable1->Close();
}

}

а что там , в поиске ?...

Спасибо за ответ!

Но, к сожалению, я не обнаружил принципиальных отличий от моего кода...
Если я не прав, поясните пожалуйста.

Добавил в свой код (по подобию вашего примера):

stream->Seek(0,0);

При предварительном тестировании зависания не обнаружено....
Надеюсь, что и не обнаружится.

Спасибо.