Re: [fpc-pascal] importtl tool

2016-10-24 Thread LacaK
Dňa 24.10.2016 o 13:10 José Mejuto napísal(a): El 24/10/2016 a las 8:17, LacaK escribió: I'm not "sure" because if the flag does not tell us nothing (no IN, no OUT) I do not know if there is a "default behavior" except the "ByRef" flag and both "constref" and "var" are "ByRef". I have found:

Re: [fpc-pascal] importtl tool

2016-10-24 Thread José Mejuto
El 24/10/2016 a las 8:17, LacaK escribió: I'm not "sure" because if the flag does not tell us nothing (no IN, no OUT) I do not know if there is a "default behavior" except the "ByRef" flag and both "constref" and "var" are "ByRef". I have found:

Re: [fpc-pascal] importtl tool

2016-10-24 Thread LacaK
To note that both "constref" are intentional. Ok I can create patch if we (you ;-)) are sure that it is okay ? -Laco. I'm not "sure" because if the flag does not tell us nothing (no IN, no OUT) I do not know if there is a "default behavior" except the "ByRef" flag and both "constref"

Re: [fpc-pascal] importtl tool

2016-10-21 Thread José Mejuto
El 21/10/2016 a las 13:57, LacaK escribió: To note that both "constref" are intentional. Ok I can create patch if we (you ;-)) are sure that it is okay ? -Laco. Hello, I'm not "sure" because if the flag does not tell us nothing (no IN, no OUT) I do not know if there is a "default behavior"

Re: [fpc-pascal] importtl tool

2016-10-21 Thread LacaK
Dňa 21.10.2016 o 13:42 José Mejuto napísal(a): El 21/10/2016 a las 12:32, LacaK escribió: So result should be: case FD^.lprgelemdescParam[k].paramdesc.wParamFlags and (PARAMFLAG_FIN or PARAMFLAG_FOUT) of PARAMFLAG_FIN or PARAMFLAG_FOUT:sPar:='var ';

Re: [fpc-pascal] importtl tool

2016-10-21 Thread José Mejuto
El 21/10/2016 a las 12:32, LacaK escribió: So result should be: case FD^.lprgelemdescParam[k].paramdesc.wParamFlags and (PARAMFLAG_FIN or PARAMFLAG_FOUT) of PARAMFLAG_FIN or PARAMFLAG_FOUT:sPar:='var '; PARAMFLAG_FOUT:sPar:='out '; else

Re: [fpc-pascal] importtl tool

2016-10-21 Thread LacaK
Dňa 21.10.2016 o 12:10 José Mejuto napísal(a): El 21/10/2016 a las 12:05, LacaK escribió: - in typelib.pas is on line 631 vt=VT_PTR and sl='PWideString' ('P' is deleted on line 635) wParamFlags=0 When I add "else" part: case FD^.lprgelemdescParam[k].paramdesc.wParamFlags and

Re: [fpc-pascal] importtl tool

2016-10-21 Thread José Mejuto
El 21/10/2016 a las 12:05, LacaK escribió: - in typelib.pas is on line 631 vt=VT_PTR and sl='PWideString' ('P' is deleted on line 635) wParamFlags=0 When I add "else" part: case FD^.lprgelemdescParam[k].paramdesc.wParamFlags and (PARAMFLAG_FIN or PARAMFLAG_FOUT) of

Re: [fpc-pascal] importtl tool

2016-10-21 Thread LacaK
Dňa 20.10.2016 o 17:48 José Mejuto napísal(a): El 20/10/2016 a las 15:20, LacaK escribió: There is: if bParamByRef then case FD^.lprgelemdescParam[k].paramdesc.wParamFlags and (PARAMFLAG_FIN or PARAMFLAG_FOUT) of PARAMFLAG_FIN or PARAMFLAG_FOUT:sPar:='var ';

Re: [fpc-pascal] importtl tool

2016-10-20 Thread José Mejuto
El 20/10/2016 a las 15:20, LacaK escribió: There is: if bParamByRef then case FD^.lprgelemdescParam[k].paramdesc.wParamFlags and (PARAMFLAG_FIN or PARAMFLAG_FOUT) of PARAMFLAG_FIN or PARAMFLAG_FOUT:sPar:='var '; PARAMFLAG_FOUT:sPar:='out ';

Re: [fpc-pascal] importtl tool

2016-10-20 Thread LacaK
Dňa 20.10.2016 o 14:05 José Mejuto napísal(a): El 20/10/2016 a las 11:09, LacaK escribió: Hi, I have noticed, that tool for importing type library into pas incorrectly imports interface methods, which should have "var" parameter. For example in my case imported: function

Re: [fpc-pascal] importtl tool

2016-10-20 Thread José Mejuto
El 20/10/2016 a las 11:09, LacaK escribió: Hi, I have noticed, that tool for importing type library into pas incorrectly imports interface methods, which should have "var" parameter. For example in my case imported: function ScGetStringValue(Type_:Integer;Value:WideString):Integer;dispid

[fpc-pascal] importtl tool

2016-10-20 Thread LacaK
Hi, I have noticed, that tool for importing type library into pas incorrectly imports interface methods, which should have "var" parameter. For example in my case imported: function ScGetStringValue(Type_:Integer;Value:WideString):Integer;dispid 33; but it should be: function