Q&A

  • DLL 선언 좀 부탁드립니다.
VB로 정의된 내용을 델파이에서 선언하여 쓰려 합니다.

DLL은 VC++로 개발되었습니다....

Private Declare Function mdSend Lib "MDFUNC32.DLL" Alias "mdsend" (ByVal Path As Long, ByVal Stno As Integer, ByVal Devtyp As Integer, ByVal devno As Integer, size As Integer, buf As Any) As Integer
Private Declare Function mdReceive Lib "MDFUNC32.DLL" Alias "mdreceive" (ByVal Path As Long, ByVal Stno As Integer, ByVal Devtyp As Integer, ByVal devno As Integer, size As Integer, buf As Any) As Integer


그럼 부탁드립니다....^^
3  COMMENTS
  • Profile
    마이크로김 2007.03.15 02:44

    선언
    function mdSend ( path : long ; stno : Integer ; Devtyp : integer ;
    devno : integer ; buf : pchar) : integer ;  stdcall; external 'C:\MDFUNC32.DLL';

    이렇게 하면 될것 같은데요
    dll 호출하는 방법이 Lib 로드 해서 하는 방법도 있습니다

  • Profile
    늙은여우 2007.03.21 06:47
    말씀하신데로 작성을 하였으나 추후 호출시 계속 컴파일 에러가 뜸니다...ㅠ.ㅠ

    함수에서
    var
      buf : PChar;

      ret := mdReceive( Path, Stno,Devtyp,devno,size, buf);

    이렇게 적었더니 컴파일 Error가 뜨는데 형선언을 어떻게 해야 합니까?

    부탁 좀 드리겠습니다..

    가능한한 빨리 좀요...ㅠ.ㅠ
  • Profile
    늙은여우 2007.03.22 00:28
    VB에 Any 에 해당되는 델파이 자료형은 Array of integer이더군요

    선언에서 buf as Any => buf : Array of integer 로 하고

    사용함수에서는
    Var
      atmp : array [0..10] of integer;

    이렇게 선언하니까 아주 잘되는군요...

    많이 관심을 가져주셔서 감사합니다.....


    좋은 하루되세요...^^