Synapse - Subnet-Scanner, Threads

[theo]

edit:// Bei sleep(100) bringt er nur die, die da sind. Es funktioniert, ist aber zu langsam.

Scheint mir unlogisch.
Wo gibst du das jetzt aus?

[_X_]

Code: Alles auswählen

procedure TMyApplication.threadterminated(Sender: TObject);
begin
 dec(z);
 if nThread(Sender).res <> '' then begin
   hosts.Add(nThread(Sender).res);
 end;
end;

hosts: stirngliste
Und nach der while-Schleife die Stringliste mit writeln.

mfg _X_

[theo]

Joh, müsste eig. klappen.
Funzt das Ganze denn ohne Threads richtig?

[mschnell]

sleep blockiert scheinbar auch die Threads.

Bei sleep() wartet nur der Thread, in dem sleep() aufgerufen wird. Alle anderen laufen weiter.

Sleep() im Mainthread blockiert die GUI, und damit auch Threads, die "Synchronize" machen, weil die im Synchronize-Aufruf auf die GUI warten müssen.

-Michael

[_X_]

Funzt das Ganze denn ohne Threads richtig?

Wie meinst du das?

Sleep() im Mainthread blockiert die GUI, und damit auch Threads, die "Synchronize" machen, weil die im Synchronize-Aufruf auf die GUI warten müssen.

Ist klar. Ich hab in den Threads kein Synchronize.

Der Scanner findet manchmal IPs die nicht online sind. Problem ist ja bekannt, aber woran kann das liegen?

mfg _X_

[Lord Horazont]

Verstehe ich richtig, dass du alle aktiven IPs in einem Subnetz haben willst? Dann würde ich mal das Konzept ändern und vielleicht einen Broadcast-Ping machen, anstatt so viele einzelne Pings ins nichst zu schicken. Im Zweifelsfall ist ein Broadcast auch für das Netzwerk schonender, allerdings kanns sein, dass der Router dir das verbietet und das Package verwirft, sollte aber eher nicht vorkommen.

Gruß Lord Horazont

[_X_]

Verstehe ich richtig, dass du alle aktiven IPs in einem Subnetz haben willst?

Ja

mfg _X_

edit:// übrigens: was hat es für einen Sinn, einen Broadcast-Ping zu machen, wenn das im I-Net sowiso nicht geht? Die meisten Provider blocken das.