在AP中呼叫一個自己寫的DLL檔。 因為這個DLL檔提供TIdTCPServer, TIdThreadMgrDefault及TIdIOHandlerSocket，所以加了一個form來放這些元件（visible: false）。 當AP呼叫此DLL時使用StartDLL程序， 啟用、停用TCP時分別呼叫StartSocket及StopSocket，都正常。 但是最後要結束程式時，呼叫StopDLL時， 出現Exception EOSError in module PServerFrm.dll at 0000CB92. 及 Access violation at address 00000000. Read of address 00000000. 是哪裡出了問題？ Function StartDLL(): Boolean; Begin Result := False; try ServerFrmMain := TServerFrmMain.Create(Application); aHandle := FindWindow(nil, 'Form1'); Result := True; Finally End; End; Function StopDLL(): Boolean; Begin Result := False; Try ServerFrmMain.Free; Result := True; Finally End; End; Function StartSocket(): Boolean; Begin Result := False; try bStopConnection := False; ServerFrmMain.Server.Bindings.Clear; ServerFrmMain.Server.DefaultPort := 4001; ServerFrmMain.Server.Bindings.Add; ServerFrmMain.Server.Active := True; Result := True; Finally End; End; Function StopSocket(): Boolean; Begin Result := False; Try bStopConnection := True; ServerFrmMain.Server.Threads.Clear; ServerFrmMain.Server.Active := False; Result := True; Finally End; End;

這個問題放這裡不知道有沒有放錯地方？< > 是不是應該要放在難以歸類、還是人機界面呀？ 希望這問題有解哩！ 謝謝！< >

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.