Idtcpserver Sorun
-
IdTcpClient :
[CODE]procedure TForm1.Button1Click(Sender: TObject);
begin
idtcpclient1.host:='127.0.0.1';
idtcpclient1.port:='3131';
with idtcpclient1 do
begin
try
Connect();
except
Showmessage('Not connected');
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
IdTCPClient1.Disconnect;
end;
[/CODE]
Idtcpserver :
[CODE]procedure TForm1.FormCreate(Sender: TObject);
begin
idtcpserver1.defaultport:='3131';
idtcpserver1.active:=true;
end;
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
memo1.Refresh;
end;
procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
memo1.Lines.Insert(0,AThread.Connection.Socket.Binding.PeerIP+': Connected');
end;
procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread);
begin
memo1.Lines.Insert(0,AThread.Connection.Socket.Binding.PeerIP+': Disconnected');
end;
[/CODE]
[B]benim sorunum procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread);
ne ypaarsam yapayım memo1.lines e x.x.x. : disconnected yazmıyor. yani çalışmıyor orası ama heryere baktım o kısımda sorun yaşayan bulamadım.ne yapmam gerekiyor. şimdiden teşekkürler[/B]
-
ınsert yerine add kullansan olmuyomu
-
Showmessage bile yazsam olmuyor maalesef :(