wie kann ich ip herausfinden???

[Synonym]

bei einigen Server muss das

Code:

<?php

allein stehen!


Also schreib:

Code:

<?php
echo("$REMOTE_ADDR");
?>

Gruß

Synonym

[Synonym]

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]

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]

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]

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]

Hi,

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]

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 zu langsam

[steve-allround]

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]

Hi,
du musst natürlich noch die Komponente TidHTTP von den INDYs auf dein Formular setzen (und idhttp1 nennen).

Chris

[fkerber]

Hi!

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

Du musst sie zuerst auf deinem Form plazieren.

Ciao fkerber