Search found 10 matches

by Jeanette Panitz
Thu Oct 31, 2013 10:57 am
Forum: FiveWin for Harbour/xHarbour
Topic: Embedding a 3rd party .dll
Replies: 34
Views: 8580

Re: Embedding a 3rd party .dll

Thank you very much Antonio, this solution works fine. Do you also know how to return an array of integer? I have another function (with 2 structs), that returns information of a xml-file. If there are discrepancies in the xml-file the array of int "Hinweis[30]" should return error-codes. ...
by Jeanette Panitz
Mon Oct 28, 2013 12:39 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Embedding a 3rd party .dll
Replies: 34
Views: 8580

Re: Embedding a 3rd party .dll

Antonio, I tried your solution: the program shows the message "not an array there". After that it crashes. ... PHB_ITEM pArray = hb_param( 17, HB_IT_ARRAY ); ... if( ! pArray ) {      MessageBox( 0, "not an array there", "ok", 0 ); }       for ( k = 0; k < 30; k++ ) {  ...
by Jeanette Panitz
Thu Oct 24, 2013 1:30 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Embedding a 3rd party .dll
Replies: 34
Views: 8580

Re: Embedding a 3rd party .dll

Antonio, unfortunately this solution does not work, the program crashes. I tried this way also a week ago and the program works only like this, but does not fill the array of integer PHB_ITEM pArray = hb_param( 1, HB_IT_ARRAY ); for ( k = 0; k < 30; k++ ) {         aStruct.CSVFeld[k] = hb_arrayGetNI...
by Jeanette Panitz
Thu Oct 24, 2013 12:32 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Embedding a 3rd party .dll
Replies: 34
Views: 8580

Re: Embedding a 3rd party .dll

Antonio,

yes, like Gilbert I'm using xHarbour.
by Jeanette Panitz
Thu Oct 24, 2013 11:32 am
Forum: FiveWin for Harbour/xHarbour
Topic: Embedding a 3rd party .dll
Replies: 34
Views: 8580

Re: Embedding a 3rd party .dll

Antonio, it's easier to explain it on another function, which also contains a struct with an array of integer-element ( int CSVFeld[30]; ) #include "Fivewin.ch" function main()     local aConvertCSV2XML         msgInfo(SEPATOOLS_INIT( "", "", "c:\temp", "...
by Jeanette Panitz
Thu Oct 24, 2013 10:32 am
Forum: FiveWin for Harbour/xHarbour
Topic: Embedding a 3rd party .dll
Replies: 34
Views: 8580

Re: Embedding a 3rd party .dll

Hello Eduardo, it's the same sourcecode like in my earlier post (Wed Oct 23, 2013 8:24 am). I changed only line 101, so it looks now like that: typedef struct   {          // ...                int   Hinweis[30];           } XMLReadStruct24; HB_FUNC( SEPATOOLS_GETDTAPROTOKOLL ) {         int iSize =...
by Jeanette Panitz
Thu Oct 24, 2013 8:24 am
Forum: FiveWin for Harbour/xHarbour
Topic: Embedding a 3rd party .dll
Replies: 34
Views: 8580

Re: Embedding a 3rd party .dll

Antonio, for only one value your solution works fine. Thank you. But I have to fill the array with all 30 values. Now I tried to use a for loop to retrieve 30 values int k, l; for ( k = 0; k < 30; k++ ) {     l = k+1;     aStruct.Hinweis[k] = hb_parni( 1, 23, l ); }   Compiling and linking are succe...
by Jeanette Panitz
Thu Oct 24, 2013 7:13 am
Forum: FiveWin for Harbour/xHarbour
Topic: Embedding a 3rd party .dll
Replies: 34
Views: 8580

Re: Embedding a 3rd party .dll

Antonio,

the sourcecode in line 101 and 132 should retrieve and store the array of integer "Hinweis".

line 101: aStruct.Hinweis = hb_parni( 1, 23 );
line 132: hb_storni( aStruct.Hinweis, -1, 23 );
by Jeanette Panitz
Wed Oct 23, 2013 8:43 am
Forum: FiveWin for Harbour/xHarbour
Topic: Embedding a 3rd party .dll
Replies: 34
Views: 8580

Re: Embedding a 3rd party .dll

yes, the same error occurs while compiling function HB_FUN_SEPATOOLS_CONVERTCSVTOXML. But now the right errors Error E2277 SepaGetDTAProtocol.prg 101: Lvalue required in function HB_FUN_SEPATOOLS_GETDTAPROTOKOLL Error E2342 SepaGetDTAProtocol.prg 132: Type mismatch in parameter 'iValue' (wanted 'int...
by Jeanette Panitz
Wed Oct 23, 2013 8:24 am
Forum: FiveWin for Harbour/xHarbour
Topic: Embedding a 3rd party .dll
Replies: 34
Views: 8580

Re: Embedding a 3rd party .dll

Hello, i have still more problems with embedding functions of the .dll. The function int pascal SepaTools_GetDTAProtokoll( XMLReadStruct24 *XMLReadStruct, int Fehler, int *First ); retrieves and stores a struct. The struct typedef struct   {       char  PmInfoId[35+1];           char  AusfDatum[8+1]...