Einzelnen Beitrag anzeigen

KlausV

Registriert seit: 29. Aug 2017
Ort: 68809 Neulußheim
81 Beiträge
 
Delphi 7 Professional
 
#6

AW: INDY suche passende OpenSSL Version

  Alt 31. Aug 2017, 15:15
Hallo,
Doch noch eine Frage:
Ich habe bei mir im Quellcode kein Creation von "TIdHTTP.Create(nil) do"
Kann ich dann vor jedem Post das SSL Statement eintragen:
  IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); So sieht eine Funktion aus. Im Programm gibt es 7 Funktionen, die einen POST machen.

Delphi-Quellcode:
function TfrmDMSMain.UploadData(var aData: TUpData): TUpResult;
var aPost: TStringList;
    aURL: String;
    aResponse: TStringStream;
begin
  Result:= TUpResult.create;
  aPost:= TStringList.Create;
  aResponse:= TStringStream.Create('');
  try
    //*** Prepare data to be posted
    PreparePostData(aPost, aData);
    //*** do HTTP-Post
    aURL:= ServletURL+ServUp;
    try
      IdHTTP.Post(aURL, aPost, aResponse);
      //*** write response to result
      Result.ParamString:= aResponse.DataString;
    except
      on e: Exception do
        Result.ParamString:= 'resultcode=0'+#13#10+'resultmessage='+
        RemoveLineBreak(e.Message)+#13#10+'sourceflag=1';
    end;
  finally
    aPost.Free;
    aResponse.Free;
  end;
end;

Geändert von mkinzler ( 4. Sep 2017 um 09:43 Uhr) Grund: Delphi-Tags eingefügt
  Mit Zitat antworten Zitat