gcc (gfortran)로 컴파일 할 때 windows API 함수 (64 비트)를 호출 할 수 있습니까?

Question

이전에 lf90으로 컴파일 한 서브 루틴 sendmsg.f90을 gcc가 64 비트 인 32 비트로 컴파일하려고합니다. 그 목적은 gcc로 컴파일 된 다른 64 비트 서브 루틴과 링크하는 것입니다.

subroutine UpdateDisplay(WINHAND,NTPS,QCANCEL,NITER) 
    use win32mod 
    implicit none 
    integer WINHAND, NTPS, MESSNUM, NITER, QCANCEL 
!    SendMessageA is a Windows function 
!     WINHAND = handle of window (from ISDev code) 
!     MESSNUM = message number (assigned by ISDev) 
!     NTPS = number of year iteration currently on (WParam) 
!     DUM = 0 (LParam) 

    MESSNUM = 1114 
    QCANCEL = SendMessageA(carg(WINHAND),carg(MESSNUM),carg(NTPS), carg(NITER)) 

end subroutine 

우리는 lf90 컴파일러와 GCC (gfortran을 사용하는) 무엇인가라는 LGF 가지고있는 Lahey 포트란 7.5이 (내가 GCC를 사용한다고 가정 권리이다?)를.

저는 Windows 프로그래밍 (및 포트란)을 처음 사용합니다. gcc로 컴파일 된 코드는 Windows API를 호출 할 수 있습니까? ISO_C_BINDING을 사용해야합니까?

gcc에서 만든 .o 파일과 lf90으로 만든 .obj 파일을 연결해야합니까?

도움 주셔서 감사합니다.

업데이트 : 내가 가진 윈도우 API를 호출 시도했다 :

MODULE SND_C 
    interface 
     integer(C_LONG) FUNCTION SendMessage & 
      (WINHAND,MESSNUM,NTPS, NITER) & 
      bind(C,Name='SendMessage') 
      use ISO_C_BINDING 
      implicit NONE 
      integer(C_LONG), VALUE :: WINHAND 
      integer(C_LONG), VALUE :: MESSNUM 
      integer(C_LONG), VALUE :: NTPS 
      integer(C_LONG), VALUE :: NITER 
     end function SendMessage 
    end interface 
END MODULE SND_C 


subroutine UpdateDisplay(WINHAND,NTPS,QCANCEL,NITER)  
    USE ISO_C_BINDING, ONLY: C_LONG 
    USE SND_C 
    implicit none 
    integer(C_LONG) WINHAND, NTPS, MESSNUM, NITER, QCANCEL 
!    SendMessageA is a Windows function 
!     WINHAND = handle of window (from ISDev code) 
!     MESSNUM = message number (assigned by ISDev) 
!     NTPS = number of year iteration currently on (WParam) 
!     DUM = 0 (LParam) 

!GCC$ ATTRIBUTES DLLEXPORT :: UpdateDisplay 
    MESSNUM = 1114 
    QCANCEL = SendMessage(WINHAND,MESSNUM,NTPS, NITER) 

end subroutine 

을하지만 컴파일 할 때 "GCC -m64 sendmsg.f90"나는 오류 얻을 :

C:\Users\StephanieJ\Documents\Lahey-Fujitsu Fortran>gcc -m64 sendmsg.f90 
c:/progra~2/lahey-~1/v7.5/gcc-gf~1/bin/../lib/gcc/x86_64-w64-mingw32/4.7.4/../.. 
/../../x86_64-w64-mingw32/lib/../lib/crt2.o: In function `__tmainCRTStartup': 
c:\gccbuild\mingw-crt\build32-64\mingw-w64-crt/../../mingwsvn/mingw-w64-crt/crt/ 
crtexe.c:323: undefined reference to `__laheypause' 
C:\Users\STEPHA~2\AppData\Local\Temp\ccWjjo5b.o:sendmsg.f90:(.text+0x3e): undefi 
ned reference to `SendMessage' 
c:/progra~2/lahey-~1/v7.5/gcc-gf~1/bin/../lib/gcc/x86_64-w64-mingw32/4.7.4/../.. 
/../../x86_64-w64-mingw32/lib/../lib/libmingw32.a(lib64_libmingw32_a-crt0_c.o): 
In function `main': 
c:\gccbuild\mingw-crt\build32-64\mingw-w64-crt/../../mingwsvn/mingw-w64-crt/crt/ 
crt0_c.c:18: undefined reference to `WinMain' 
collect2.exe: error: ld returned 1 exit status 

을

이 방법이 의미가 있습니까? SendMessage에 대한 참조가 정의되지 않은 이유는 무엇입니까?

#include <windows.h> 
void updatedisplay_( HWND *winhand, WPARAM *ntps, LRESULT *qcancel, LPARAM *niter) 
{ 
    // integer NTPS, MESSNUM, NITER, QCANCEL 
    /* 
    !     WINHAND = handle of window (from ISDev code) 
    !     MESSNUM = message number (assigned by ISDev) 
    !     NTPS = number of year iteration currently on (WParam) 
    !     DUM = 0 (LParam) 
    */ 
    UINT messnum = 1114; 
    *qcancel = SendMessage(*winhand,messnum,*ntps,*niter); 
} 

낮은 경우와 후행는 포트란 기본 기능 이름과 일치하도록되어 밑줄 : API를 호출하는

Answer 1

아마 가장 쉬운 방법은 다음과 같을 수는 C 래퍼 기능을 통해입니다. 에서 C_NULL_PTR를 사용하는 대신 창 핸들로 제로를 보내는,

의 gcc -c updatedisplay.c

포트란 측면에서 : 파일 이름이 updatedisplay.c이 있다고 가정하면 는 명령으로 컴파일 대신 ISO_C_BINDING 그런 다음 updatedisplay.o라는 오브젝트 파일을 원래 같은 이름의 Fortran 함수라고 불렀던 Fortran 코드와 연결할 수 있습니다. 그러면 작동합니다.

laheypause 문제를 제거하려면 x86_64의 경우 x86_64-w64-mingw32 \ lib 또는 x86_64-w64-mingw32 \ lib32 (x86의 경우) 중 적절한 lib 디렉토리에서 lgfpstub.o 파일로 연결하십시오.

희망이 도움이됩니다.