window
for i := 0 to Componentcount - 1 do
begin
Temp := Components[i];
if (Temp is TForm) then
begin
with TForm(FindComponent(Temp.Name)) do
begin
if (Name <> 'frmMain') and Showing then
close;
end;
end;
end;
// Set ClientHandleThread to
if (Sender AS TTimer).Tag = 0 then
begin
if ClientHandleThread.Terminated then
begin
ClientHandleThread := nil;
(Sender AS TTimer).Tag := (Sender AS TTimer).Tag 1;
end;
end;
// try to connect Server
if (Sender AS TTimer).Tag = 1 then
begin
//
try
FreeAndNil(Client);
Client := TIdTCPClient.Create(frmMain);
Client.Host := Login.SVR;
Client.Port := 24451;
Client.Connect(1000);
//
(Sender AS TTimer).Tag := (Sender AS TTimer).Tag 1;
ShowMsg('重新連線到 Server 成功。');
except
on E : exception do
begin
plCenter.Color := clRed;
strMsg := '重新連線到 Server 失敗。';
end;
end;
//
ShowMsg(strMsg); StatusBar.Panels[4].Text := strMsg;
end;
// Re-Connect DB & Re-Create ClientHandleThread
if (Sender AS TTimer).Tag = 2 then
begin
// 若 Client 至 Server 之間的網路線路有問題 (例如：突然拔掉 Client 網路線)
// adDBConn 的連線狀態雖然仍保持 "TRUE"，但實際用 [netstat] 觀測已經失效
if adDBConn.Connected then
adDBConn.Close;
//
try
adDBConn.Open;
if adDBConn.Connected then ShowMsg('重新連線到本機資料庫成功。');
//
ClientHandleThread := TClientHandleThread.Create(True);
ClientHandleThread.FreeOnTerminate:=True;
ClientHandleThread.Priority := tpLower;
ClientHandleThread.Resume;
//
(Sender AS TTimer).Tag := (Sender AS TTimer).Tag 1;
except
on E: Exception do
begin
plCenter.Color := clRed;
strMsg := '重新連線到本機資料庫失敗。';
end;
end;
//
plCenter.Color := clSkyBlue;
strMsg := 'Stop Timer.';
ShowMsg(strMsg); StatusBar.Panels[4].Text := strMsg;
//
(Sender AS TTimer).Enabled := False;
(Sender AS TTimer).Interval:= 2000;
(Sender AS TTimer).Tag:=0;
end;
end;

procedure TfrmMain.tmShowStatusTimer(Sender: TObject);
var
blCheck : boolean;
strMsg : string;
begin
if ClientHandleThread = nil then
StatusBar.Panels[4].Text := 'ClientHandleThread is nil';
blCheck := False;
StatusBar.Panels[1].Text := FormatDateTime('yyyy/mm/dd HH:nn:ss', now);
// 每天固定時段->檢查資料庫 乙次
if DEFAULT_Prompt_Tm <> '' then
begin
strMsg := DEFAULT_Prompt_Tm ' <==> ' FormatDateTime('HH:nn:ss',Time);
if DEFAULT_Prompt_Tm = FormatDateTime('HH:nn:ss',Time) then
begin
blCheck := True;
strMsg := strMsg '.....BINGO!!';
end;
//test
//ShowMsg(strMsg);
end
else
if (SecondOf(now)=0) and (MinuteOf(now)=0) and (HourOf(now)=9) then
blCheck := True;
if blCheck then
begin
btnChkInformClick(Self);
end;
end;
[/code]

===================引 用 careychen 文 章===================
大大的問題，小弟試的時候是不會，但我是用 indy 10 的，不知道有沒有差
或是您可以 Po 部份的程式碼來看看是不是您中間有寫了什麼造成這段訊息的出現??