Forum: Netzwerke
Delphi
by Klaus01,
12. Okt 2011
irgendwer sollte sich schon zum Server verbinden.
Normalerweise:
Client verbindet sich zum Server.
Client schickt Daten zum Server.
Server macht etwas mit den Daten und schickt Rückmeldung.
Grüße
Klaus
Forum: Netzwerke
Delphi
by Klaus01,
12. Okt 2011
TTcpListener ist von TObject abgeleitet.
Die Klasse enthält einen TidTCPServer.
Da ich das mit TurboDelphi programiert habe, muss ich die onExecute Methode
des TIdTcpServer zur Laufzeit zuweisen, deshalb habe ich die onExecute Ereignisbehandlingsroutine
im TTcpListener definiert.
Das OnExecute vom TidTcpServer wird immer dann ausgelöst, wenn Daten ankommen.
Grüße
Forum: Netzwerke
Delphi
by Klaus01,
11. Okt 2011
.. entschuldige, da fehlte wohl etwas an Hintergrundinfos:
constructor TTcpListener.create(tcpPort: Word);
begin
inherited create;
listenerPort := tcpPort;
logger := Tlogger.getInstance;
onlineMode := false;
// toDo: replace file path with ini file settings
fileManager := TFileManager.create(ExtractFilePath(ParamStr(0)));
Forum: Netzwerke
Delphi
by Klaus01,
11. Okt 2011
Hallo,
die Daten kann man auch im onExecute auslesen.
Beispiel:
procedure TTcpListener.onExecute(AContext: TIdContext);
var
clientIP : AnsiString;
mStream : TMemoryStream;
begin
Forum: Netzwerke
Delphi
by Klaus01,
11. Okt 2011
Oder ein Timeout hat zugeschlagen.
Kannst Du den Traffic tracen (mit Wireshark)?
Kommt wirklich eine Verbindung zustande.
Grüße
Klaus