在下試著寫了一個server端及一個client端的測試程式 server端使用IdHTTPServer元件,負責接收client端的要求,並作出回應 client端使用IdHTTP元件,負責不斷的送出要求 經在下的測試結果...當只有一個Client端不斷送出要求時,server端正常的回應這些要求 但當兩個client端(在下測試時用了兩台電腦當client端)一起不停的對server送出要求時, server端常會觸發OnException事件,訊息通常是Invalid pointer operation..... 請問有人知道這問題要如何解決嗎?? 發表人 - 旅者 於 2004/07/20 15:48:24

這可能要看 你在 server 上的 OnExecute 做了什麼. 兩個 connection 同時操作時 , 在 onExecute 就要注意 同時進入的問題 , 裡面相關的資源如果控制不當 , 很可能就會有問題. _= 沒事就 winsock 一下 =_

引言: 這可能要看 你在 server 上的 OnExecute 做了什麼. 兩個 connection 同時操作時 , 在 onExecute 就要注意 同時進入的問題 , 裡面相關的資源如果控制不當 , 很可能就會有問題. _= 沒事就 winsock 一下 =_

感謝您的回覆^^ 小弟是用OnCommandGet 取得request,不過,狀況可能一樣...因為經測試狀況來判斷,問題是發生在OnConnect後,進入OnCommandGet前或剛好死在這..,所以的確很有可能如您所述.... 不知能否請您教導在下該如何避免此狀況呢?? 在下的OnCommandGet中只做以下的處理: void __fastcall TMainForm::IdHTTPServer1CommandGet(TIdPeerThread *AThread, TIdHTTPRequestInfo *RequestInfo, TIdHTTPResponseInfo *ResponseInfo) { ResponseInfo->ContentText = "a"; MainForm->iRequestCnt ; MainForm->iMaxRequest ; } 不知是哪裡有問題...這狀況已困擾在下許久..請大家不吝賜教..感謝..^^

問題大概在這邊 MainForm->iRequestCnt ; MainForm->iMaxRequest ; 先把這兩行拿掉測試 , 如果正常在往下做 有兩種方法 : 1. 把 iRequestCnt , iMaxRequest 設定成 global 變數, 2. 使用 AThread->Synchronize() 呼叫另一個 func 對 MainForm->iRequestCnt,MainForm->iMaxRequest 此兩個變數存取 _= 沒事就 winsock 一下 =_

引言: 問題大概在這邊 MainForm->iRequestCnt ; MainForm->iMaxRequest ; 先把這兩行拿掉測試 , 如果正常在往下做 有兩種方法 : 1. 把 iRequestCnt , iMaxRequest 設定成 global 變數, 2. 使用 AThread->Synchronize() 呼叫另一個 func 對 MainForm->iRequestCnt,MainForm->iMaxRequest 此兩個變數存取 _= 沒事就 winsock 一下 =_

先謝謝Microbean提供的意見..^^ 在下依您的意見作了測試,不過還是會出現Exception...而且..一段時間後,竟然server端竟自行結束程式了!!...T_T 另外,在下也安裝了Indy 9.0.14..也同樣會出現Exception..T_T

把你的程式 client and server 貼上來研究看看 我測試過每0.5 秒做一次 並沒有你的這個問題... _= 沒事就 winsock 一下 =_

