IP und Port im Netzwerk herrausfinden

[Plague]

Hallo,

ich beschäftige mich im Moment mit den Indy Netzwerk Komponenten.

Ich würde nun gerne wissen, ob es möglich ist, die eigene IP Adresse und den Port im lokalen Netzwerk herrauszufinden. Geht das? Wenn ja wie?

Ich meine nicht die Internet IP, die ich durch eine HTTP-Abfrage tätigen könnte...

Gruß
Thomas

[SubData]

Und welchen Port im Netzwerk möchtest du bitte rausfinden?

[Plague]

Das ist eine gute Frage

Ich möchte den Port, den die Indy TCP-Client Komponente nutzt herrausfinden!

Gruß
Thomas

[Harry M.]

damit sollte es gehn.

Code:

uses Winsock;

function getIPs: Tstrings; 
type 
  TaPInAddr = array[0..10] of PInAddr; 
  PaPInAddr = ^TaPInAddr; 
var 
  phe: PHostEnt; 
  pptr: PaPInAddr; 
  Buffer: array[0..63] of Char; 
  I: Integer;
  GInitData: TWSAData; 
begin 
  WSAStartup($101, GInitData); 
  Result := TstringList.Create; 
  Result.Clear; 
  GetHostName(Buffer, SizeOf(Buffer)); 
  phe := GetHostByName(buffer); 
  if phe = nil then Exit; 
  pPtr := PaPInAddr(phe^.h_addr_list); 
  I    := 0; 
  while pPtr^[I] <> nil do 
  begin 
    Result.Add(inet_ntoa(pptr^[I]^)); 
    Inc(I); 
  end; 
  WSACleanup; 
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines := GetIps;
end;

und bevor wieder einer mekert, ich weiß nicht woher ich den code habe ist nicht für dich @Plague

die "normale" netztwerkkomunikation" geht über 139

[phXql]

was ist eine "normale netzwerkkommunikation"? das mit den ports kann man nicht sicher sagen, kommt immer drauf an was für ein protokoll du benutzt, und selbst dann kann man nur den standard-port sagen.

[Harry M.]

na eben die normal netzwerkkomunikation wie etwas das kopieren auf eien unc pfad standartmässig tcp auf 139 haste den nicht offen kannste dein netzwerk nicht nutzen. is doch logo oder sollte ich mich doch so sehr irren?????

[SubData]

Nun ein wenig irrst du da schon...
Es stimmt, dass gewisse Standard Ports freigegeben sein müssen, damit solche Art der Kommunikation funktioniert allerdings ist das von Dienst zu Dienst unterschiedlich und viele Dienste verwenden auch dynamische Ports, die per "Zufall" erzeugt werden...

[Plague]

Kann ich den Port also vergessen? Solange mein Programm auch so funktioniert ist es mir mehr als recht!

Gruß
Thomas

[phXql]

Zitat von delphicus:

na eben die normal netzwerkkomunikation wie etwas das kopieren auf eien unc pfad standartmässig tcp auf 139 haste den nicht offen kannste dein netzwerk nicht nutzen. is doch logo oder sollte ich mich doch so sehr irren?????

ja, unter windows stimmt das schon ^^. aber es soll bekanntlich mehr systeme als windows geben