HTTP- Get Request, Zahl auslesen

breytex · Hält's aus hier Beiträge: 1

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 · Verfasst: 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.

Damit kannst du das so machen:

markieren

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. ;-)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme