Var
    strTrack2 : PAnsiChar;
    iR: integer;
Begin
       GetMem(sTrack2Data, 40);

       Try
            ZeroMemory(sTrack2Data, 40);
            
             iR := cryptCard(1, strData.ms_data, sTrack2Data);

             ...............

        finally
            FreeMemory(sTrack2Data);
        End

ENd

쿠핑 님이 쓰신 글 :
: 안녕하세요
:
: 날씨가 넘 추워 감기에 걸려 죽을 맛인데 이것도 안풀려 죽을 맛이네요~~
:
: 비베에서
:
: Public Declare Function cryptCard Lib "KCPDLL.dll" (ByVal i_Flag As Integer, ByVal strTrack2 As String, ByVal strRet As String) As Integer
: 로 dl를 불러와서 아래와 같이 처리를 합니다.
:
: Dim iRet As Integer
: Dim strTrack2 As String * 40 '===반드시 사이즈를 줘서 선언 해야함
: ' 카드번호 암호화를 한다
: iRet = cryptCard(ENCRYPT, strData.ms_data, strTrack2)
: strData.ms_data = strTrack2
:
: 그런데 위와 같이 처리 내용에서 strTrack2 값이 리턴이 된다고 합니다.
: 원래 strTrack2 값이 리턴이 되는 형태인가요? iRet 만 리턴되는게 아닌가요?
:
: 그리고 Dim strTrack2 As String * 40  이 부분은 strTrack2를 4자로 무조건 만드는것 같은데~
:
: 아~~잘 모르겠네요~~~
:
: 아시는 님들~~부디 댓글 부탁드립니다.