TServerSocket: Abfrage von RemoteHost stoppt Programm

[Helmi]

Hallo,

ich hab seit neuersten ein Problem mit "RemoteHost von TServerSocket.

erst mal Code:

Delphi-Quellcode:

procedure TMainForm.ComboBox_ClientSelect(Sender: TObject);
var
  i, i_Item: Integer;
  S_Item: String;

begin
  //Variable leeren
  ausgewaehlter_Client := -1;

  //Text im ausgewähltem ComboBox-Eintrag auslesen
  i_Item := ComboBox_Client.ItemIndex;
  S_Item := ComboBox_Client.Items.Strings[I_Item];

  with ServerSocket.Socket do
    begin
      If i_Item > 0 then
        for i := 0 to Pred(ActiveConnections) do
          If Connections[i].RemoteHost = S_Item then  //<<--hier wird gebremst
            begin
              //Wenn Name gefunden wurde, dann Variable beschreiben
              ausgewaehlter_Client := i;
              break;
            end;
      { ...}

    end;
end;

Wie man sieht, wird aus einer ComboBox der ausgewählte String in S_Item geschrieben und in der Schleife mit RemoteHost verglichen.
Und nun ist mir aufgefallen, dass in dieser Abfrage das Programm stoppt - richtig hängenbleibt für ein paar Sekunden.

Leider brauch ich diese Abfrage.
Weiss jemand, warum diese Abfrage stoppt und wie ich es umgehen kann?

Falls es jemanden interessiert: Die Variable "ausgewaehlter_Client" ist vom Typ Integer

[IngoD7]

Zitat:

Zitat von Helmi

Delphi-Quellcode:

procedure TMainForm.ComboBox_ClientSelect(Sender: TObject);
...
  with ServerSocket.Socket do
    begin
      If i_Item > 0 then
...

Damit wird bei Auswahl des ersten Eintrags der ComboBox (Index 0) nicht geprüft.
Ist das Absicht?

[Helmi]

Hallo,

ja - ich vergaß - dass der Index 0 nicht geprüft werden soll ist Absicht!
Das hat seinen Grund.

Ist aber leider nicht die Lösung des Problems

[Helmi]

*push*

hat jemand ne ahnung wieso das hängt?

[Zacherl]

Eine Lösung hätte ich nicht direkt .. nur den Vorschlag evtl. auf die Indys umzusteigen =/

[Helmi]

ne - bitte nicht solche Antworten!

ich tipp jetzt nicht mein ganze Projekte um (es betrifft mehrere) nur wegen dieser einen If-Abfrage

[Zacherl]

Ahso, ne dann ist klar .. würde ich auch nicht machen ..

Muss es der Host sein? Sonst könntest du ja mal: RemoteAddress versuchen.

[Helmi]

Hallo,

ich brauch leider RemoteHost um den Rechner-Namen rauszufinden

[Zacherl]

Geht es um ein Netzwerk Programm oder verbinden auch Rechner übers Internet?

[Helmi]

Hallo,

es verbinden sich nur Rechner im localen Netzwerk - also keine Internet-Verbindung

[Methi]

Hallo,
ich habe im Grunde diegleiche Routine bei mir, bis auf, das ich statt Pred High benutze... bei mir läuft es so ohne Probleme....

[Helmi]

Hallo,

und du hast keine Probleme mit High?
Ich meine nur, dass es bei der Abfrage:

Delphi-Quellcode:

If Connections[i].RemoteHost = S_Item then

wohl zu einem Crash kommt, weil Connections ja ab Index 0 arbeitet und i ja größer werden könnte als das maximale i