使用delphi新开发一个小程序，需要验证是不是X3系统中组织机构的合法用户，
使用：SELECT FVALUE FROM TORGATTRIBUTE WHERE FGUID IN(SELECT FGUID FROM TORGSYSTEM WHERE FID = 'XXX' AND FKIND = '.PSN') AND FID = 'PASSWORD'
取出的密码是加密的，而系统提供的修改密码的方法都是封装好的，现在我们需要在X3系统外校验X3系统组织机构中的合法用户如何获取操作？
function IsValidPassword(APass: WideString; APassEncoded: WideString): Boolean; stdcall; external 'libPassChk.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsValidPassword(Edit1.Text, Edit2.Text) then
showmessage('ok')
else
showmessage('not ok');
end;
发表于 2007-10-29 14:37:51
楼主
