引言: 各位大大您好： 我利用p2pserver及p2pclient元件寫了一個小型的p2p程式 在連結及簡易傳訊上都沒有問題 但是就是在中斷時(或是關閉程式)時，無法正常的關閉server的服務 麻煩各位大大幫我看看 我是那裡的方法寫錯了。 謝謝~~~

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin try PsiTCPClient1.Disconnect; except end; try PsiTcpServer1.Active:=FALSE; except end; end; procedure TForm1.BitBtn2Click(Sender: TObject); var i:BOOLean; begin i:=false; try PsiTCPClient1.Writeln('exit'); i:=true; except i:=false; end; if i then begin IF PsiTCPClient1.Connected then PsiTCPClient1.Disconnect; PsiTCPServer1.Active:=False; end; Application.Terminate; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin PsiTCPClient1.Host:=Edit1.Text; PsiTCPClient1.Port:=1234; PsiTCPClient1.Connect; BitBtn1.Enabled:=False; end; procedure TForm1.FormActivate(Sender: TObject); begin PsiTCPServer1.DefaultPort:=1234; PsiTcpServer1.Active:=True; end; procedure TForm1.Button1Click(Sender: TObject); begin try PsiTCPClient1.Writeln(Edit2.text); except showmessage('連線中斷' ); end; end; procedure TForm1.PsiTCPServer1Execute(AThread: TPsiPeerThread); var s:string; begin s:=athread.Connection.ReadLn; if s='exit' then athread.Connection.Disconnect else begin memo1.Lines.Add(s); athread.Connection.WriteLn(s); end; end; procedure TForm1.PsiTCPServer1Connect(AThread: TPsiPeerThread); begin ShowMessage('halo,this is '+PsiTCPClient1.SocksInfo.Host); end; end. 發表人 - cmf 於 2003/01/17 20:04:49

引言: 拍謝~~~類似的問題同樣發生~~~ 那位大大幫忙一下，謝謝~~

可以再說清楚一點好嗎?