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;