帮忙看看那里错了，在线等，不够可以加分

[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]

问题是写出的时候，前面文件的内容在后面的里面都有，很是讨厌

[jmylf]

怎么今天没有人在吗

[jmylf]

帮忙顶顶啊

[kingfish]

看看help

SaveToStream can be used to append the contents of Memory to a file stream, rather than replace the contents of the file the way SaveToFile does.

加一句
memStream->Position = 0;

[kingfish]

加在
tmpField->SaveToStream(memStream);
之前

[SharpKing515]

我帮忙，，UP…！！

[jishiping]

刚才在另外一个帖子里不是已经解决了吗？

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