Nachdem ich erfolglos nach einer mgl gesucht habe Bestimmte Geräte wie MIB zu finden, was daran liegt, das dieses kein MIB verwenden. hab ich mich entschieden diese erst mal anzupingen um anschliesend darauf aufzubauen. Leider bekomme ich allerdings bei Adressen, welche 100 pro nicht Im Netzwerk vorhanden sind die Info IP: 10.0.0.5 erfolgreich gefunden.
Hier der Code, den in erster Linie alle Geräte listen soll.
Code: Alles auswählen
unit unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls, pingsend, lNetComponents;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ private declarations }
MyPing: TPingSend;
count: Byte;
public
{ public declarations }
end;
var
Form1: TForm1;
const
IP = '10.0.0.';
implementation
{ TForm1 }
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Inc(Count);
Button1.Caption:= ip+IntToStr(count);
if MyPing.Ping(IP+inttostr(count)) then Memo1.Lines.Add('IP: '+ip+IntToStr(count) +' erfolgreich gefunden')
else Memo1.Lines.Add('Timeoutfehler auf IP: '+ip+IntToStr(count));
if Count = 255 then Timer1.Enabled:=False;
end;
procedure TForm1.Button1Click(Sender: TObject);
//var temp: String;
begin
timer1.Enabled:=True;;
// temp:= TraceRouteHost('facebook.de'); <<<--------- Mit war mal so :D :mrgreen:
// Memo1.Lines.Add(temp);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
MyPing:= TPingSend.Create;
end;
initialization
{$I unit1.lrs}
end.
und der Kreis Segeberg meine 
Aber kann man vermeiden, das einige sachen nach einer Zeit Tx = 1000ms oder auch Timer1.interval = 1000 abbrechen? Ohne das es einen Fehler gibt?
Verein
Links
Suche