var
S3:
IS3Client;
HeadRequest:
IS3HeadObjectRequest;
Waiter:
IS3ObjectWaiter;
begin
S3 := TS3Client.Create;
HeadRequest := TS3HeadObjectRequest.Create('a-bucket-name', 'a-object-key');
Waiter := TSObjectExistsWaiter.Create(
S3);
Waiter.Wait(HeadRequest).IsSuccessful
then
begin
// Object exists.
end;
end;
