IPSonar ?

[Torsten Bloth]

Hallo Andreas Kosch!

Gibt es irgendwo den Quelltext für das Program 'IPSonar', welches sich auf der CD zu Ihrem Buch 'Delphi - Win32 Lösungen' befindet.
Oder können Sie mir ein Beispiel geben, wie ich auf einmal alle verfügbaren IP-Adressen eines Netzwerks (LAN oder Internet) auflisten kann? Sehr interessant wäre auch die Ermittlung der zu den IP-Adressen gehörigen Rechnernamen.

mfg

Torsten

[Andreas Kosch]

Hallo,

auf der CDROM zum Buch sind alle Projektdateien von IPSonar (Verzeichnis <i>Kapitel IPC\Sockets\Delphi 4\IPSonar</i>). Um das Programm in Delphi 4 öffnen zu können, muss die Freeware-Komponente »TPing« von François PIETTE aus der <i>Internet Component Suite</i> (http://www.rtfm.be/fpiette/indexuk.htm) installiert sein.

Das Prinzip ist simpel - in einer Schleife werden alle IP-Adressen im definierten Bereich "ausprobiert":
<pre>
for iCnt := iMin to iMax do
begin
Application.ProcessMessages;
if FCancelPing then
Break;
sIP := EditIP.Text + IntToStr(iCnt);
StatBar.Panels[1].Text := sIP;
Inc(iPos);
Progress.Position := iPos;
Ping1.DnsLookup(sIP);
Application.ProcessMessages;
end;
</pre>
Die ganze Arbeit macht die <b>TPing</b>-Komponente:
<pre>
procedure TFormMain.Ping1EchoReply(Sender: TObject; Error: Integer);
begin
if Error <> 0 then begin
ListBoxPC.Items.Add(Format('%s (Zeit: %d ms)',
[FSearchIP, Ping1.Reply.RTT]));
ListBoxPC.Refresh;
Inc(FFoundPC);
CheckWebServer(FSearchIP);
end;
end;

procedure TFormMain.Ping1DnsLookupDone(Sender: TObject; Error: Word);
begin
FSearchIP := Ping1.DnsResult;
Ping1.Address := FSearchIP;
Ping1.Ping;
end;
</pre&gt

[Torsten Bloth]

Hallo Andreas

Ja ja, so ist das, wenn man nicht genau hinschaut.
Besten Dank für Deine Antwort

mfg

Torste