IP Adresseabfragen

[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:
getConnectionList(Memo1.lines);
Du kannst als Parameter auch eine Stringlist angeben, diese kannst Du dann weiterverarbeiten.

Hoffe das hilft.

Grüße
Klaus