DLL32 STATIC FUNCTION...

[reinaldocrespo]

Hi.

I can't see why when trying to compile these three lines below I get the errors I show further down:

DLL32 STATIC FUNCTION GetMenu( hwnd AS LONG ) AS LONG PASCAL LIB "USER32"

DLL32 STATIC FUNCTION GetMenuInfo( hMenu AS LONG, cMenuInfo AS LPSTR) AS LONG PASCAL FROM "GetMenuInfo" LIB "USER32"

DLL32 Static Function SetMenuInfo( hMenu AS LONG, cMenuInfo AS LPSTR) AS LONG PASCAL FROM "SetMenuInfo" LIB "USER32"



MAKE Version 5.2 Copyright (c) 1987, 2000 Borland
f:\xharbour_0.99\bin\harbour.exe -i..\shared;f:\fwh\include;f:\fivewin\include;f:\xharbour_0.99\include -n -m -w -es2 -gc0 ..\shared\shared.prg -o\mp\Reports\shared.xhrb
xHarbour Compiler build 0.99.2 (SimpLex)
Copyright 1999-2004, http://www.xharbour.org http://www.harbour-project.org/
Compiling '..\shared\shared.prg'...

..\shared\shared.prg(2860) Warning W0001 Ambiguous reference: 'LONG'

..\shared\shared.prg(2861) Warning W0001 Ambiguous reference: 'LONG'

..\shared\shared.prg(2862) Warning W0001 Ambiguous reference: 'LONG'

..\shared\shared.prg(2863) Warning W0001 Ambiguous reference: 'LONG'

..\shared\shared.prg(2864) Warning W0001 Ambiguous reference: 'LONG'

..\shared\shared.prg(2865) Warning W0001 Ambiguous reference: 'LONG'

..\shared\shared.prg(2866) Warning W0001 Ambiguous reference: 'LONG'

..\shared\shared.prg(2891) Error E0030 Syntax error: "parse error at 'STATIC'"

..\shared\shared.prg(2893) Error E0030 Syntax error: "parse error at 'STATIC'"

..\shared\shared.prg(2895) Error E0030 Syntax error: "parse error at 'STATIC'"

3 errors

No code generated

** error 1 ** deleting \mp\Reports\shared.xhrb


Can someone help?

thank you,


Reinaldo.

[Enrico Maria Giordano]

Try adding

#include "Dll.ch"

EMG

[reinaldocrespo]

Enrico;

Thank you for your reply.

Added the line #include "dll.ch" at the top of the file, but I still get the exact same errors.


Reinaldo.

[Antonio Linares]

Reinaldo,

This code compiles ok on first try with both Harbour and xharbour:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   MsgInfo( "ok" )
           
return nil

DLL32 STATIC FUNCTION GetMenu( hwnd AS LONG ) AS LONG PASCAL LIB "USER32"

DLL32 STATIC FUNCTION GetMenuInfo( hMenu AS LONG, cMenuInfo AS LPSTR) AS LONG PASCAL FROM "GetMenuInfo" LIB "USER32"

DLL32 Static Function SetMenuInfo( hMenu AS LONG, cMenuInfo AS LPSTR) AS LONG PASCAL FROM "SetMenuInfo" LIB "USER32"


Please check that you are using the right header files, and there are no conflicts with other header files, or some defines in your app.

[reinaldocrespo]

Antonio;

You are right. I tested a new file with your code and it did compile. So I went back to my offending file in the project and searched for #defines that might be obstructing. And, indeed, I found it.

#define _DLL_CH


Sorry.

Thank you for the help.


Reinaldo.

[Antonio Linares]

Reinaldo,

glad to know you solved it