From: Krzysztof <di...@wp...> - 2012-02-22 09:16:38
|
2012/2/22 Ludo Brands <lud...@fr...>: >> With Cryptlib I get this same error 10091 (but instead of >> "Network subsystem is unusable" I see some squares (some >> charset problem). I debug into and problem is in function: >> >> TSSLCryptLib.Connect >> >> In line: >> if not SSLCheck(cryptSetAttribute(FCryptSession, >> CRYPT_SESSINFO_ACTIVE, 1)) then >> Exit; >> >> SSLCheck return False, because cryptSetAttribute return -22 >> (and in SSLCheck is error check if Value<>0 then error). I >> can't debug further because cryptSetAttribute is external function >> > > Are you getting more information in SSL.LastErrorDesc? You can trace into > SSLCheck and verify the value at the end. Ok, so I'm back to stable synapse 39 and cryptlib 3.2.2. So in summary, problem is in function: TSSLCryptLib.Connect In line: if not SSLCheck(cryptSetAttribute(FCryptSession, CRYPT_SESSINFO_ACTIVE, 1)) then Exit; Function cryptSetAttribute return value -22 and send it to SSLCheck. This occur error: FLastErrorDesc := GetString(FCryptSession, CRYPT_ATTRIBUTE_INT_ERRORMESSAGE); Above string is "'敓癲牥爠灥牯整㩤䤠癮污摩瀠獡睳牯d'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0". Instead of these chinese chars I see squares. GetString is calling: cryptGetAttributeString(cryptHandle, attributeType, pointer(Result), l); ... where attributeType=13 I think something wrong is with function cryptSetAttribute (which return -22) because it is suspending for 5-10 seconds. Regards |