INDY suche passende OpenSSL Version

[Klaus01]

.. ja das sollte fürs Erste ausreichen.

Grüße
Klaus

[KlausV]

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;

[Klaus01]

.. hast Du die idHttp Komponente auf Deine Form gezogen?
Dann ist meines Wissen kein separates http := TidHttp.create erforderlich.

Wenn alle Posts von der gleichen/selben TidHttp Instanz erfolgen, dann reicht ein
einmaliges zuweisen des TIdHttp.IoHandler

Grüße
Klaus

[KlausV]

Ja, so ist es. Die Komponente habe ich direkt auf der Form.
Ok, Danke.