TADOQuery和TADOConnection内存泄漏

相关文章推荐

干练的馒头 · Java处理Exception无法捕获的异常 ...· 2 月前 ·

温文尔雅的鸵鸟 · C++ 内存分配可视化_内存可视化· 1 月前 ·

帅呆的佛珠 · Jmeter之读取csv文件踩坑记 - 梁剑lj · 1 月前 ·

安静的羽毛球 · 来校路线-青岛大学 QINGDAO ...· 1 月前 ·

爱喝酒的蛋挞 · 網路掛號-依醫師姓名 - 中國醫藥大學附設醫院· 3 月前 ·

欢乐的消防车 · 不一样没怎样 | ...· 4 月前 ·

成熟的小狗 · 国家广播电视总局公告公示 ...· 1 年前 ·

求醉的小刀 · autocad锐龙英特尔_4千左右预算，20 ...· 1 年前 ·

腾讯云

开发者社区

文档意见反馈控制台

首页 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 个回答