TADOQuery和TADOConnection内存泄漏

相关文章推荐

完美的脸盆 · C# ...· 2 月前 ·

火爆的山楂 · threading.Timer为何无法精确控 ...· 2 月前 ·

卖萌的沙发 · 重庆日报记者体验成渝高铁复兴号首发 ...· 6 月前 ·

跑龙套的小狗 · 关于公布第十八届杭州市学生社团文化节各项比赛 ...· 1 年前 ·

安静的青蛙 · 霸道总裁遇到病娇_霸道总裁遇到病娇女主_霸道 ...· 2 年前 ·

痴情的凉面 · 并购狂魔迪士尼加价收购福克斯，这是一场不能输 ...· 2 年前 ·

快乐的香菜 · 四川省人民政府办公厅关于印发《四川省新污染物 ...· 2 年前 ·

腾讯云

开发者社区

文档意见反馈控制台

首页 TVP

文章/答案/技术大牛

发布

  ::CoInitialize(NULL);
  TADOConnection * sql_conn = new TADOConnection(service_object);
  TADOQuery * pos_q = new TADOQuery(service_object);
__finally
  delete pos_q;
  delete sql_conn;
  ::CoUninitialize();
}

TADOConnection * sql_conn = new TADOConnection(NULL);
TADOQuery * pos_q = new TADOQuery(NULL);
__finally
    delete pos_q;
    delete sql_conn;
}

class TMyContextData
public:
    TADOConnection *sql_conn;
    TADOQuery *pos_q;
    TMyContextData();
    ~TMyContextData();
TMyContextData::TMyContextData()
    sql_conn = new TADOConnection(NULL);
    pos_q = new TADOQuery(NULL);
TMyContextData::~TMyContextData()
    delete pos_q;
    delete sql_conn;
void __fastcall TMyForm::tcp_serverConnect(TIdContext *AContext)
    ::CoInitialize(NULL);
    AContext->Data = new TMyContextData;
void __fastcall TMyForm::tcp_serverDisconnect(TIdContext *AContext)
    delete static_cast<TMyContextData*>(AContext->Data);
    AContext->Data = NULL;
    ::CoUninitialize();
void __fastcall TMyForm::tcp_serverExecute(TIdContext *AContext)
    TMyContextData *pData = static_cast<TMyContextData*>(AContext->Data);
    // use pData->sql_conn and pData->pos_q as needed...
 }

class TMyContext : public TIdServerContext
public:
    TADOConnection *sql_conn;
    TADOQuery *pos_q;
    __fastcall TMyContext(TIdTCPConnection *AConnection, TIdYarn *AYarn, TIdContextThreadList *AList = NULL);
    __fastcall ~TMyContext();
__fastcall TMyContext::TMyContext(TIdTCPConnection *AConnection, TIdYarn *AYarn, TIdContextThreadList *AList)
    : TIdServerContext(AConnection, AYarn, AList)
    ::CoInitialize(NULL);
    sql_conn = new TADOConnection(NULL);
    pos_q = new TADOQuery(NULL);
__fastcall TMyContext::~TMyContext()
    delete pos_q;
    delete sql_conn;
    ::CoUninitialize();
__fastcall TMyForm::TMyForm(TComponent *Owner)
    : TForm(Owner)
    // do this before activating TIdTCPServer
    tcp_server->ContextClass = __classid(TMyContext);
void __fastcall TMyForm::tcp_serverExecute(TIdContext *AContext)
    TMyContext *pContext = static_cast<TMyContext*>(AContext);
    // use pContext->sql_conn and pContext->pos_q as needed...
}

class TMyADOThread : public TIdThreadWithTask
protected:
    virtual void __fastcall AfterExecute();
    virtual void __fastcall BeforeExecute();
public:
    TADOConnection *sql_conn;
    TADOQuery *pos_q;
    __fastcall TMyADOThread(TIdTask *ATask = NULL, const String AName = "");
__fastcall TMyADOThread::TMyADOThread(TIdTask *ATask, const String AName)
    : TIdThreadWithTask(ATask, AName)
void __fastcall TMyADOThread::BeforeExecute()
    TIdThreadWithTask::BeforeExecute();
    ::CoInitialize(NULL);
    sql_conn = new TADOConnection(NULL);
    pos_q = new TADOQuery(NULL);
void __fastcall TMyADOThread::AfterExecute()
    delete pos_q;
    delete sql_conn;
    ::CoUninitialize();
    TIdThreadWithTask::AfterExecute();
__fastcall TMyForm::TMyForm(TComponent *Owner)
    : TForm(Owner)
    // do this before activating TIdTCPServer
    IdSchedulerOfThreadPool1->ThreadClass = __classid(TMyADOThread);

TADOQuery和TADOConnection内存泄漏

2 个回答