Ist es irgendwie möglich mit einer Konsolenanwendung an einen bestimmten String einer Website zu bekommen?
Habe folgenden Source gefunden.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
IPSTR,
IP, HP:
string;
BeginIP, EndIP, i: integer;
begin
Button1.Enabled := False;
HP := ‘[
url]http:
//www.my-server.de/cgi-bin/GiveMeMyIp.pl’;[/url]
NMHTTP1.Get(HP);
IPSTR := (NMHTTP1.Body);
BeginIP := Pos('
BEGINIP', IPSTR) + Length('
BEGINIP');
EndIP := Pos('
ENDIP', IPSTR);
IP := '
';
for i := BeginIP
to ENDip - 1
do
begin
IP :=
IP + IPstr[i];
end;
label1.Caption :=
IP;
Button1.Enabled := True;
end;
GiveMeMyIp.pl:
Code:
#!/usr/local/bin/perl
use CGI qw/:standard/;
print "Content-type: text/
html\n\n";
print "BEGINIP".$ENV{REMOTE_ADDR}."ENDIP";
Das einzige wodran es hapert ist das mit NMHTTP1. Ich kann ja keine
Indy Kompo auf die Anwendung ziehen.