function idMD5HashStream(MS:TMemoryStream):string;
var
idMD5:TIdHashMessageDigest5;
Hash:TidBytes;
begin
idMD5:=TIdHashMessageDigest5.Create;
hash:=idMD5.HashStream(MS);
Result:=TIdEncoderMIME.EncodeBytes(Hash);
idMD5.Free;
end;
 
 
function GkhSimpleUpload(uploadfile:string):string;
var
HTTP:TidHTTP;
UploadData,ResponseData:TMemoryStream;
begin
try
Result:='';
ResponseData:=TMemoryStream.Create;
UploadData:=TMemoryStream.Create;
UploadData.LoadFromFile(uploadfile);
HTTP:=TIdHTTP.Create();
  //****Auth
  HTTP.Request.Username:='lanit';
  HTTP.Request.Password:='';
  HTTP.Request.BasicAuthentication:=True;
  //****
HTTP.ProtocolVersion:=pv1_1;
HTTP.HTTPOptions:=[hoKeepOrigProtocol];
HTTP.Request.Date:=Now;
HTTP.Request.CustomHeaders.AddValue('Content-MD5',idMD5HashStream(UploadData));
HTTP.Request.CustomHeaders.AddValue('X-Upload-OrgPPAGUID',PPAGUID);
HTTP.Request.CustomHeaders.AddValue('X-Upload-Filename',ExtractFileName(uploadfile));
HTTP.Request.UserAgent:='';
HTTP.Request.Accept:='';
HTTP.Request.AcceptEncoding:='';
        try
        HTTP.PUT('http://127.0.0.1:8080/ext-bus-file-store-service/rest/homemanagement/',UploadData,ResponseData);
        except
        //***ADD LOG***
        //For logs ->HTTP.Response.RawHeaders.GetText;
        end;
 
        if HTTP.ResponseCode=200 then
        begin
        Result:=HTTP.Response.RawHeaders.Values['X-Upload-UploadID'];
        end;
finally
UploadData.Free;
ResponseData.Free;
HTTP.Free;
end;
end;