I altered the code:
When I run I get the errors in the memo:
EIdOSSLCouldNotLoadSSLLibrary
Could not load SSL library.
DES_set_odd_parity,DES_set_key,DES_ecb_encrypt,EVP_des_cfb64
When I uncomment the first row I get an error see Attachment
Thanks you wil help me.
Henk
Code:
try
try
// IdSSLOpenSSLHeaders.IdOpenSSLSetLibPath('c:\AVNWEBS\AVN1\');
Strm := TStringStream.Create;
IdHTTP1 := TIdHTTP.Create(nil);
LHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
LHandler.SSLOptions.certfile := certfile;
LHandler.SSLOptions.keyfile := keyfile;
LHandler.SSLOptions.Method := sslvTLSv1_2; // sslvSSLv23;
LHandler.SSLOptions.Mode := sslmUnassigned;
LHandler.SSLOptions.VerifyMode := [];
LHandler.SSLOptions.VerifyDepth := 0;
IdHTTP1.IOHandler := LHandler;
// alleen voor debug anders regel hieronder: Strm.LoadFromFile(UserSession.Exportfilenaam);
UserSession.XMLDoc1.SaveToStream(Strm);
IdHTTP1.Request.ContentType := 'text/xml';
Strm.Position := 0;
IWMemo1.Lines.Add(IdHTTP1.Post(UserSession.nxT_Algpar.FieldByName('IDeal_Site_URL').AsString, Strm));
finally
Strm.Free;
LHandler.Free;
IdHTTP1.Free;
end;
except
on E: Exception do
begin
IWMemo1.Lines.Add(E.ClassName);
IWMemo1.Lines.Add(E.Message);
IWMemo1.Lines.Add(IdSSLOpenSSLHeaders.WhichFailedToLoad);
// Writeln(E.ClassName, ': ', E.Message);
end;
end;
When I run I get the errors in the memo:
EIdOSSLCouldNotLoadSSLLibrary
Could not load SSL library.
DES_set_odd_parity,DES_set_key,DES_ecb_encrypt,EVP_des_cfb64
When I uncomment the first row I get an error see Attachment
Thanks you wil help me.
Henk