Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi wie kann ich ip herausfinden??? (https://www.delphipraxis.net/16316-wie-kann-ich-ip-herausfinden.html)

steve-allround 15. Feb 2004 00:36
wie kann ich ip herausfinden???
 
Hallo,
gibt es ein Quellcode für html wie meine derzeitige IP-Adresse ist?
Es soll auch per WWW verfügbar sein.
Ich suche das schon seit Tagen.
Danke für eue Hilfe.

www.steve-allround.de

stoxx 15. Feb 2004 00:39
Re: wie kann ich ip herausfinden???
 
probiers mal mit einer Datei

test.shtml

und dort schreibst Du rein

<HTML><HEAD>
<TITLE>IP-Address</TITLE>
</HEAD><BODY>

</BODY></HTML>

und lädst es auf Deinen Server ...
wenn das das ist, was Du meinst ?

steve-allround 15. Feb 2004 00:45
Re: wie kann ich ip herausfinden???
 
habe ich so gemacht, aber noch nicht ins web gestellt, es wird aber nix angezeigt...


Hilfe!!!!!

Die Muhkuh 15. Feb 2004 07:05
Re: wie kann ich ip herausfinden???
 
probiers mal so:

Test.php

Code:
<HTML><HEAD>
<TITLE>IP-Address</TITLE>
</HEAD><BODY>
<?php
$var = "REMOTE_ADDR";
echo $var
?>
</BODY></HTML>

steve-allround 15. Feb 2004 14:52
Re: wie kann ich ip herausfinden???
 
geht nicht, ich kann die php. Seite nicht öffnen und wenn ich es mit html programmieren, zeigt er mir nix an.
oder wie soll ich den Quellcode programmieren?
ich wollte es über eine html seite tun.

Danke

Meflin 15. Feb 2004 14:56
Re: wie kann ich ip herausfinden???
 
nur mit html geht das nicht. dazu brauchst du z.B. php. das geht aber nur, wenn dein host php unterstüzt!

steve-allround 15. Feb 2004 15:20
Re: wie kann ich ip herausfinden???
 
der unterstütz es, und wie soll dann das komplette programm aussehen?
habe noch nie mit php programmiert.

fkerber 15. Feb 2004 15:22
Re: wie kann ich ip herausfinden???
 
Hi!

Den Code von Spider in ne datei mit der Endung php stecken, hochladen und aufrufen.

Ciao fkerber

Meflin 15. Feb 2004 15:23
Re: wie kann ich ip herausfinden???
 
<? echo $REMOTE_ADDR ?>

Benedikt 15. Feb 2004 15:36
Re: wie kann ich ip herausfinden???
 
Wobei es ja eigentlich:
Code:
<?php echo $_SERVER['REMOTE_ADDR']; ?>
heißen müsste, ganz korrekt nach neueren PHP4-Versionen und Unwissenheit von ShortTags, bzw deren Aktivierung :-D

Synonym 15. Feb 2004 15:54
Re: wie kann ich ip herausfinden???
 
bei einigen Server muss das
Code:
<?php
allein stehen!


Also schreib:

Code:
<?php
echo("$REMOTE_ADDR");
?>
Gruß

Synonym

Synonym 15. Feb 2004 15:56
Re: wie kann ich ip herausfinden???
 
Kannst das alles aber auch nur mit einem Code für Delphi machen...Dieser code funzt!
Dann brauchste dich um das php zeugs nicht kümmern!


Delphi-Quellcode:
//nutzt Indy idhttp

var
ip : string;
begin
//schreibe IP in str
str := idhttp1.get('http://www.ixtreme.de/index/ip.php');
//zeige IP an
ShowMessage(str);
end;
Quelle: XAR Code Library

Synonym

lorenz 15. Feb 2004 16:59
Re: wie kann ich ip herausfinden???
 
Zitat:
Zitat von Synonym
Code:
<?php
echo("$REMOTE_ADDR");
?>
Meiner Meinung nach darf eine Variable nicht in Anführungszeichen stehen, das heisst, es müsste heissen
Code:
<?php echo($REMOTE_ADDR); ?>
MfG

Lorenz

Chewie 15. Feb 2004 17:16
Re: wie kann ich ip herausfinden???
 
Zitat:
Zitat von lorenz
Meiner Meinung nach darf eine Variable nicht in Anführungszeichen stehen,
Doch. Strings, die in doppelten Anführungszeichen stehen, werden darauf geprüft, ob Variablennamen darin vorkommmen und die Variablen werden ausgewertet. Ist aber in diesem Fall schwachsinnig, das so zu machen.

steve-allround 15. Feb 2004 17:36
Re: wie kann ich ip herausfinden???
 
hy
habe das wie ihr sieht hier in delphi hereincopiert, aber er bringt mir folgende Fehlermeldung:

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
ip : string;
begin
//schreibe IP in str
str := idhttp1.get('http://www.ixtreme.de/index/ip.php');
//zeige IP an
ShowMessage(str);
end;

end.
[Fehler] Unit1.pas(36): '(' erwartet, aber ':=' gefunden

oder muss ich noch was bei uses eintragen?
oder im Formular einfügen?

CalganX 15. Feb 2004 17:38
Re: wie kann ich ip herausfinden???
 
Hi,
Zitat:
Zitat von steve-allround
[Fehler] Unit1.pas(36): '(' erwartet, aber ':=' gefunden
klar. Der Sourcecode ist ja auch falsch.

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
  ip : string;
begin
  ip := idhttp1.get('http://www.ixtreme.de/index/ip.php');
  ShowMessage(ip);
end;

end.
Chris

Die Muhkuh 15. Feb 2004 17:40
Re: wie kann ich ip herausfinden???
 
Zitat:
Zitat von steve-allround
hy
habe das wie ihr sieht hier in delphi hereincopiert, aber er bringt mir folgende Fehlermeldung:

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
ip : string;
begin
//schreibe IP in str
str := idhttp1.get('http://www.ixtreme.de/index/ip.php');
//zeige IP an
ShowMessage(str);
end;

end.
[Fehler] Unit1.pas(36): '(' erwartet, aber ':=' gefunden

oder muss ich noch was bei uses eintragen?
oder im Formular einfügen?
Schreib mal so:

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
ip : string;
begin
//schreibe IP in str
ip := idhttp1.get('http://www.ixtreme.de/index/ip.php');
//zeige IP an
ShowMessage(ip);
end;

end.

Edit: Mist :wall: zu langsam :wall:

steve-allround 15. Feb 2004 18:02
Re: wie kann ich ip herausfinden???
 
habe folgendes Code eingegeben und da kommt diese Fehlermeldung.

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
ip : string;
begin
//schreibe IP in str
ip := idhttp1.get('http://www.ixtreme.de/index/ip.php');
//zeige IP an
ShowMessage(ip);
end;

[Fehler] Unit1.pas(39): Undefinierter Bezeichner: 'idhttp1'

CalganX 15. Feb 2004 18:08
Re: wie kann ich ip herausfinden???
 
Hi,
du musst natürlich noch die Komponente TidHTTP von den INDYs auf dein Formular setzen (und idhttp1 nennen).

Chris

fkerber 15. Feb 2004 18:09
Re: wie kann ich ip herausfinden???
 
Hi!

IdHttp ist eine Komponenete von der Register-Seite Indy-Clients

Du musst sie zuerst auf deinem Form plazieren.

Ciao fkerber

steve-allround 15. Feb 2004 18:12
Re: wie kann ich ip herausfinden???
 
danke, es funktioniert, vielen vielen dank

by
schönes we noch

stoxx 15. Feb 2004 18:17
Re: wie kann ich ip herausfinden???
 
Zitat:
Zitat von steve-allround
danke, es funktioniert, vielen vielen dank

by
schönes we noch
und falls Du keinen Router hast, erscheint Deine IP auch mit dieser Funktion :-)

