dbexpress+mysql 运行一段时间后出现灾难性故障

[hy0754]

一个com方法 在连续调用一段时间后会出现灾难性故障,是怎么回事？
void TXXXX::Query(AnsiString sql, VARIANT *Data)
{
PublicQuery->Close();
PublicQuery->CommandText = sql;
PublicQuery->Open();
V2V(&(PublicQuery->Data), Data);
}

[hy0754]

STDMETHODIMP TXXXX::SQLQuery(BSTR SQL, int* Result,
VARIANT* Data)
{
try
{
m_DataModule->Query(SQL, Data);
*Result = 1;
}
catch(Exception &E)
{
*Result = 0;
return S_FALSE;
}
return S_OK;
}
void TXXDataModule::Query(AnsiString sql, VARIANT *Data)
{
PublicQuery->Close();
PublicQuery->CommandText = sql;
PublicQuery->Open();
V2V(&(PublicQuery->Data), Data);
}
void V2V(OleVariant *vFrom, VARIANT *vTo)
{
V2V(reinterpret_cast<Variant *>(vFrom), vTo);
}
void V2V(Variant *vFrom, VARIANT *vTo)
{
VariantClear(vTo);
VariantCopy(vTo, reinterpret_cast<VARIANTARG*>(vFrom));
}
客户端通过SocketConnection调用SQLQuery方法,一开始正常，但一段时间后就要出现问题

[hy0754]

原先使用组件：TSQLConnection+TSQLClientDataSet 捕捉到异常:灾难性故障,scktsrvr.exe退出
改用：TSQLConnection+TSQLQuery+TDataSetProvider 后捕捉到的异常是EAccessViolation和Unable to execute Query，但scktsrvr.exe不会退出,

[hy0754]

哎，TSQLQuery+TDataSetProvider 久了还是退出了

[我来看看CB]

详细代码？

[hy0754]

只要在每次调用方法前连接一次数据库就没问题，看来问题出现在数据库连接上
使用的连接库是dbxmysql50.dll
当初为了让其能调用储存过程对其进行过修过：
connect---->
连接方式
FPConnection := _mysql_real_connect(fpmysql, pchar(Hostname), UserName, Password, ServerName, Port, nil, 131072);

close------>
释放时
while _mysql_next_result(SQLHandle) = 0 do
begin
FPSQLResult := _mysql_store_result(SQLHandle);
if FPSQLResult <> nil then _mysql_free_result(FPSQLResult);
end;