Muy buenas, estoy intentando hacer un Wrapper a una funcion que no me funciona y creo que es por la declaración en C de las cadenas por tener punteros, ¿me podrían decir como puedo hacer para hacer que dicha funcion funcione en xHarbour?

Aqui teneis mi codigo, ya se que está mal la declaracion de C de las funciones:

pragma BEGINDUMP

include <hbapi.h>

include <windows.h>

LONG WINAPI GdiplusStartup(long token,char input (ESTAS ESTAN MAL),long output);
HB_FUNC( MYGDIPLUSSTARTUP)
{
long token;
char input; (ESTAS ESTAN MAL)
char output;
long lReturn;

token = hb_parni(1);
input = hb_parni(2);
output = hb_parni(3);
lReturn = GdiplusStartup(token,input,output);
hb_retnl(lReturn);

}

pragma ENDDUMP

DLL32 function GdiplusStartup(token AS LONG,input AS STRING,output AS LONG) AS LONG PASCAL FROM "GdiplusStartup" LIB "gdiplus.dll"

softruz wrote:Muy buenas, estoy intentando hacer un Wrapper a una funcion que no me funciona y creo que es por la declaración en C de las cadenas por tener punteros, ¿me podrían decir como puedo hacer para hacer que dicha funcion funcione en xHarbour?

Aqui teneis mi codigo, ya se que está mal la declaracion de C de las funciones:

#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>

LONG WINAPI GdiplusStartup(long token,char input (ESTAS ESTAN MAL),long output);
HB_FUNC( MYGDIPLUSSTARTUP)
{
long token;
char input; (ESTAS ESTAN MAL)
char output;
long lReturn;


token = hb_parni(1);
input = hb_parni(2);
output = hb_parni(3);
lReturn = GdiplusStartup(token,input,output);
hb_retnl(lReturn);
}

#pragma ENDDUMP

DLL32 function GdiplusStartup(token AS LONG,input AS STRING,output AS LONG) AS LONG PASCAL FROM "GdiplusStartup" LIB "gdiplus.dll"