Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Online Daten abrufen (https://www.delphipraxis.net/186866-online-daten-abrufen.html)

julien91 7. Okt 2015 20:23

Delphi-Version: 2010

Online Daten abrufen
 
Hallöchen,

ich bin relativ neu hier im Forum und auch ziemlich neu beim Programmieren mit Delphi.
Ich habe eine Konsolenanwendung erstellt die mir einige Daten über einen Tankwagen liefert und um den Preis des Tankes zu ermitteln habe ich bisher die
Eingabe des users eingefordert. Nun möchte ich aber die nötigen Daten aus dem Netz ziehen.
Also hat jemand eine möglichst einfache Variante die Daten aus dem Internet zu ziehen?
Ich bräuchte den aktuellen Schrottpreis von Aluminium pro kg...

BUG 7. Okt 2015 20:30

AW: Online Daten abrufen
 
Brauchst du Hilfe beim Abrufen der Daten oder suchst du nach einer geeigneten Datenquelle?
Bei ersterem kann dir hier sicher geholfen werden, wenn das Zweite geklärt ist. Vielleicht bietet dein Abnehmer dir die Preise an wenn du nachfragst.

julien91 7. Okt 2015 20:36

AW: Online Daten abrufen
 
ICh brauche hilfe bei ersterem.

p80286 7. Okt 2015 22:27

AW: Online Daten abrufen
 
Wenn Du uns jetzt noch sagst wer bzw. welche Seite diese Information zur Verfügung stellt, dann könnte man z.B. heraus bekommen ob es ein API für den Zugriff auf Daten gibt.

Gruß
K-h

Sir Rufo 7. Okt 2015 23:26

AW: Online Daten abrufen
 
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 7. Okt 2015 23:56

AW: Online Daten abrufen
 
Zitat:

Zitat von Sir Rufo (Beitrag 1317973)

Hui, gleich ab in die Lesezeichen :stupid:

julien91 8. Okt 2015 06:52

AW: Online Daten abrufen
 
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 8. Okt 2015 06:58

AW: Online Daten abrufen
 
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 8. Okt 2015 07:00

AW: Online Daten abrufen
 
Okay danke.
Vielen Lieben Dank für die Hilfe.


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:13 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz