Delphi 7

[Robert Gilland]

Just imported a WSDL from a third party service company in Lazarus and then tried to use them in Delphi 7, however they did not work because of unicode stuff how to get around this?

[Inoussa OUEDRAOGO]

Be more specific. What is the exact error?

2016-08-02 6:36 UTC, Robert Gilland <rgilla...@gmail.com>:

> Just imported a WSDL from a third party service company in Lazarus and then
>
> tried to use them in Delphi 7, however they did not work because of unicode
>
> stuff how to get around this?
>

> --
> You received this message because you are subscribed to the Google Groups
> "WST-LIST" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to wst-list+u...@googlegroups.com.
> To post to this group, send email to wst-...@googlegroups.com.
> To view this discussion on the web visit
> https://groups.google.com/d/msgid/wst-list/8326e679-a2b4-4162-a31b-36eedb3da1c5%40googlegroups.com.
> For more options, visit https://groups.google.com/d/optout.
>


--
Inoussa O.

[Robert Gilland]

OKay the issue is I am building proxy units for a webservice to be used in delphi 7

However Lazaraus is generating unicode types not available in delphi 7

What I have done to get arround the problem is this:

Update wstglobal.inc to undefine WST_UNICODESTRING in FPC

update the below object_serializer lines:

{$IFDEF WST_UNICODESTRING}

     ,( Simple : @UnicodeStringReader; Qualified : @UnicodeStringReaderQualified ;)  //tkUString

     ,( Simple : @ErrorFunc; Qualified : @ErrorFunc ;)  //tkUChar

{$ELSE}

     ,( Simple : @ErrorFunc; Qualified : @ErrorFunc ;)  //tkUString

     ,( Simple : @ErrorFunc; Qualified : @ErrorFunc ;)  //tkUChar

{$ENDIF WST_UNICODESTRING} 

{$IFDEF WST_UNICODESTRING}

     ,( Simple : @UnicodeStringWriter; Qualified : @UnicodeStringWriterQualified ;)  //tkUString

     ,( Simple : @ErrorProc; Qualified : @ErrorProc ;)  //tkUChar

{$ELSE}

     ,( Simple : @ErrorProc; Qualified : @ErrorProc ;)  //tkUString

     ,( Simple : @ErrorProc; Qualified : @ErrorProc ;)  //tkUChar

{$ENDIF WST_UNICODESTRING}

All good now.

Kind Regards,

Robert