Entwickler-Ecke :: Thema anzeigen - Internet IP herrausfinden

Petros - So 16.05.10 18:26
Titel: Internet IP herrausfinden

hi ich wollte mal fragen ob mir jemand zufällig mal nen quellcode geben könnte um meine Internet IP herraus zu finden

Ich bedanke mich für eure Hilfe

MFG Petros

Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am So 16.05.2010 um 22:47

Gausi - So 16.05.10 18:51

Wenn du einen eigene Webseite hast, kannst du einfach ein kleines PHP-Skript auf deine Seite packen, das von deinem Programm aus aufrufen und die IP auslesen.
Ansonsten eine der zahlreichen "wie-ist-meine-IP"-Dienste im Netz nehmen, und die IP aus dessen Quellcode rausfriemeln. :D

Petros - So 16.05.10 19:18

So danke gausi für deinen Tipp für alle die ne lösung suchen

hier der Quelltext dazu

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:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer,
  IdCustomHTTPServer, IdHTTPServer, IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    IdHTTP2: TIdHTTP;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function getPublicIP:String;
var
  WebAddress: string;
  idHttp1: TIdHttp;
begin
  idHttp1 := TIdHttp.Create(nil);
  WebAddress   := 'http://www.whatismyip.com/automation/n09230945.asp';
  try
     result:=idhttp1.Get(WebAddress);
  except
    on E: Exception do
    begin
      MessageDlg('Could not get IP Address! ' +
        'Please ensure you are connected to ' +
        'the Internet.', mtError, [mbOK], 0);
    end;
  end;
  result:=trim(result);
  idHttp1.Free;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  edit1.Text:=getPublicIp; // oder halt Memo oder was Ihr halt als anzeige nutzen wollt
end;

end.

Hoffe ich kann einigen damit helfen

MFG Petros

Narses - So 16.05.10 22:52

Moin!

Petros hat folgendes geschrieben :

für alle die ne lösung suchen

...haben wir auch schon länger was in der Library [http://www.delphi-library.de/topic_Internet+IP+ueber+Internetseite+herausfinden_74581.html]. ;)

cu
Narses

Petros - Mo 17.05.10 15:43

ja hatte ich ja schon alles abgesucht aber nix passendes gefunden und habe deinen eintraf warscheinlich übersehene gahabt hatte dann nochmal dank gausis info bei google etwas spezificher gesucht und das dann gefunden

MFG Petros

Cyberkatze - Mo 17.05.10 18:43

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:

function HostToIP(name: string; var Ip: string): Boolean;
var
  wsdata : TWSAData;
  hostName : array [0..255] of char;
  hostEnt : PHostEnt;
  addr : PChar;
begin
  WSAStartup ($0101, wsdata);
  try
    gethostname (hostName, sizeof (hostName));
    StrPCopy(hostName, name);
    hostEnt := gethostbyname (hostName);
    if Assigned (hostEnt) then
      if Assigned (hostEnt^.h_addr_list) then begin
        addr := hostEnt^.h_addr_list^;
        if Assigned (addr) then begin
          IP := Format ('%d.%d.%d.%d', [byte (addr [0]),
          byte (addr [1]), byte (addr [2]), byte (addr [3])]);
          Result := True;
        end
        else
          Result := False;
      end
      else
        Result := False
    else begin
      Result := False;
    end;
  finally
    WSACleanup;
  end
end;


liegen auf dem Form diese componente Edit, button und Label... und für Burron mach OnClick procedure:

procedure TForm1.Button1Click(Sender: TObject);
var
  IP: string;
begin
  if HostToIp(Edit1.Text, IP) then
    Label1.Caption := IP;
end;

Moderiert von Gausi: Quote- durch Delphi-Tags ersetzt

Xentar - Mo 17.05.10 20:12

Ich mag bezweifeln, dass ihm dsa bei der Frage "Wie finde ich meine eigene Internet IP heraus" weiterhilft..

Pr0g3r - Do 20.05.10 20:09

Du gibst einfach in die cmd.exe Ipconfig ein und dann siehst du sie :)

Gausi - Do 20.05.10 20:20

Das bringt einem erstens nicht unbedingt was, wenn man das in seinem Delphi-Programm braucht, und zweitens gibt das (zumindest bei mir) nur die 192.168.0.irgendwas aus, und das ist mit ziemlicher Sicherheit nicht die IP, unter der ich gerade hier im Forum eingelogt bin. ;-)

Petros - So 23.05.10 02:21

ja geb ich dir recht gausi wie soll mir die Ipconfig nutzen brauche bei mir nur auf Lan rechtsklick machen dann auf details und schon hab ich die selben daten aber danke für deine meinung