kjkim
/
BSOne.SFC
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(테스트) 최초 로그인 시 패스워드 변경 기능 추가

This commit is contained in:
yh.kim 2026-03-24 15:23:28 +09:00
parent c1298c22c1
commit 095c329b0e
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Tocsg.Module/UserAuthentification/UserAuthentification.pas
View File

@ -4,7 +4,7 @@ interface
uses uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Winapi.ShellAPI,
superobject, IdHTTP, IdSSLOpenSSL, System.Math, System.IOUtils, System.RegularExpressions, superobject, IdHTTP, IdSSLOpenSSL, System.Math, System.IOUtils, System.RegularExpressions,
Tocsg.Safe, Tocsg.COLib, Tocsg.COLib.Encrypt; Tocsg.Safe, Tocsg.COLib, Tocsg.COLib.Encrypt;
@ -216,11 +216,15 @@ begin
if sResult = 'true' then if sResult = 'true' then
begin begin
var sUrl := O.S['passwordChangeUrl']; var sUrl := O.S['passwordChangeUrl'];
showmessage(sUrl); if sUrl.StartsWith('/') then
sResult := GetPostData(sDestIPort, sUrl, O.AsJSon); sUrl := sUrl.Substring(1);
var sFullUrl := sDestIPort + sUrl;
ShellExecute(0, 'open', PChar(sFullUrl), nil, nil, SW_SHOWNORMAL);
//sResult := GetPostData(sDestIPort, sUrl, O.AsJSon);
end; end;
MessageBox(0, LPCWSTR(sResult), 'BSOne Login', MB_ICONINFORMATION or MB_TOPMOST or MB_SETFOREGROUND); //MessageBox(0, LPCWSTR(sResult), 'BSOne Login', MB_ICONINFORMATION or MB_TOPMOST or MB_SETFOREGROUND);
exit; exit;
end end
else else