From 095c329b0e58daba0f1a239080df65aac80fc395 Mon Sep 17 00:00:00 2001 From: "yh.kim" Date: Tue, 24 Mar 2026 15:23:28 +0900 Subject: [PATCH] =?UTF-8?q?(=ED=85=8C=EC=8A=A4=ED=8A=B8)=20=EC=B5=9C?= =?UTF-8?q?=EC=B4=88=20=EB=A1=9C=EA=B7=B8=EC=9D=B8=20=EC=8B=9C=20=ED=8C=A8?= =?UTF-8?q?=EC=8A=A4=EC=9B=8C=EB=93=9C=20=EB=B3=80=EA=B2=BD=20=EA=B8=B0?= =?UTF-8?q?=EB=8A=A5=20=EC=B6=94=EA=B0=80?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../UserAuthentification/UserAuthentification.pas | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/Tocsg.Module/UserAuthentification/UserAuthentification.pas b/Tocsg.Module/UserAuthentification/UserAuthentification.pas index f91aa434..6dd6dbe6 100644 --- a/Tocsg.Module/UserAuthentification/UserAuthentification.pas +++ b/Tocsg.Module/UserAuthentification/UserAuthentification.pas @@ -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