Code:
function TFTP.GetLocalIPs: string;
type
  PPInAddr = ^PInAddr;
var
  wsadata : TWSAData;
  hostinfo : PHostEnt;
  addr    : PPInAddr;
begin
  Result  := '';

  if(WSAStartUp(MAKEWORD(1,1),wsadata) = 0) then
  try
    hostinfo := gethostbyname(nil);
    if(hostinfo <> nil) then begin
      addr  := pointer(hostinfo^.h_addr_list);
     // sm(hostinfo^.h_name);

      while(addr^ <> nil) do begin
        Result := Result + inet_ntoa(addr^^) + '</br>'; { + ^M^J} ;
        inc(addr);
      end;
    end;
  finally
    WSACleanUp;
  end;
end;
und falls es die besagte 'http://www.ixtreme.de/index/ip.php' Datei irgendwann nicht mehr geben wird,
dann nimmst Du einfach die von mir anfangst erwähnte shtml Datei und lädst sie ins Internet.
und machst genau dasselbe mit der, wie mit der 'http://www.ixtreme.de/index/ip.php' Datei :-)

viele Grüße

little-wolf 19. Feb 2004 14:04
Re: wie kann ich ip herausfinden???
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo

habe vor einiger Zeit auch mal danach gesucht, und dann
auch was gefunden...

Hier ein Beispiel-Programm zum downloaden...


Gruss

little-wolf

Nachtrag:
Ou, sorry, habe nicht gesehen, dass es da noch ne zweite seite
hatte... :oops:

DataCool 19. Feb 2004 23:15
Re: wie kann ich ip herausfinden???
 
Hi,

der Fehler ist ja schon gefunden worden. Hatte noch nicht alles gelesen und schon gepostet.

Gruß Data

Synonym 19. Feb 2004 23:19
Re: wie kann ich ip herausfinden???
 
wieso ist str resaviert?


synonym


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:11 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz