Zugriff einer Konsolenanwendung auf eine Website

Ist es irgendwie möglich mit einer Konsolenanwendung an einen bestimmten String einer Website zu bekommen?

Habe folgenden Source gefunden.

zusammenfalten · markieren

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:

markieren

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.

Zugriff einer Konsolenanwendung auf eine Website

Zugriff einer Konsolenanwendung auf eine Website

Forumregeln