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
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,
Tocsg.Safe, Tocsg.COLib, Tocsg.COLib.Encrypt;
@ -216,11 +216,15 @@ begin
if sResult = 'true' then
begin
var sUrl := O.S['passwordChangeUrl'];
showmessage(sUrl);
sResult := GetPostData(sDestIPort, sUrl, O.AsJSon);
if sUrl.StartsWith('/') then
sUrl := sUrl.Substring(1);
var sFullUrl := sDestIPort + sUrl;
ShellExecute(0, 'open', PChar(sFullUrl), nil, nil, SW_SHOWNORMAL);
//sResult := GetPostData(sDestIPort, sUrl, O.AsJSon);
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;
end
else