以下是Server端    #include  #include #pragma hdrstop #include "Unit1.h" #include "Global.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TMainForm *MainForm; //--------------------------------------------------------------------------- __fastcall TMainForm::TMainForm(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TMainForm::TrigBtnClick(TObject *Sender) { MainForm->IdHTTPServer1->DefaultPort = PortEdit->Text.ToInt(); if (PortEdit->Text.ToInt()!=443) MainForm->IdHTTPServer1->Intercept = NULL; MainForm->iRequestCnt = 0; MainForm->iMaxRequest = 0; MainForm->iUnitTime = CountEdit->Text.ToInt()*60; MainForm->iTimeCnt = 0; Timer1->Interval = MainForm->iUnitTime*1000; Timer1->Enabled = true; IdHTTPServer1->Active = true; MsgMemo->Lines->Add("*****開始listen*****"); } //--------------------------------------------------------------------------- void __fastcall TMainForm::StopBtnClick(TObject *Sender) { IdHTTPServer1->Active = false; Timer1->Enabled = false; MsgMemo->Lines->Add("*****停止listen*****"); MsgMemo->Lines->Add("單位時間(sec):" AnsiString(MainForm->iUnitTime)); MsgMemo->Lines->Add("已服務要求數:" AnsiString(MainForm->iRequestCnt)); MsgMemo->Lines->Add("累計時間(min):" AnsiString(MainForm->iTimeCnt)); MsgMemo->Lines->Add("共服務要求數:" AnsiString(MainForm->iMaxRequest)); if (MainForm->SaveDialog1->Execute()) { MainForm->MsgMemo->Lines->SaveToFile(MainForm->SaveDialog1->FileName); } } //--------------------------------------------------------------------------- void __fastcall TMainForm::AddCnt(void) { MainForm->iRequestCnt ; MainForm->iMaxRequest ; } //--------------------------------------------------------------------------- void __fastcall TMainForm::IdHTTPServer1CommandGet(TIdPeerThread *AThread, TIdHTTPRequestInfo *RequestInfo, TIdHTTPResponseInfo *ResponseInfo) { // MsgMemo->Lines->Add("CommandGet"); ResponseInfo->ContentText = "a"; AThread->Synchronize(AddCnt); } //--------------------------------------------------------------------------- void __fastcall TMainForm::IdServerInterceptOpenSSL1GetPassword( AnsiString &Password) { Password = PASSWORD; } //--------------------------------------------------------------------------- void __fastcall TMainForm::FormCreate(TObject *Sender) { char cPath[MAX_PATH_LENGTH]; ::GetCurrentDirectory(MAX_PATH_LENGTH,cPath); MainForm->sCurrentPath = AnsiString(cPath); IdServerInterceptOpenSSL1->SSLOptions->CertFile = MainForm->sCurrentPath CERTIFICATE_KEY; IdServerInterceptOpenSSL1->SSLOptions->RootCertFile = MainForm->sCurrentPath CERTIFICATE_KEY; IdServerInterceptOpenSSL1->SSLOptions->KeyFile = MainForm->sCurrentPath PRIVATE_KEY; } //--------------------------------------------------------------------------- void __fastcall TMainForm::Timer1Timer(TObject *Sender) { // 到達單位時間,顯示服務要求數 MainForm->iTimeCnt ; MsgMemo->Lines->Add("*********************************************"); MsgMemo->Lines->Add("單位時間(sec):" AnsiString(MainForm->iUnitTime)); MsgMemo->Lines->Add("已服務要求數:" AnsiString(MainForm->iRequestCnt)); MsgMemo->Lines->Add("累計時間(min):" AnsiString(MainForm->iTimeCnt)); MsgMemo->Lines->Add("共服務要求數:" AnsiString(MainForm->iMaxRequest)); MainForm->iRequestCnt = 0; } //--------------------------------------------------------------------------- void __fastcall TMainForm::ThreadException(TObject *Sender,Exception *e) { MsgMemo->Lines->Add(e->Message); } //--------------------------------------------------------------------------- void __fastcall TMainForm::IdHTTPServer1Connect(TIdPeerThread *AThread) { // MsgMemo->Lines->Add("Connect"); AThread->OnException = ThreadException; } //--------------------------------------------------------------------------- 以下是Client端 #include #include #pragma hdrstop #include "Unit1.h" #include "Global.h" #include "ConnectThread.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TMainForm *MainForm; //--------------------------------------------------------------------------- __fastcall TMainForm::TMainForm(TComponent* Owner) : TForm(Owner) { MainForm->sURL = DEFAULT_URL; MainForm->tpResponseStream = new TStringStream(MainForm->sResponse); MainForm->sRequest = new TStringList; MainForm->iRequestCnt = 0; } //--------------------------------------------------------------------------- void __fastcall TMainForm::ConnectBtnClick(TObject *Sender) { int iMaxThreads,iCnt; MainForm->sURL = MainForm->URL_Edit->Text; MainForm->sRequest->Text = MainForm->RequestEdit->Text; MainForm->iPort = PortEdit->Text.ToInt(); IdHTTP1->Host = MainForm->sURL; IdHTTP1->Port = MainForm->iPort; if (MainForm->iPort == 443) { MainForm->bHTTPsFlag = true; IdConnectionInterceptOpenSSL1->SSLOptions->Method = sslvSSLv23; IdConnectionInterceptOpenSSL1->SSLOptions->Mode = sslmClient; IdConnectionInterceptOpenSSL1->SSLOptions->VerifyDepth = 0; // IdHTTP1->InterceptEnabled = false; IdHTTP1->Intercept = IdConnectionInterceptOpenSSL1; IdHTTP1->InterceptEnabled = true; } else { MainForm->bHTTPsFlag = false; IdHTTP1->InterceptEnabled = false;; IdHTTP1->Intercept = NULL; } iMaxThreads = MainForm->ThreadEdit->Text.ToInt(); Timer1->Interval = TimeEdit->Text.ToInt()*60000; Timer1->Enabled = true; while(1) { for (iCnt=0;iCntPost(MainForm->sURL,MainForm->sRequest,(TStream *)MainForm->tpResponseStream); MainForm->iRequestCnt ; MainForm->MsgMemo->Lines->Add("第" AnsiString(MainForm->iRequestCnt) "個連線要求"); // 處理系統Message佇列 Application->ProcessMessages(); } if (!MainForm->LoopRadioBtn->Checked) break; } Timer1->Enabled = false; } //--------------------------------------------------------------------------- void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action) { MainForm->LoopRadioBtn->Checked = false; delete MainForm->tpResponseStream; delete MainForm->sRequest; // Application->Terminate(); } //--------------------------------------------------------------------------- 歡迎指教...謝謝...^^