Hello,
I'm having trouble trying to upload files to my s3 bucket in my Delphi 7 application. I have a python api that generates a presigned url for putting files, and it works perfectly. I am able to send the files to the s3 bucket through Postman, setting the body as binary and the url as the presigned s3 url.
Now for the Delphi part, basically what my code does is get the presigned url and send a PUT to it with the TFileStream of a file selected by the user.
var
SignedURL ,
res ,
filePath : string;
httpClient : TIdHTTP;
SSLIOHandler : TIdSSLIOHandlerSocketOpenSSL;
jsonRes : ISuperObject;
fileStream : TFileStream
begin
filePath := 'path/to/file.pdf'; // file selected by user in OpenDialog
SignedURL := 'signedUrlGeneratedByPythonCode'; // response from calling my python web api
fileStream := TFileStream.Create(filePath, fmOpenRead or fmShareDenyNone);
httpClient := TIdHTTP.Create;
httpClient.Request.Accept := 'application/json';
SSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSLIOHandler.SSLOptions.Method := sslvTLSv1_2;
httpClient.IOHandler := SSLIOHandler;
try
res := httpClient.Put(url, fileStream);
jsonRes := SO(res);
finally
fileStream.Free;
httpClient.Free;
SSLIOHandler.Free;
end;
end;
With this code I get an access violation at the res := httpClient.Put(url, fileStream); if I run just the Put on runtime, without assigning the response to a variable I get a "Delphi exception EIdSocketError at $2646F905".
Removing the SSLIOHandler, I get a "Socket Error #10054 Connection reset by peer.".
I'm still a beginner in coding (and very new with Delphi), so I can't pinpoint what exactly could be the problem. I assume it's either because of AWS using HTTPS (although the python api also uses HTTPS and I don't need to set a SSLIOHandler to make a request to it) and my SSL/TLS not working properly or I'm passing the file binaries in the wrong format and the AWS server is refusing the connection instantly.
Using: Delphi 7, Indy 10
Thanks in advance, any help would be very much appreciated.