Hi,
Ich habe ein Problem mit dem TcpClient , wenn ich mich nur Connecte und nix Empfange funktioniert es , wenn ich aber Beim Connecten eine Zeile Empfangen will "hängt sich das programm auf", aber wenn ich dass weglasse seh ich das es funktioniert , und bei meinem TCPServer den ich in Perl geschrieben habe sehe ich dass er auch verbunden ist .. nur wie gesagt empfangen funktioniert nicht , ich benutze auch aus gutem Grund nicht den IndyClient , denn ich brauche das Ereigniss "OnReceive" ... Mir kommt es darauf an diesen Komponenten zu benutzen !
Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm1.Button1Click(Sender: TObject);
var
response: string;
begin
TcpClient1.RemoteHost := 'ciw-ts.ath.cx';
TcpClient1.RemotePort := '5800';
TcpClient1.Connect;
response := TcpClient1.Receiveln;
Edit1.Text := response;
end; |
mfg
Real-TTX
Moderiert von 
raziel: Code- durch Delphi-Tags ersetzt
