TADOQuery和TADOConnection内存泄漏

相关文章推荐

绅士的斑马 · 【QT】子类化QThread实现多线程 - ...· 3 周前 ·

酷酷的橙子 · SetWindowsHookExW 函数 ...· 4 天前 ·

宽容的刺猬 · Jquery ...· 3 月前 ·

乐观的西装 · Go 并发 | 菜鸟教程· 1 年前 ·

很拉风的荒野 · SpringBoot从入门到精通（二十八）J ...· 1 年前 ·

热心的移动电源 · 解决import ...· 1 年前 ·

不敢表白的紫菜 · 命令行工具 (kubectl) | ...· 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 个回答