Exe 调用 ADO检索的 dll 文件，在关闭 exe 文件时，报错了~~~

2011-05-29 09:40:32 126 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

PowerBuilder调用Delphi写的Dll时发生的奇怪问题。因项目需要，我用Delphi写了一个连接数据库把数据导出到Sql文件的dll，其中使用了TADOQuery组件。其中只有一个导出方法：function DataExport(path,ini_path:PChar):integer; 写完之后，用delphi写了一个test.exe进行测试，发现可以正常使用。之后便把这个dll交给了同事，让他在PowerBuilder中调用。同事拿过去之后阅读详情

dll 文件源码如下：

extern "C" __declspec(dllexport) void __stdcall ListON(TListView *ListView)
{
TListItem *NewItem;
TADOQuery *Query = new TADOQuery(Application);
Query->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ExtractFilePath(Application->ExeName) + "MyDat.dat;Jet OLEDB:Database Password=aabbccdd;";
Query->SQL->Text = "select name from table1";
Query->Open();
ListView->Clear();

while(!Query->Eof)
{
ListView->AddItem(IntToStr(ListView->Items->Count+1),0);
NewItem = ListView->Items->Item[ListView->Items->Count-1];
NewItem->SubItems->Add(Query->FieldByName("name")->AsString);
NewItem->ImageIndex = 1;
Query->Next();
}

delete Query;
}
//━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

Exe 文件源码如下：

void __fastcall TForm1::Button1Click(TObject *Sender)
{
HINSTANCE Hdl;
Hdl=::LoadLibrary("Test.dll");
void __stdcall (*ListON)(TListView *);
ListON = (void __stdcall (*)(TListView *))::GetProcAddress(Hdl,"ListON");
ListView1->Clear();
ListON(ListView1);
::FreeLibrary(Hdl);
}
//━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

执行 Button1 的点击事件时，列表正常，就是稍慢一点，但在关闭 Form1 时，会出现下面出错提示：

Access violation at address 004522B2 in module 'ThisExe.exe'. Write of address 010FE1D0.

请各位老大帮助看看原因出在什么地方了？

...全文