Zugriff einer Konsolenanwendung auf eine Website

[dR4g0N]

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.

[Luckie]

Dann erstell sie dynamisch. Oder benutz UrlDownloadToFile.

[woki]

Zitat:

Zitat von dR4g0N

Das einzige wodran es hapert ist das mit NMHTTP1.

hmmmmm...

1. Delphi 7 und Fastnet Komponenten (TNMHttp?) :?: :?: :?:
Bis du da ganz sicher?

Zitat:

Zitat von dR4g0N

Ich kann ja keine Indy Kompo auf die Anwendung ziehen.

2. Warum nicht, können Konsolenanwendungen nicht mit Datenmodulen umgehen?
Dann bleibt dir ja immer noch die Möglichkeit, die TNMHttp-Instanzen dynamisch im Code zu erzeugen.

Grüsse
Woki

[dR4g0N]

@ luckie

gut mit urldownloadfileto kann ich schon was anfangen, aber wie soll ich sie dynamisch erstellen. kann du dadrauf noch etwas genauer eingehen.

meinst du ich soll mir die datei runterladen, die ip auslesen und danach evtl wieder deleten?

und @ woki

zu deinen vorschlägen kann ich nichts sagen. bin eher noch der delphi anfänger und daher kenne ich z.b. die fastnet kompos oder die andere variante nicht.

[Luckie]

Zitat:

Zitat von dR4g0N

@ luckie

gut mit urldownloadfileto kann ich schon was anfangen, aber wie soll ich sie dynamisch erstellen. kann du dadrauf noch etwas genauer eingehen.

Im Zusammenhang mit UrlDownloadToFile habe ich nie was vom dynamischen von Komponenten gesagt.

Zitat:

meinst du ich soll mir die datei runterladen, die ip auslesen und danach evtl wieder deleten?

Warum nicht? So abfeging die Vorstellung? Es gibt dafür auch ein deutschen Wort: löschen.

[dR4g0N]

Zitat:

Zitat von Luckie

Im Zusammenhang mit UrlDownloadToFile habe ich nie was vom dynamischen von Komponenten gesagt.

ups sry hab mich nur bei dem ganzen chaos falsch ausgedrückt. hab schon verstanden das es 2 verschiedene möglichkeiten sind.