preview report got error when Windows User name Chinese word

[richard-service]

Hi Mr.Rao

When Windows user name is English name, preview report work fine.
But Chinese name, not work and got error message below:

[nageswaragunupudi]

Have you included this code in your main program?

Code: Select all  Expand view  RUN

HB_CDPSELECT( "UTF8" )

If not please include this and let is know if the problem is resolved

[richard-service]

Have you included this code in your main program?

Code: Select all  Expand view  RUN

HB_CDPSELECT( "UTF8" )

If not please include this and let is know if the problem is resolved

Yes, I set it. but not work.

Code: Select all  Expand view  RUN

HB_LangSelect( "zh" )
HB_SetCodePage( "UTF8" )
HB_CDPSELECT( "UTF8" )

Fw_SetUnicode( .T. )
 

[nageswaragunupudi]

I see.
We will check.

[nageswaragunupudi]

This is happening because our metafile functions like create, open, etc are not supporting Unicode file path names.
These functions are now made Unicode compatible.
With this you will not face this problem from the next version of FWH2208 to be released.
For the present you need to bear with the problem.

[richard-service]

This is happening because our metafile functions like create, open, etc are not supporting Unicode file path names.
These functions are now made Unicode compatible.
With this you will not face this problem from the next version of FWH2208 to be released.
For the present you need to bear with the problem.

Mr.Rao

so the next version to be released?

[nageswaragunupudi]

We are trying to release around the middle of September. May be, we call it FWH2309

[nageswaragunupudi]

Till then, if you like, you can make a small patch in printer.prg

Please see this code in METHOD new()

Code: Select all  Expand view  RUN

  if ! ::lMeta
      ::hDcOut = ::hDC
   else
      ::aMeta  = {}
      ::cDir   = GetEnv( "TEMP" )

      if Empty( ::cDir )
         ::cDir = GetEnv( "TMP" )
      endif

      if Right( ::cDir, 1 ) == "\"
         ::cDir = SubStr( ::cDir, 1, Len( ::cDir ) - 1 )
      endif

      if ! Empty( ::cDir )
         if ! lIsDir( ::cDir )
            ::cDir = GetWinDir()
         endif
      else
         ::cDir := GetWinDir()
      endif
   endif

   if ::lMeta .and. ( ( ::lUseHaruPDF .and. IsHaruLinked() ) .or. ::lNativeWord )
      ::aCallLog  := {}
   else

Please add one line between "endif" and "if ::lMeta"
like this:

Code: Select all  Expand view  RUN

   endif
   ::cDir := "<some directory in pure English>"  // <-- Insert here

   if ::lMeta .and. ........

You choose some existing directory name which is in English, where the user has rights to create files.
Do not include "\" at the end.

[richard-service]

Till then, if you like, you can make a small patch in printer.prg

Please see this code in METHOD new()

Code: Select all  Expand view  RUN

  if ! ::lMeta
      ::hDcOut = ::hDC
   else
      ::aMeta  = {}
      ::cDir   = GetEnv( "TEMP" )

      if Empty( ::cDir )
         ::cDir = GetEnv( "TMP" )
      endif

      if Right( ::cDir, 1 ) == "\"
         ::cDir = SubStr( ::cDir, 1, Len( ::cDir ) - 1 )
      endif

      if ! Empty( ::cDir )
         if ! lIsDir( ::cDir )
            ::cDir = GetWinDir()
         endif
      else
         ::cDir := GetWinDir()
      endif
   endif

   if ::lMeta .and. ( ( ::lUseHaruPDF .and. IsHaruLinked() ) .or. ::lNativeWord )
      ::aCallLog  := {}
   else

Please add one line between "endif" and "if ::lMeta"
like this:

Code: Select all  Expand view  RUN

   endif
   ::cDir := "<some directory in pure English>"  // <-- Insert here

   if ::lMeta .and. ........

You choose some existing directory name which is in English, where the user has rights to create files.
Do not include "\" at the end.

Ok. I will try it later.
Thank you.

[nageswaragunupudi]

May I know your current FWH version?
Are you planning to upgrade?

[richard-service]

May I know your current FWH version?
Are you planning to upgrade?

I am using FWH 22.12 Version.