Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - HTTP- Get Request, Zahl auslesen


breytex - Fr 06.03.09 12:48
Titel: HTTP- Get Request, Zahl auslesen
Hallo zusammen.
Ich erkläre kurz, um was für ein programm es sich handelt.

Es geht darum, durch Permutation die schnellste Verbindung (bzw die kürzeste) zu finden.
Ich Fahre mit einem Auto von A über B C und D zurück nach A.
Welcher Weg ist der kürzeste.
Wir machen das aktuell in der Schule.

Ich würde das ganze gerne Realistisch machen, und würde gerne die wirklichen KM-Abstände aus einem Internetdienst wie Googlemaps auslesen.
Zu diesem Zewck habe ich mir in PHP schon ein script geschrieben, welches aus 2 per GET übergebenen Orten den Abstand berechnet (durch wiederrum Anfragen bei einer Maps-Website) und diese zahl dann einfach ausgibt.
Im Quelltext steht dann also nur sowas: "835".

Mit dieser Zahl möchte ich nun in Delphi arbeiten.
Das PHP Script liegt online auf einem normalen Server.

Für Delphi fehlen mir leider die Befehle dazu, da ich die Sprache auch nur für die Schule benutze...

Wie gehe ich das am besten an, ohne groß librarys einbauen zu müssen (davon habe ich unter delphi nämlich auch keine ahnung...)

Gibt es da was?
Die Zahl soll hinterher in einer ganz normalen Variable stehen.

Würde mich über Hilfe Freuen!
lG
breytex


jaenicke - Fr 06.03.09 13:27
Hallo, je nach Delphiversion sind die Indy Komponenten direkt dabei, sonst müssen die nachinstalliert werden. Dabei sind sie zum Beispiel auch bei der (neuesten kostenlosen) Version Turbo Delphi [http://www.delphi-library.de/viewtopic.php?p=539975].

Damit kannst du das so machen:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
 
var
  MyHttp: TIdHttp;
  PageContents: String;
  MyDistance: Integer;
begin
  MyHttp := TIdHttp.Create;
  try
    PageContents := MyHttp.Get('http://www.google.de');
  finally
    MyHttp.Free;
  end;

  // hier kannst du dann damit arbeiten
  if TryStrToInt(PageContents, MyDistance) then
    ShowMessage(PageContents)
  else
    ShowMessage('Keine gültige Zahl!');
Genauso könntest du aber auch die Anfrage der Entfernung direkt ohne eigenes PHP Skript machen. ;-)


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!