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.

Dann erstell sie dynamisch. Oder benutz UrlDownloadToFile.

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

@ 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.

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.

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.