IP Adresseabfragen

[SaFu]

HI

Kann man eigentlich eine IP Adresse abfragen.

Z.b. ich wollte mit einem Eigenen Programm abfragen ob die IP z.B (feste IP) 192.x.x.x mit meinem rechener verbunden ist wenn ja, soll nichts passieren wenn die IP nichtmehr gefunden wird soll z.b. der Mauszeiger versetzt werden .

geht so was und wenn ja mit was??

Danke euch schonmal

Gruss Sascha

[s-off]

Hallo,

was genau möchtest Du jetzt?

Möchtest Du Deine eigene IP-Adresse herausfinden, oder wissen, ob eine IP-Adresse mit Deinem Recher 'verbunden' ist?

[DeddyH]

Definiere "verbunden".

[SaFu]

Ich will kontrolieren ob ein anderer Rechner mit der IP 192.x.x.x mit meinem Rechner verbunden ist wenn ja soll nichts Passieren, wenn nein soll was passieren z.b. ein label rot blinken oder was auch immer

"Verbunden" connected
über remote mit dem fremden Rechner auf meinen

[Klaus01]

Es gibt in der cmd Konsole ein kleine Tool, welches sich netstat nennt.
Die Ausgabe könntest Du noch der gesuchten IP durchsuchen.

Grüße
Klaus

[SaFu]

Sind das alle verbindungen mit der mein rechner verbunden ist.

Mit welcher komponente kann ich das machen

kann man das nicht ir´gendwie so machen

Delphi-Quellcode:

if ip('192.x.x.x').connected then
 begin
  nichts
 end
else
 begin 
  Label1.Rot.Blinken;
 end;
end;

[Klaus01]

Guten Abend Sascha,

Du willst aber auch immer alles auf dem Silbertablett serviert bekommen.

Ein Thread zu diesem Thema oder auch ein Tutorial oder hier steht wie Du eine
Consolenausgabe mit Delphi einfangen kannst.

Gute Nacht
Klaus

[SaFu]

nein das nicht aber wenn ich damit noch nie was gemacht habe weiss ich auch nicht wo ich anfagen soll

aber dank dir trotzdem

[Klaus01]

Hallo Sascha,
Du brauchst die Unit Doscommand.pas dort findest Du die Klasse TDosCommand. Du nimmst am besten die modifizierte.

Die Unit mußt Du in Dein Projekt einbinden.

Delphi-Quellcode:

procedure getConnectionList(data:TStrings); 
var 
  cmd : TDosCommand; 
  sl: TStringList; 

begin 
  cmd:= TDosCommand.Create(nil); 
  sl := TStringList.Create; 
  cmd.OutputLines:=sl; 
  cmd.InputToOutput:=true; 

  cmd.CommandLine:='netstat -n'; 
  cmd.Execute; 
  while cmd.Active do 
    application.ProcessMessages; 
  FreeAndNil(cmd); 
  data.assign(sl); 
  sl.Free; 
end;

Wenn Du die Verbindungen ausgeben willst, kannst Du das so machen:

Delphi-Quellcode:

getConnectionList(Memo1.lines);

Du kannst als Parameter auch eine Stringlist angeben, diese kannst Du dann weiterverarbeiten.

Hoffe das hilft.

Grüße
Klaus