TIdCmdTCPServer: Wie funktioniert das?

[Angel4585]

Hallo,

wie ich im andern Thread geschildert habe, habe ich einen Dienst der sich mit der TIdCmdTCPServer Komponente an den Port 4585 hängt.
Ich kann mich auch mit dem Client verbinden und das TCPView Tool von M$ zeigt mir auch an das eine Verbindung zwischen beiden Programmen besteht.

Ich habe jetzt auf dem Server einen CommandHandler "login" erstellt und ein Ereignis zugewiesen.
Wenn ich beim Client jetzt jedoch SendCmd('login') mache hängt der Client an dieser Stelle.
Der Server bekommt von alledem irgendwie garnichts mit. Ich logge das OnExecute, das OnCommand und noch einige Ereignisse mehr mit, bekomme aber null Input.

Also was für Optionen sind notwendig um das als Mini-Beispiel mal zum Laufen zu kriegen? Worauf muss ich achten?

[Angel4585]

Keiner en Plan was ich alles einstellen muss?

[Codewalker]

Ich habe genau das gleiche Problem gehabt, dass du auch hast und wäre an einer Lösung ebenso interessiert. Habe das vor einiger Zeit auch schon im Forum gepostet, aber es scheint niemand mit dem CmdServer zu arbeiten

[Angel4585]

Ach hab die Lösung:

Die Firewall blockt
Wenn ich ne normale Anwendung mache kommt ne Meldung ob die Firewall blocken soll oder nicht.
Wenn ich das ganze in einen Dienst packe kommt keine Meldung

Edit:Mist zu früh gefreut an der Firewall liegts dochnnciht, die iss jetz aus aber kommt trotzdem nix an

[Angel4585]

HA! Jetz gehts

Ich hatte folgende Methode aufgerufen, wenn ich den Aufruf ausklammere gehts:

Delphi-Quellcode:

function TMyService.CheckProcessRunning:Integer;
var
  le : TListEnumerator;
  c : TIdContext;
begin
Result:=0;
le:=IdCmdTCPServer1.Contexts.LockList.GetEnumerator;

while le.moveNext do
  begin
  c:=TIdContext(le.Current);
  c.Connection.SendCmd('test');
  if c.Connection.LastCmdResult.NumericCode = 200 then inc(Result);
  end;
IdCmdTCPServer1.Contexts.UnlockList;
end;

Also wo hab ich hier den Fehler?

[Codewalker]

Es geht? Wie hast du das jetzt gemacht?
Kannst du nicht ein Minimal-Beispiel hier attachen? Ich hatte nämlich schon aufgegeben...

[Angel4585]

OK, hier mal mein funktionierendes Beispiel, Server ist ein Dienst und Client eine Formularanwendung

Evtl muss die Firewall deaktiviert oder das Programm dort als Ausnahme eingefügt werden.

Edit: Das einzige Problem was ich hab ist, dass sich der Client ab und zu aufhängt, aber der Server läuft

[Angel4585]

Hmm.. sehr seltsam.
Das erste Übertragen funktioniert problemlos. Beim zweiten Versuch gibts ein ReadTimeOut und danach funktioniert es jedesmal
Was passiert denn da beim zweiten Versuch?