Извлечь вложенный файл

     TBlobField* pField = (TBlobField*)t1->FieldByName(L"file");
     TADOBlobStream *bs = new TADOBlobStream(pField, bmRead);
     //bs->Seek(0, soFromBeginning);
     bs->SaveToFile(L"D:\\test\\file.pdf");

 std::auto_ptr<TADOQuery>query(new TADOQuery(this));
 std::auto_ptr<TMemoryStream>ms(new TMemoryStream);
 
 query->Connection = ADOConnection;
 query->SQL->Text = "select file.FileName as filename, file.FileData as filedata from test where id=1";
 query->Open(); // ну ОООООООЧЕНЬ долго запрос выполняется и чем больше файлов прикреплено тем дольше
 
 ShowMessage("opened");
 
 if (!query->RecordCount)
 {
  ShowMessage("no file");
  return;
 }
 
 TBlobField* field = (TBlobField*)query->FieldByName(L"filedata");
 query->First();
 while(!query->Eof)
 {
  int offset = ExtractFileExt(query->FieldByName("filename")->AsString).Delete(1,1).Length()*2+14;  // тут вроде нормально, но надо потестить
  ms->Clear();
  ms->Write(field->Value, offset, field->AsBytes.Length-offset);
  ms->SaveToFile(L"D:\\__test\\access\\0\\"+query->FieldByName(L"filename")->Value);
  query->Next();
 }

file.FileName as filename, file.FileData as filedata

#include <memory>       //For STL auto_ptr class
 
 
    std::auto_ptr<TMemoryStream> ms(new TMemoryStream);
 
    q1->SQL->Text = L"SELECT file.FileName AS filename, file.FileData AS filedata FROM tbl";
    q1->Open();
 
 
    TBlobField* field = (TBlobField*)q1->FieldByName(L"filedata");
 
    while(!q1->Eof)
    {
        ms->Clear();
        ms->Write(field->Value, field->AsBytes[0], field->AsBytes.Length - field->AsBytes[0]);
        ms->SaveToFile(L"D:\\test\\" + q1->FieldByName(L"filename")->Value);
        q1->Next();
    }