예외처리 추가

네트워크 단절시 오류
 -유선 랜을 뺐다 끼는 것은 문제 없으나 무선랜을 연결했다 끊었다 하면 조회 요청 했을 때 프로그램이 먹통이 됨

winhttp request 메소드의 예외처리를 해주지 않으면 바코드 리딩 이벤트까지도 함께 씹히는 현상이 나타나서
try except 로 묶어줌 처리.

bin/ESB_Agent.ini

 [CONFIG]
 FACILITY_ID=SI104008
-SERVER_ADDRESS=https://ctcard.suncheon.go.kr/api/001?scn_cardno=
+SERVER_ADDRESS=http://ctcard.suncheon.go.kr/api/001?scn_cardno=

frmMainUnit.pas

@@ -142,12 +142,16 @@ var
   aRequest : Variant;
 begin
   try
-    aRequest := CreateOleObject('WinHttp.WinHttpRequest.5.1');
-    aRequest.Open('GET', g_SvrAddr + aCardNo, false);
-    aRequest.SetRequestHeader('User-Agent', 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0');
-    aRequest.SetRequestHeader('FCLTY_ID', g_FacilityID);
-    aRequest.Send;
-    Result := aRequest.ResponseText;
+    try
+      aRequest := CreateOleObject('WinHttp.WinHttpRequest.5.1');
+      aRequest.SetTimeouts(1000, 1000, 500, 1000);
+      aRequest.Open('GET', g_SvrAddr + aCardNo, false);
+      aRequest.SetRequestHeader('User-Agent', 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0');
+      aRequest.SetRequestHeader('FCLTY_ID', g_FacilityID);
+      aRequest.Send;
+      Result := aRequest.ResponseText;
+    except
+    end;
   finally
     aRequest := Unassigned;
   end;
@@ -207,6 +211,7 @@ begin
 
   with frmResult do
   begin
+    ClearData;
     Show;
     RstStr := ReqDCInfo(aEncodeStr);
     SetResult(RstStr);    

frmResultUnit.pas

@@ -71,7 +71,6 @@ var
   pDetailItem : PRecResultDetail;
   JSONArrIter : TSuperObjectIter;
 begin
-  ClearData;
   SuperObj := SO(aData);
   aAESKey := g_FacilityID + 'scn2019x';