1. °³¹ß/½ÇÇà Ç÷§Æû (1) OS : (2) °³¹ßÅø : (3) »ç¿ë Database :
2. °³¹ß ÁßÀÎ ÇÁ·Î±×·¥
3. Áú¹® ³»¿ë
procedure Tf_OutProduct.proc_InitOutProduct(WON_CODE: Integer; WON_MODE: TCISEditorMode); var vobj1,vobj2: TJSONObject; begin proc_ClearEditor;
vobj1 := smc.smfunc_GetDataObject('T_WONJANG','WON_CODE;',VarArrayOf([WON_CODE]),'',NULL); if not Assigned(vobj1) then raise Exception.Create('error');
ShowMessage(vobj1.ToString);//<-- ¿©±â´Â Á¤»óÀ¸·Î Ãâ·ÂµË´Ï´Ù
vobj2 := smc.smfunc_GetDataObject('T_GROUND','GRO_CODE;',VarArrayOf([100105]),'',NULL);
ShowMessage(vobj1.ToString);//<--¿©±â access voilation ¿À·ù ³³´Ï´Ù
if not Assigned(vobj2) then raise Exception.Create('error'); ShowMessage(vobj2.GetValue('GRO_NAME').ToString); end;
DataSnap ¿ø¸®»ó ¾î¿ ¼ö ¾ø´Â ºÎºÐÀÎÁö ¾Æ´Ï¸é Ȥ½Ã ¼öÁ¤°¡´ÉÇÑ ºÎºÐÀÎÁö ¸ô¶ó¼
Áú¹®µå¸³´Ï´Ù
¼¹öÂÊ¿¡ ¿ÀºêÁ§Æ®¸¦ ¸®ÅÏÇÏ´Â ¸Þ¼µå°¡ Àִµ¥
·ÎÄÿ¡¼ óÀ½ È£ÃâÇÏ¿© °´Ã¼ A¸¦ ¸®ÅϹްí Ãâ·ÂÇϸé Á¤»óÀ¸·Î Ãâ·ÂµÇ´Âµ¥
ÀÌ vobj1À» free ÇÏÁöµµ ¾Ê¾Ò´Âµ¥
¼¹ö ¸Þ¼µå¸¦ Çѹø ´õ È£ÃâÇÏ°í vobj1À» ¾×¼¼½º ÇÏ·ÁÇϸé violation ¿À·ù ³³´Ï´Ù
¾î¶»°Ô µÇ´Â°ÇÁö ¾Æ½Ã´ÂºÐ °è½Ã¸é °¡¸£ÃÄÁÖ½Ã¸é °í¸¿°Ú½À´Ï´Ù~~
°¨»çÇÕ´Ï´Ù~
|