landgraf-dev / aws-sdk-delphi Goto Github PK

Hi,

Is this lib pure pascal or a wrapper of "AWS SDK for .NET"?

What's the oldest Delphi compiler supported?

Thanks.

Great library! Convert speech to text.
https://aws.amazon.com/transcribe/

Would you like to know if it works on Android and IOS by FMX?

What I have to do, I need an example passing the credentials via code.

var
  Client: IAmazonSimpleEmailService;
  Request: ISendEmailRequest;
  Response: ISendEmailResponse;
begin
  // 2. Instantiate client interface

  Client := TAmazonSimpleEmailServiceClient.Create;

  //Client := TAmazonSQSClient.Create('myAccessKey', 'mySecretKey');
  // 3. Create and fill the request
  Request := TSendEmailRequest.Create;

  Request.Source := vg_EmailConfig.Remetente;
  Request.Destination := TDestination.Create;
  Request.Destination.ToAddresses.Add(Destinatarios);
  Request.Message := TMessage.Create(
    TContent.Create(Assunto),
    TBody.Create(TContent.Create(Mensagem)));

  // 4. Call operation method passing the request to receive the response;
  Response := Client.SendEmail(Request);

This is a great library, too bad it depends on the TMS Business components.

In Delphi 11.3 Patch 1:

1. I've cloned your latest available AWS SDK to "C:\DComp\WAGNER".
2. I've added: C:\DComp\WAGNER\Packages\d11\Win32\Release to the Delphi library path
3. Opened AWSPackages.groupproj and build each package in Release mode.
4. All packages build just fine except the awss3280.bpl, this one gives me the error:
   [dcc32 Error] AWS.S3.Pipeline.PostMarshallHandler.pas(32): E2003 Undeclared identifier: 'THashSet<>'
   In file: AWS.S3.Pipeline.PostMarshallHandler, at line #32

Anything I'm missing or overlooking here?

Hi,

I am trying to get a list of folders from a s3 bucket. The bucket contains more than 2K folders. When I am trying to use "NextContinuationToken", it gives the above error. Can you please help?

PS: I have tried the code from https://github.com/appercept/aws-sdk-delphi-samples/tree/main/S3Explorer and that also gives me the same error.

Thanks

Looks great!
I thought adding new services would be simple, but looking at the packages that are available it is quite an intimidating amount of code. Would love to add translation..
https://aws.amazon.com/translate/
Thx!

Hi Wagner,

Using the SNS with Delphi 10.4.2, TMS xData 5.5.0.0, Aurelius 5.8.0.0 I have come across an AV that I'm unable to work around. I might be wrong, but to me it seems to only happen when used on xData Rest server for some strange reason.

If I run this code on new Delphi vcl project, all works as expected:

AWSClient: IAmazonSimpleNotificationService;
lAWSTopicARN: string;
begin
{ CREATE AWS SNS Topic }
AWSClient := TAmazonSimpleNotificationServiceClient.Create(AWS_ACCESS_KEY, AWS_SECRET_KEY);
lAWSTopic.Arn := AWSClient.CreateTopic('NEW_TOPIC_FOR_TEST').TopicArn;
end;

...but if done on my rest server if gives me an AV.
On my rest server I have a model where one entity is TAWSTopic, and I use the TAureliusModelEvents component and have implemented the OnInserting event as below:

{ ***** Inserting ***** }
procedure TAppModelEvents.ameMainInserting(Sender: TObject; Args: TInsertingArgs);
var
lAWSTopic: TAWSTopic;
AWSClient: IAmazonSimpleNotificationService;
lAWSTopicARN: string;

begin
if Args.Entity is TAWSTopic then begin
lAWSTopic := TAWSTopic(Args.Entity);

{ CREATE AWS SNS Topic }
AWSClient := TAmazonSimpleNotificationServiceClient.Create(AWS_ACCESS_KEY, AWS_SECRET_KEY);
lAWSTopic.Arn := AWSClient.CreateTopic('NEW_TOPIC_FOR_TEST').TopicArn;

end;
end;

Now if I debug from the very last "end;" for the event implementation, and just do F7 until AV, I get to the file AWS.RunTime.Credentials, and at the exit of destructor TBasicAWSCredentials.Destroy I get an AV.

destructor TBasicAWSCredentials.Destroy;
begin
inherited;
end; <---- At the exit of this is where I get the AV

Hi,

I'm revisting this library as I now have a bussiness use case. Unfortunately I'm unable to install it for my Delphi 11.3 (Patch 1).
After dowloading and then openeing the "AWSPackages.groupproj", and doing a Build All on the awscore280.bpl, I get an error in the AWS:Region.rc. The error is: [BRCC32 Error] AWS.Region.rc(1): Error Could not open input file C:Async;C:\DComp\TMS\TMS.RC
My attention was automatcally drawn to the "C:Async" part of the error message, where there are no "\".

Not sure if there is any dependencies to TMS libraries, but I do have all TMS Biz installed on my system.

Any hints or tips on how to resolve this greatly appricated.

Hello

I am using Delphi 11 on Windows 10. Following the steps for manual installation, I'm unable to build the packages in this library. The error I'm getting is

[dcc64 Fatal Error] awscore.dpk(28): E2225 Never-build package 'awscore' must be recompiled
[dcc64 Fatal Error] awslexruntimeservice.dpk(34): E2202 Required package 'awscore' not found

These errors were generated by choosing Build All on the AWSPackages entry in the Projects window. I get the same error on building awslexruntimev2280.bpl when I try to build the packages individually.

If it helps to know, I have some TMS components installed (Aurelius, BIZ Core Library, FNC). I also have downloaded and compiled the Appercept AWS SDK.

I would appreciate any help you can provide.

Thanks

Hi,

After sccsessfully building all packages (except awss3280.bpl), I started a new win 32 vcl application.
Added AWS.SQS to my uses clause, and tried to use the WriteMessageIds procedure from the README.md like this:

As indicated by the attach code capture, Delphi does not seem to be able to identify/locate any of the following variable types:

var
Client: IAmazonSQS;
Response: IReceiveMessageResponse;
Request: IReceiveMessageRequest;
Msg: AWS.SQS.TMessage;

Any hint og suggestion on what I'm missing or doing wromg here?