Pointer to username type String just get the first char.
example username = pi
server get username = p
Changes needed:
function TSSLCryptLib.Init(server:Boolean): Boolean;
var
st: CRYPT_SESSION_TYPE;
keysetobj: CRYPT_KEYSET;
cryptContext: CRYPT_CONTEXT;
x: integer;
aUserName : AnsiString; //new
aPassword: AnsiString; //new
begin
....
if FUsername <> '' then
begin
aUserName := fUserName;
aPassword := fPassword;
cryptSetAttributeString(FcryptSession, CRYPT_SESSINFO_USERNAME,
Pointer(aUserName), Length(aUserName));
cryptSetAttributeString(FcryptSession, CRYPT_SESSINFO_PASSWORD,
Pointer(aPassword), Length(aPassword));
end;
Best regards.
--
German Pablo Gentile
------------------------------------------------------------------------------
Dive into the World of Parallel Programming. The Go Parallel Website,
sponsored by Intel and developed in partnership with Slashdot Media, is your
hub for all things parallel software development, from weekly thought
leadership blogs to news, videos, case studies, tutorials and more. Take a
look and join the conversation now. http://goparallel.sourceforge.net/
_______________________________________________
synalist-public mailing list
synalist-public@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/synalist-public
