program test_api;

{$mode objfpc}{$H+}

uses
  SysUtils, fphttpclient, openssl, fpjson, jsonparser, Classes;

const
  API_BASE_URL = 'https://paul-koop.org/api/';

var
  Client: TFPHTTPClient;
  ResponseStream: TStringStream;
  ResponseText: string;
  JSON: TJSONData;
begin
  WriteLn('=== Teste GetProfiles direkt ===');
  
  Client := TFPHTTPClient.Create(nil);
  ResponseStream := TStringStream.Create('');
  try
    InitSSLInterface;
    Client.AllowRedirect := True;
    Client.RequestHeaders.Add('X-User-ID: 2');
    Client.RequestHeaders.Add('X-Session: 069621c4bc1bf9eb9a26eed4c0c2e2c5');
    
    WriteLn('Sende GET an: ', API_BASE_URL + 'api_profiles.php');
    Client.Get(API_BASE_URL + 'api_profiles.php', ResponseStream);
    
    ResponseText := ResponseStream.DataString;
    WriteLn('Status: ', Client.ResponseStatusCode);
    WriteLn('Response: ', ResponseText);
    
    if (Client.ResponseStatusCode = 200) and (ResponseText <> '') then
    begin
      JSON := GetJSON(ResponseText);
      if Assigned(JSON) then
      begin
        WriteLn('JSON Typ: ', JSON.JSONType);
        if JSON.JSONType = jtArray then
          WriteLn('Anzahl Profile: ', TJSONArray(JSON).Count)
        else
          WriteLn('JSON ist kein Array');
        JSON.Free;
      end;
    end;
    
  finally
    ResponseStream.Free;
    Client.Free;
  end;
  
  WriteLn('Drücke Enter zum Beenden...');
  ReadLn;
end.