Appercept AWS SDK

[HeartWare]

Er der nogen her på listen, der har erfaring med Appercept AWS SDK (den officielle version til Delphi, der kan installeres via GetIt).

Jeg har prøvet ChatGPT, men den roder sig ud en større omvej med kode, der ikke virker, så nu prøver jeg med mennesklig intelligens i stedet for maskinel :-)

Jeg har brug for en implementation (eller dokumentation/pegen-i-den-rigtige-retning) af

FUNCTION Rekognition(CONST Image : TBytes ; CONST AccessKeyID,SecretAccessKey,Region : STRING ; MaxLabels : Cardinal ; MinConfidence : Float) : STRING;

that sets up the call with the specified parameters, calls the Rekognition client and returns the JSON string back to me so I can parse it.

This is what ChatGPT spat out, but most of those UNITs can't be found:

-----------------------------------------------------------------------------------------------------------
uses
  System.SysUtils, System.Classes, System.NetEncoding,
  AWS.Rekognition.Client, AWS.Rekognition.Model.DetectLabels,
  AWS.Rekognition.Model.Image, AWS.Runtime.Credentials,
  AWS.Runtime.Client, AWS.Core;

function Rekognition(const Data: TBytes; const AccessKeyID, SecretAccessKey, Region: string): string;
var
  ClientConfig: IClientConfig;
  Credentials: IAWSCredentials;
  Client: IAmazonRekognitionClient;
  Request: TDetectLabelsRequest;
  ImageObj: TImage;
  Response: TDetectLabelsResponse;
  ImageStream: TBytesStream;
begin
  // Create AWS credentials
  Credentials := TBasicAWSCredentials.Create(AccessKeyID, SecretAccessKey);

  // Create client config with region
  ClientConfig := TClientConfig.Create;
  ClientConfig.RegionEndpoint := Region; // e.g. 'us-east-1'

  // Create Rekognition client
  Client := TAmazonRekognitionClient.Create(Credentials, ClientConfig);

  ImageStream := TBytesStream.Create(Data);
  try
    ImageObj := TImage.Create;
    try
      ImageObj.Bytes := ImageStream;

      Request := TDetectLabelsRequest.Create;
      try
        Request.Image := ImageObj;
        Request.MaxLabels := 50;
        Request.MinConfidence := 70;

        Response := Client.DetectLabels(Request);

        // Return JSON string of the response
        Result := Response.ToJsonString;

      finally
        Request.Free;
      end;

    finally
      ImageObj.Free;
    end;

  finally
    ImageStream.Free;
  end;
end;

[tho...@veco.dk]

Hejse

Jeg har ikke selv prøvet at arbejde med Appercapt AWS SDK, men gætter på at du kan få en masse fif her, hvis ikke du allerede har tjekket:

https://www.youtube.com/watch?v=TbQ6Gkes6bQ

Venlig hilsen / Best regards

Thomas Vedel

---

Fra: da...@googlegroups.com <da...@googlegroups.com> på vegne af HeartWare <da...@heartware.dk>
Sendt: 21. juli 2025 12:03
Til: DAPUG <da...@googlegroups.com>
Emne: [DAPUG] Appercept AWS SDK

 

--
Du har modtaget denne besked, fordi du abonnerer på gruppen "DAPUG" i Google Grupper.
Hvis du vil ophæve abonnementet på denne gruppe og ikke længere modtage mails fra den, skal du sende en mail til dapug+un...@googlegroups.com.
Du kan se denne diskussion ved at gå til https://groups.google.com/d/msgid/dapug/08414675-e787-46e2-98dd-f35ead371c0dn%40googlegroups.com.

[tho...@veco.dk]

og her: https://blogs.embarcadero.com/how-to-recreate-a-trillion-dollar-companys-ai-tool-in-your-lunchbreak/

Venlig hilsen / Best regards

Thomas Vedel

---

Fra: tho...@veco.dk <tho...@veco.dk>
Sendt: 21. juli 2025 17:35
Til: DAPUG <da...@googlegroups.com>
Emne: Sv: [DAPUG] Appercept AWS SDK

 

[GlennKonnekt | Glenn Dufke]

Appercept AWS SDKen er ret omfattende og kommer også med en rigtig god hjælp.

Jeg vil dog foreslå at du sender en mail til Richard Hatherall - Han er ret hurtig til at svare på support spørgsmål.

--------------------------------------------------------------------

Med venlig hilsen / Kind regards

Glenn Dufke
Embarcadero MVP - Building the next gen apps with Delphi
g...@gkon.dk
LinkedIn: www.linkedin.com/in/glenn-dufke-b3538a39

Confidentiality notice
This e-mail, including any attachment, may contain confidential and privileged information.
If you have received it by mistake, please notify us by e-mail and delete this e-mail and any attachment from your computer system immediately.
Thank you!

Fortrolighedserklæring
Denne e-mail og vedhæftede bilag kan indeholde fortrolige og beskyttede oplysninger.
Hvis De ved en fejl har modtaget denne e-mail, anmodes De venligst straks om at give afsenderen besked via e-mail og slette denne e-mail og bilag fra Deres system omgående.
Mange tak!

------ Original Message ------

From "HeartWare" <da...@heartware.dk>

To "DAPUG" <da...@googlegroups.com>

Date 21/07/2025 12.03.52

Subject [DAPUG] Appercept AWS SDK