Einzelnen Beitrag anzeigen

TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.060 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: GET request mit JSON Antwort

  Alt 13. Jul 2018, 08:38
Gibt es noch andere wege ?
Ich bin mir nicht sicher, ob deine Frage ist, ob wir dir andere Frameworks/Komponenten nennen sollen und aufzeigen, wie es mit denen geht.

Aber wenn ja, dann kannst du mit den mitgelieferten HTTP-Komponenten bspw. so die JSON-Antwort erhalten:

Delphi-Quellcode:
uses
  System.Net.HttpClient;

{$R *.dfm}
const
  ADDRESS = 'http://www.codigopostal.gov.co/glow/param/?municipio=Santa%20Marta&departamento=Magdalena&direccion=Cra.%2016%20%231c-20';

procedure TForm3.Button2Click(Sender: TObject);
var
  HttpClient: System.Net.HttpClient.THTTPClient;
  Response: System.Net.HttpClient.IHTTPResponse;
  Content: string;
begin
  HttpClient := THTTPClient.Create;
  try
    Response := HttpClient.Get(ADDRESS);
    if Assigned(Response) then
    begin
      if Response.StatusCode = 200 then
      begin
        Content := Response.ContentAsString;
        Memo1.Lines.Add(Content);
      end;
    end;
  finally
    HttpClient.Free;
  end;
end;
  Mit Zitat antworten Zitat