Função .c Bematech

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
janio
Colaborador
Colaborador
Mensagens: 1846
Registrado em: 06 Jul 2004 07:43
Localização: UBAJARA - CE

Função .c Bematech

Mensagem por janio »

tenho um .c com funções da dll da Bematech que uso para comunicação com esse ecf.

Ocorre que que a função Bematech_FI_ArquivoMFD nesse meu .c ta dando erro e não sei consertar. Alguém pode ver o que tem de errado nessa função?

No meu .c ta assim:

Código: Selecionar todos

typedef INT (WINAPI * _BEMATECH_FI_ARQUIVOMFD)( LPSTR NomeArq, LPSTR Ini, 
LPSTR Fim, LPSTR Tipo, LPSTR Usuario, int TipoGeracao, LPSTR ChavePub, LPSTR 
ChavePri, int ArqUnico );

HB_FUNC( BEMATECH_FI_ARQUIVOMFD )
{
    HINSTANCE handle = LoadLibrary("BEMAFI32.DLL");
    if (handle)
    {
        _BEMATECH_FI_ARQUIVOMFD pFunc;
        char a[ 514 ] = { 0 };
        char b[ 20  ] = { 0 };
        char c[ 20  ] = { 0 };
        char d[ 4   ] = { 0 };
        char e[ 2   ] = { 0 };
        char g[ 258 ] = { 0 };
        char h[ 258 ] = { 0 };
        pFunc = (_BEMATECH_FI_ARQUIVOMFD) GetProcAddress(handle,"Bematech_FI_ArquivoMFD");
        strcpy( a , hb_parcx( 1 ));
        strcpy( b , hb_parcx( 2 ));
        strcpy( c , hb_parcx( 3 ));
        strcpy( d , hb_parcx( 4 ));
        strcpy( e , hb_parcx( 5 ));
        strcpy( g , hb_parcx( 7 ));
        strcpy( h , hb_parcx( 8 ));
        hb_retni(pFunc( a, b, c, d, e, hb_parni(6), g, h, hb_parni(9) ));
        FreeLibrary( handle );
    }
}
Editado pela última vez por Maligno em 02 Mar 2012 20:37, em um total de 1 vez.
Razão: Mensagem editada para colocar a tag [ code ]<br>Veja como utilizar esta tag: http://www.pctoledo.com.br/forum/faq.php?mode=bbcode#f2r1
fui...
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
Responder