我有一個socket server程式，再等待一陣子後，突然消失不見，雖然在產生Form Close事件，加上寫入log，結果log中沒有Form Close所寫入的紀錄，請問各位先進是否有遇到相同問題，能幫助我解決此一問題，或者如何找出原因，謝謝

請大大先參考http://delphi.ktop.com.tw/topic.php?topic_id=72439看有無幫助。 突然消失不見-->看來您在Form Close攔截不到，已非正常事件，可能需要將每一操作處理的指令(含SERVER及CLIENT)，記錄其時間及語法至LOG。 寫一支監看socket server程式是否還活著的小程式，也是記錄還活著的時間。 另外看一下OS的事件檢視器，若異常結束是否有一些ERROR CODE。

在程式中 有用到 Applicaion.Terminate 嗎?    

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Terminate;
end;    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ShowMessage('Close');
end;    end.

像上面的程式, 可是會ㄧ聲不響的就結束哦... 發表人 - malanlk 於 2005/11/12 10:30:42

malanlk大大所描述的，就是我提及的--> 需要將每一操作處理的指令(含SERVER及CLIENT)，記錄其時間及語法至LOG。 如此就可追蹤出一些問題點。

謝謝兩位先進的回答，我查過程式，並未沒有使用Terminates，還有掃描程式記Log後不知道能得到哪些的結論呢？

掃描程式記Log後不知道能得到哪些的結論呢？-->當您發現(突然消失不見)時， 馬上去查已存檔的LOG，最後一次操作的時間及指令，以便回想剛剛作的動作，就是可能造成(突然消失不見)的嫌疑犯。 另外，我下列的建議，不知您參考了嗎？ 請大大先參考http://delphi.ktop.com.tw/topic.php?topic_id=72439看有無幫助。 寫一支監看socket server程式是否還活著的小程式，也是記錄還活著的時間。 另外看一下OS的事件檢視器，若異常結束是否有一些ERROR CODE。