08-24-2018, 10:16 PM
I replaced the dll's Also in the map from Abyss where there where old dll's.
When I run now I don't get the integer error anymore.
Also not loading error's from DLL's
But new errors:
C:\AVNWEBS\
EIdOSSLLoadingCertError
Could not load certificate.
error:140DC002:lib(20):func(220):reason(2)
The C:\AVNWEBS\ is a info row where the ssl dll's are
Seems that now the is a certificate error
Do you what the error means?
=========== here is the altered code:
try
try
Strm := TStringStream.Create;
IdHTTP1 := TIdHTTP.Create(nil);
LHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
IdSSLOpenSSLHeaders.IdOpenSSLSetLibPath(UserSession.SSL_Pad);
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(UserSession.SSL_Pad);
IWMemo1.Lines.Add(E.ClassName);
IWMemo1.Lines.Add(E.Message);
IWMemo1.Lines.Add(IdSSLOpenSSLHeaders.WhichFailedToLoad);
// Writeln(E.ClassName, ': ', E.Message);
end;
end;
================
Henk
[quote pid='1376' dateline='1535146609']
I can't reproduce that error when using the latest Indy SVN rev 5475 with OpenSSL 1.0.2o from Fulgan. You are using rev 5366, which is 2 years old. There have been numerous updates to the IdSSLOpenSSLHeaders.pas unit since that time.
At what point does the error happen? At app startup, or later? Is your project static linking to the OpenSSL DLLs in any way, by chance? Indy dynamically loads the DLLs at runtime, and does not load OpenSSL's functions by ordinal.
[/quote]
When I run now I don't get the integer error anymore.
Also not loading error's from DLL's
But new errors:
C:\AVNWEBS\
EIdOSSLLoadingCertError
Could not load certificate.
error:140DC002:lib(20):func(220):reason(2)
The C:\AVNWEBS\ is a info row where the ssl dll's are
Seems that now the is a certificate error
Do you what the error means?
=========== here is the altered code:
try
try
Strm := TStringStream.Create;
IdHTTP1 := TIdHTTP.Create(nil);
LHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
IdSSLOpenSSLHeaders.IdOpenSSLSetLibPath(UserSession.SSL_Pad);
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(UserSession.SSL_Pad);
IWMemo1.Lines.Add(E.ClassName);
IWMemo1.Lines.Add(E.Message);
IWMemo1.Lines.Add(IdSSLOpenSSLHeaders.WhichFailedToLoad);
// Writeln(E.ClassName, ': ', E.Message);
end;
end;
================
Henk
[quote pid='1376' dateline='1535146609']
(08-24-2018, 07:55 AM)mail@hvdboogaard.nl Wrote: 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
I can't reproduce that error when using the latest Indy SVN rev 5475 with OpenSSL 1.0.2o from Fulgan. You are using rev 5366, which is 2 years old. There have been numerous updates to the IdSSLOpenSSLHeaders.pas unit since that time.
(08-24-2018, 07:55 AM)mail@hvdboogaard.nl Wrote: When I uncomment the first row I get an error see Attachment
At what point does the error happen? At app startup, or later? Is your project static linking to the OpenSSL DLLs in any way, by chance? Indy dynamically loads the DLLs at runtime, and does not load OpenSSL's functions by ordinal.
[/quote]

