IdTCPServer 和 IdTCPClient 已經實作了 雙向接收發送訊息 正常
經測驗 IdTCPServer 向 IdTCPClient 發送訊息后,如果再有新的客戶端IdTCPClient連接會連接不上TCPServer
但是已經連接過的IdTCPClient 和 IdTCPServer 接發很正常 就是新打開的 IdTCPClient連接不上
測驗2
如果不用IdTCPServer發送訊息的話 直接用IdTCPClient向IdTCPServer發送訊息的話 很正常 再打開新的客戶端
依然能連接進來
如果用IdTCPServer向IdTCPClient發送訊息的話 新打開的客戶端 就會連接不到
誰碰到過這種奇怪的問題
還請伸伸援手 請大家指定問題出在那里 謝謝了
只有105分
有的話再補上,謝謝大家了
uj5u.com熱心網友回復：
等待高人出現!uj5u.com熱心網友回復：
實作過類似系統1)客戶端發起兩路連接
A路用于普通的通信(客戶端===》服務器)
B路用于接收服務器端主動發來的訊息
還不明白 加QQ 287413288
uj5u.com熱心網友回復：
你的服務端怎么寫的，INDY可以支持多個發送的。uj5u.com熱心網友回復：
procedure TForm2.Button2Click(Sender: TObject);
Var
I: integer;
AContext: TIdContext;
begin
for I := 0 to IdTCPServer1.Contexts.LockList.Count - 1 do
Begin
AContext := TIdContext(IdTCPServer1.Contexts.LockList.Items[I]);
AContext.Connection.IOHandler.Write('A');
End;
end;
這是這樣用服務端發送訊息的
uj5u.com熱心網友回復：
還有一點 我測驗了一下如果用服務端發送訊息的話
客戶端點按鈕執行 IdTCPClient1.Disconnect; 也發法正常斷開及退出
如果服務端不主動向客戶端發送訊息的話 則正常
說來說去 就是不能用服務端主動向客戶端發送訊息
uj5u.com熱心網友回復：
我看 indy9 自帶的 Chat 例子程式，客戶端也會假死掉uj5u.com熱心網友回復：
你服務端有沒有在OnRead事件中寫回應？uj5u.com熱心網友回復：
INDY是每個連接一個執行緒，一致不停用執行緒接收資料。上面說錯了，是在OnExecute方法里面，一直不停的呼叫Read接收客戶端發送上來的資料。uj5u.com熱心網友回復：
procedure TForm2.IdTCPServer1Execute(AContext: TIdContext);
Var
Hb: TIdIOHandler;
TempStr: TStrings;
begin
Hb := AContext.Connection.IOHandler;
if Not Hb.InputBufferIsEmpty then
Begin
Hb.CheckForDisconnect(True, True);
Hb.ReadStream(RStream, Hb.InputBuffer.Size);
TempStr := TStringList.Create;
RStream.Position := 0;
TempStr.LoadFromStream(RStream);
Memo1.Lines.AddStrings(TempStr);
TempStr.Free;
RStream.Clear;
End;
Sleep(100);
end;
這是我服務端的代碼,服務端接收沒問題
關鍵是如果用服務端發送的話 那其它新打開的客戶端就會連接不上
uj5u.com熱心網友回復：
你的發送和接收是分開了？uj5u.com熱心網友回復：
這個我沒有用過，我只是Delphi自己的 TTcpServer 和 TTcpClient ，非常 不錯，不會象Indy時不時跳出一個問題來。uj5u.com熱心網友回復：
我記得客戶端不整天監控埠，只在連接時接收對應連接的訊息吧。uj5u.com熱心網友回復：
你的服務端有問題。
怎么可以用Memo1？？
這些轉到同步執行緒中去！！
uj5u.com熱心網友回復：
procedure TForm2.Button2Click(Sender: TObject);
Var
I: integer;
AContext: TIdContext;
begin
for I := 0 to IdTCPServer1.Contexts.LockList.Count - 1 do
Begin
try ////添加try來過濾某些錯誤
AContext := TIdContext(IdTCPServer1.Contexts.LockList.Items[I]);
AContext.Connection.IOHandler.Write('A');
finally
AContext.Connection.UnlockList; ////這里要解鎖！！！
End;
end;
uj5u.com熱心網友回復：
怪異的，idtcpclient的onwork事件不會觸發，客戶端要用個執行緒不斷readlnuj5u.com熱心網友回復：
根本不用執行緒，這個IdTcpServer本身就不是執行緒類的子類，引數是執行緒，當然可以直接呼叫VCL
uj5u.com熱心網友回復：
是不是沒有unlock
uj5u.com熱心網友回復：
為什么要發Stream,為什么直接發字串？
uj5u.com熱心網友回復：
正解
uj5u.com熱心網友回復：
procedure TForm2.Button2Click(Sender: TObject);Var
I: integer;
AContext: TIdContext;
AList : TList;
begin
try ////添加try來過濾某些錯誤
AList := IdTCPServer1.Contexts.LockList;
for I := 0 to ALockList.Count - 1 do
Begin
AContext := TIdContext(AList.Items[I]);
AContext.Connection.IOHandler.Write('A');
end;
finally
AContext.Connection.UnlockList; ////這里要解鎖！！！
End;
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/116053.html
標籤：網絡通信/分布式開發