Peer To Peer無法中斷 |
答題得分者是:cmf
|
kan0515
中階會員 發表:56 回覆:120 積分:50 註冊:2002-06-24 發送簡訊給我 |
各位大大您好:
我利用p2pserver及p2pclient元件寫了一個小型的p2p程式
在連結及簡易傳訊上都沒有問題
但是就是在中斷時(或是關閉程式)時,無法正常的關閉server的服務
麻煩各位大大幫我看看
我是那裡的方法寫錯了。
謝謝~~~
附加檔案:25119_p2p.rar
|
cmf
尊榮會員 發表:84 回覆:918 積分:1032 註冊:2002-06-26 發送簡訊給我 |
引言: 各位大大您好: 我利用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
------
︿︿ |
kan0515
中階會員 發表:56 回覆:120 積分:50 註冊:2002-06-24 發送簡訊給我 |
|
kan0515
中階會員 發表:56 回覆:120 積分:50 註冊:2002-06-24 發送簡訊給我 |
|
cmf
尊榮會員 發表:84 回覆:918 積分:1032 註冊:2002-06-26 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |