error special Filename characters

[nnicanor]

With las version of HARBUR (BCC, MVC & MINGW) when using special characters to create filenames all special are changed and get error when try to open because special characters changed, i return to previus version of HARBOUR 7025 for Bcc y Mvc y 17003 for mingw

Example:

Code: Select all  Expand view

     cFilename :="PÓLIZA DIRECTORES Y ADMINISTRADORES.pdf"

      oQryFind = TDolphinQry():New( "select file from files where id=" + ClipValue2Sql( uValue ), oQry:oServer )

      nHandle := FCreate( cFilename  )

      IF FError() # 0
         MsgInfo( "Error grabando Archivo " + AllTrim( cfilename ) )
         RETURN
      ENDIF

      FWrite( nHandle, oQryFind:file, Len( oQryFind:file ) )
      FClose( nHandle )

     // memowrite( cFilename, oQryFind:file )   // Same error

      ShellExecute(,"Open","'"+cFilename+"'",,,3) // can't not open file because created filename have changed characters

 

Created name is "P╙LIZA DIRECTORES Y ADMINISTRADORES.pdf" where Ó is changed for ╙ and same is for all branded characters and Ñ y ñ.

Please notify to harbour team to review.


Slds,

[nnicanor]

I found answer in harbour groups, to use special spanish characters in filenames see example, codepage default behavior has been changed in lastest versions.

REQUEST HB_LANG_ES
REQUEST HB_CODEPAGE_ESWIN

Function Main()


SET( _SET_CODEPAGE, "ESWIN" )
...
...