版主老大在么，能帮忙看个问题么？（以前好像版主参与过，关于大文件的数据库存储的）

[jmylf]

写入
Session->AddPassword("lf/9210");
if(!OpenDialog1->Execute())
return;
TMemoryStream *tmpStream = new TMemoryStream();
tmpStream->LoadFromFile(OpenDialog1->FileName);

Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("INSERT INTO a.db (filename,filec,filedate) VALUES(:filename,:filec,:filedate)");
Query1->DatabaseName=ExtractFilePath(Application->ExeName).c_str();
Query1->ParamByName("filename")->AsString = ExtractFileName(OpenDialog1->FileName);
Query1->ParamByName("filedate")->AsString = savetime;
//ShowMessage(ExtractFileName(OpenDialog1->FileName));
Query1->ParamByName("filec")->LoadFromStream(tmpStream,ftBlob);
Query1->ExecSQL();
delete tmpStream;


希望最后一次性写出所存储的所有文件
Session->AddPassword("lf/9210");
TMemoryStream *memStream = new TMemoryStream;
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("select filec ,filename from a.db");
Query1->Open();
//Query1->First();
TBlobField *tmpField = (TBlobField *)Query1->Fields->Fields[0];
while(!Query1->Eof)
{
tmpField->SaveToStream(memStream);
memStream->SaveToFile(Query1->Fields->Fields[1]->Value);

Query1->Next();
}
delete memStream;
}


总是后面的文件包括前面文件内容，不知道那里错了啊？

[jmylf]

怎么版主不在阿，哪位兄弟可以帮下忙？不够可以加分

[耙子]

tr@soe 应该在忙着写书，
cker 忙着带孩子，哈哈

[jmylf]

版主不在，兄弟们帮帮忙看看吧

[kingfish]

看另外一个帖子，试试

[jishiping]

while(!Query1->Eof)
{
memStream->Clear(); //加上这一句
tmpField->SaveToStream(memStream);
//....
}

[wyb_45]

你是不是想将数据库里存储的BLOB的数据(多条)保存成一个文本？
这段代码是将保存一个文本
TFileStream * a=new TFileStream("d:\\ggg.bmp",fmCreate|fmOpenWrite);

Querys->Close();
Querys->SQL->Clear();
Querys->SQL->Add("select * from DLL_PLUG_INFO where ID_S="+Edit4->Text);
Querys->Open();
TBlobStream *s=new TBlobStream((TBlobField *)Querys->FieldByName("FILE_S"),bmRead);
a->CopyFrom(s,s->Size);
delete s;
delete a;
ShowMessage("ok");
将数据流写成一个文件，我想不是很难，有时间给你写写。

[jmylf]

问题解决，谢谢版主和关心的弟兄们

[jmylf]

我当时估计是流没有清空，就是不知道怎么清，这下清楚了