Online Daten abrufen

[Sir Rufo]

Eine Abfrage geht z.B. so

Delphi-Quellcode:

program dp_186866;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  IdHTTP;

procedure Main;
var
  http     : TIdHTTP;
  resultStr: string;
begin
  http := TIdHTTP.Create( nil );
  try
    resultStr := http.Get( 'http://jsonplaceholder.typicode.com/posts/1' );
  finally
    http.Free;
  end;

  Writeln( resultStr );
end;

begin
  try
    Main;
  except
    on E: Exception do
      Writeln( E.ClassName, ': ', E.Message );
  end;
  ReadLn;

end.

und liefert:

Code:

{
  "userId": 1,
  "id": 1,
  "title": "sunt aut facere repellat provident occaecati excepturi optio reprehenderit",
  "body": "quia et suscipit\nsuscipit recusandae consequuntur expedita et cum\nreprehenderit molestiae ut ut quas totam\nnostrum rerum est autem sunt rem eveniet architecto"
}

[BUG]

Zitat von Sir Rufo:

http://jsonplaceholder.typicode.com/

Hui, gleich ab in die Lesezeichen

[julien91]

Danke schonmal für die hilfreichen Antworten!
Ich würde die Daten gerne von folgender Website erhalten: http://www.schrottpreis.org/aluminium/
dort ist rechts eine Tabelle mit den Preisen.

[Daniel]

Im einfachsten Fall kontaktierst Du den Anbieter einer solchen Seite und fragst ihn nach einer auslesbaren Variante der Daten. Je nach Geschäftsmodell trifft man da durchaus auf offene Ohren. Für Dich hätte dies den Vorteil eines definierten Einstiegspunktes und strukturierten Daten in Form von JSON/XML/etc.

Alternativ müsstest Du Dir das HTML greifen (geht z.B. über o.g. Beispiel) und dann ausparsen. Wie das geht, findest Du unter den Stichworten "HTML" und "parsen" zuhauf im Forum.

Einfach Daten auslesen und selbst - vielleicht sogar kommerziell nutzen - ist nicht immer gern gesehen. Zudem besteht für Dich das Risiko, dass die o.g. Seite umgebaut wird und Dein Zugriff fortan ins Leere läuft.

[julien91]

Okay danke.
Vielen Lieben Dank für die Hilfe.