fpc/lazarus and TDocVariant exception

sushi · 2015-08-18 19:34:25

Hello,

I'm trying to use synMustache to generate web views. I started with the code in the doc :

mustache := TSynMustache.Parse('Hello {{name}}'#13#10'You have just won {{value}} dollars!');
TDocVariant.New(doc);
doc.name := 'Chris';
doc.value := 10000;
html := mustache.Render(doc);

It compiles and it works on Windows. On Linux (Ubuntu), it compiles but the instruction
doc.name := 'Chris';
raise the exception EVariantBadVarTypeError.

What goes wrong? Thank you.

ab · 2015-08-19 10:50:27

What is your FPC revision?

See http://synopse.info/files/html/Synopse% … l#TITL_125

sushi · 2015-09-04 05:24:59

Hello, sorry for the delay.

I think it's the right version, I installed it 2 monhs ago this way: http://www.getlazarus.org/setup/#linux .
Here are the details extracted from Lazarus EDI:

FPC executable:
CompilerDate=30/06/2015 21:51:44
RealCompiler=~/Development/FreePascal/fpc/bin/ppc386
RealCompilerDate=30/06/2015 21:54:09
RealTargetOS=linux
RealTargetCPU=i386
Version=3.1.1

AOG · 2015-09-09 06:51:34

I can confirm this exception.
I am looking into it !

AOG · 2015-09-09 07:45:13

Interim report.

Under Windows, the variant type is varOleStr.
Under Linux, the variant type is varustring.

@Ab: any idea already ?

AOG · 2015-09-09 07:57:21

Ok. Got things working. Not sure if correct, so please check and review.

Inside syncommons.pas, change

if Value.VType=varOleStr then

into

if (Value.VType=varOleStr) OR (Value.VType=varustring) then

and all works under Win and Linux !
But again, please chck if correct !

ab · 2015-09-09 07:57:26

String constants are therefore implemented via a BSTR/varOleStr under Windows, whereas it is a varUString (UnicodeString) under Linux.
Very interesting.

Where is the exception triggered?
In mORMot code, or in variants.pas?
Isn't the varUStr type missing in TSynInvokeableVariantType.SetProperty?

Could you check if HASVARUSTRING conditional is enabled in Synopse.inc for your compiler?

ab · 2015-09-09 08:21:06

Please try http://synopse.info/fossil/info/c5770b0f83

AOG · 2015-09-09 08:22:48

Well, it breaks here, inside symcommons.pas inside function TSynInvokeableVariantType.SetProperty at:

end else begin
    IntSet(V,Value,PropName); <--

which is to be expected when VType is wrong.
HASVARUSTRING conditional is enabled !

AOG · 2015-09-09 08:23:52

Sorry, did not see your commit ! Will try now !!

AOG · 2015-09-09 08:31:13

Your commit works !
Thanks !!

mORMot Open Source

#1 2015-08-18 19:34:25

fpc/lazarus and TDocVariant exception

#2 2015-08-19 10:50:27

Re: fpc/lazarus and TDocVariant exception

#3 2015-09-04 05:24:59

Re: fpc/lazarus and TDocVariant exception

#4 2015-09-09 06:51:34

Re: fpc/lazarus and TDocVariant exception

#5 2015-09-09 07:45:13

Re: fpc/lazarus and TDocVariant exception

#6 2015-09-09 07:57:21

Re: fpc/lazarus and TDocVariant exception

#7 2015-09-09 07:57:26

Re: fpc/lazarus and TDocVariant exception

#8 2015-09-09 08:21:06

Re: fpc/lazarus and TDocVariant exception

#9 2015-09-09 08:22:48

Re: fpc/lazarus and TDocVariant exception

#10 2015-09-09 08:23:52

Re: fpc/lazarus and TDocVariant exception

#11 2015-09-09 08:31:13

Re: fpc/lazarus and TDocVariant exception

Board footer