Eigene IP?

Rool · Beiträge: 211

Wie bekomme ich meine eigene IP? Also nicht die lokale sondern die, wenn man im Netz ist!

_________________
MFG Rool

Henry · Beiträge: 619 WinXP Prof. SP3 D6 Prof.

Hallo,

Diese Unit habe ich mal irgendwo in den Weiten des Internets oder einem Delphiforum gefunden (Ich möchte mich ja nicht mit fremden Federn schmücken). Leider weiß ich nicht mehr von wem die Unit ist

Ich kann also nichts näheres dazu sagen. Funktioniert bei mir aber ganz gut, mit dem anzeigen der IP.

Du mußt dann folgendes aufrufen

markieren

Delphi-Quelltext

1:	Label1.Caption := GetRASIP(1);

damit erhältst die IP die Dein Provider dir beim einwählen gegeben hat.

Natürlich nicht vergessen Unit einzubinden

Unit siehe unten.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

unit InternetIP;

interface

uses Windows;

type
  PRasConn = ^TRasConn;
  TRasConn = record
  dwSize: DWORD;
  hRasConn: THandle; 
  szEntryName: array[0..256] of char;
  szDeviceType: array[0..16] of char;
  szDeviceName: array[0..128] of char;
end;

TRasPPPIP = record
  dwsize: DWORD;
  dwerror: DWORD; 
  szlpAddress: array[0..15] of char;
end;

function RASGetProjectionInfo(hRasConn: THandle;
  RasProjection: DWORD;
  var lpRasPPPIP: TRasPPPIP;
  var lpcb: DWORD): DWORD;
  stdcall;

function RASEnumConnections(lpRasConn: Pointer;
  var lpcb: DWORD;
  var lpcConnections: DWORD): DWORD; 
  stdcall; 

function GetRASIP(Nr: Integer): String;

implementation 

function RASEnumConnections; 
external 'RASAPI32.DLL' name 'RasEnumConnectionsA'; 
function RASGetProjectionInfo;
external 'RASAPI32.DLL' name 'RasGetProjectionInfoA'; 

function GetRASIP(Nr: Integer): String; 
var 
  RasCon:Array[1..25] of TRasConn;
  RASSize, RASFilledInBuffer, RASIPSize: DWord; 
  RASPPIp:TRasPPPIP; 
  IPPas:Array[1..16] of Char; 
begin 
  Result:='';
  Rascon[1].dwSize := SizeOf(TRasConn); 
  RASSize := SizeOf(TRasConn); 
  if RasEnumConnections(@RasCon,RASSize,RASFilledInBuffer)=0 then begin 
    RASPPIp.dwsize:=SizeOf(TRASPPPIp);
    RASIPSize:=SizeOf(TRASPPPIp); 
    RASGetProjectionInfo(RasCon[Nr].hRasConn,$8021,RASPPIp,RASIPSize); 
    Result:=RASPPIp.szlpAddress;
  end; 
end;

end.

Moderiert von Tino: Code- durch Delphi-Tags ersetzt

_________________
mfg Henry

Savage · Beiträge: 110

Hi,

mit der Unit muss man jedoch vorsichtig sein, weil diese Funktion nur für Dial-Up Connections funktioniert. Funktionieren dürfte sie nicht bei Standleitungen oder Internetzugängen via Proxy.

MfG
Savage

Henry · Beiträge: 619 WinXP Prof. SP3 D6 Prof.

Wie gesagt, ich habe sie nicht entwickelt.
Wenn mann sich aber über DFU einwählt funktioniert es.
Soviel kann ich dazu sagen.

Aber Danke für den Hinweis

_________________
mfg Henry

bis11 · Beiträge: 1247 Erhaltene Danke: 2 Apple Mac OSX 10.11

Schaut euch mal diese beiden Links an :

www.swissdelphicente...e/showcode.php?id=67

www.swissdelphicente.../showcode.php?id=965

patmann2001 · Beiträge: 201 Windows 7 Prof. Delphi XE2

Hallo

Warum in die Ferne schweifen, wenn das gute liegt so nah? :roll:

Siehe mal den Thread [url=www.entwickler-ecke....viewtopic.php?t=120]
Wie realisiere ich ein Internet-/Netzwerkchat? [/url] in unsem FAQ dort steht folgende Procedure drin.

Zitat:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

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;

Die benutze ich auch, sie gibt in der Line[0] die LAN IP zurück und in Line[1] die WAN IP. Ausserdem könnt ihr wie unter Wie lese ich die Internet-IP aus? im FAQ folgende Internetaddresse finden.

Zitat:

checkip.dyndns.org

Damit könnt Ihr überprüfen ob euch die Procedure die richtige IP wiedergegeben hat.

cu Patmannd

Moderiert von Tino: "auq.de" durch "entwickler-ecke.de" ersetzt
Moderiert von Tino: Code- durch Delphi-Tags ersetzt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme