Ignacio,
thank you very much for the sample but it doesn't work.
The DLL is provided by the German finance administration and contains modules
for the electronic transmission of purchase tax datas to the finance office.
The function "Elsterdialog" e.g. is used for the input of personal datas
like the tax payer's account number and the appropriate finance office etc.
and for the validity check of them.
Because I haven't any experience in C++/C I don't know how to use the ability
of (x)Harbour to call 'C' functions directly. It is very kindly that you
will help me. Here the prototype of the DLL-function 'Elsterdialog':
int TM_DLL_EXP ElsterDialog
(
char* par1,
char* par2,
char* par3,
int Abfrageart
);
Thank's in advance
Ingo
"Ignacio Ortiz de Zúñiga" <
NoName@xailer.com> wrote:
>Ingo,
>
>We believe that the DLL command has a lot of limitations and since
>[x]Harbour can call any 'C' function directly, is better to use that
>[x]Harbour feature.
>
>For example:
>
>#pragma BEGINDUMP
>
>#include <windows.h>
>#include <xailer.h>
>
>XA_FUNC( ELSTERDIALOG )
>{
> hb_retc( ElsterDialog( hb_parc( 1 ), hb_parc( 2 ), hb_parc( 3 ),
>hb_parnl( 4 ) ) );
>}
>
>#pragma ENDDUMP
>
>As you can see it returns a strigns (array of bytes). I hope it works, in
>case not, tell us the exact prototype of the DLL function.
>
>For this to work you need to create the import library for your DLL with
the
>Borland utility IMPLIB.EXE and add that library to your project.
>
>Regards,
>
>--
>Ignacio Ortiz de Zúñiga
>
http://www.xailer.com
>"Ingo Junge-Herrmann" <[email=XPRO-0031BA74-01@10.0.0.11]XPRO-0031BA74-01@10.0.0.11[/email]> escribió en el mensaje
>news:455196a0$[email=
1@news.xailer.com...]
1@news.xailer.com...[/email]
>>
>> Ignacio,
>>
>> under FiveWin I use this (very simple) way to call functions of an
>> external
>> DLL.
>> For example to call the functions "ElsterDialog" or "ElsterInit" of
>> "tm98.dll":
>>
>> DLL32 FUNCTION ElsterDialog( par1 AS LPSTR,;
>> par2 AS LPSTR,;
>> par3 AS LPSTR,;
>> par4 AS LONG) ;
>> AS BYTE FROM "ElsterDialog" LIB "tm98.dll"
>>
>> DLL32 FUNCTION ElsterInit( par1 AS BYTE,;
>> par2 AS CHAR) ;
>> AS LONG FROM "ElsterInit" LIB "tm98.dll"
>>
>> Please help me to code this in Xailer. Can you give me a sample?
>>
>> Thank you in advance.
>> Regards
>>
>> Ingo
>
>