nettes tool, aber wenn ich meine bin auf deinen sourcecode gespannt, würd ihn gern mit dem weg vergleichen, den ich in meinem chatprogramm verwende um die internet
IP herauszufinden
[EDIT]
es funktioniert bei mir (WinXP Home) einwandfrei
So ermittle ich die internet
IP:
Um die dauerhafte verfügbarkeit zu gewehrleisten(es ist zwar unwahrscheinlich, das eine solche seite wie
www.wieistmeineip.de mal offline geht, aber es kommt vor) zu können, lade ich die getip.php auf einen freespace von z.B. funpic.de oder ohost.de hoch.
Sourcecode der php datei:
Code:
<?php
echo $REMOTE_ADDR;
?>
Nun erstelle ich ein projekt mit z.B. folgendem code unter der verwendung der indys (hier indy9):
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP;
type
TForm1 =
class(TForm)
IdHTTP1: TIdHTTP;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=idHTTP1.Get(hier
URL zu der getip.php eintregen, bei mir z.B.'
http://auspex.au.ohost.de/getip.php');
end;
end.
und schwupp schon hab ich meine internet
IP
[/EDIT]