Re: No muestra las letras acentuadas?
Posted: Sun Dec 30, 2012 5:48 pm
Hola!!!
Dr. Claudio gracias por el tip SET CODEPAGE TO SPANISH
Saludos
Polo
Dr. Claudio gracias por el tip SET CODEPAGE TO SPANISH
Saludos
Polo
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://mail.hmgforum.com/
Code: Select all
#include "hmg.ch"
#define CSIDL_LOCAL_APPDATA 28
#define SHGFP_TYPE_CURRENT 0
Function Main()
MsgInfo( GET_FOLDER_LINK( SHGFP_TYPE_CURRENT, CSIDL_LOCAL_APPDATA ) )
Return Nil
#pragma begindump
#include <windows.h>
#include <shlobj.h>
#include "hbapi.h"
//************************************************************************************************************
// GET_FOLDER_LINK (id_SHGFP_TYPE, id_CSIDL) ---> Return cFolder
//************************************************************************************************************
HB_FUNC (GET_FOLDER_LINK)
{
TCHAR pszPath [MAX_PATH];
DWORD id_SHGFP_TYPE = (DWORD) hb_parnl (1);
INT id_CSIDL = (INT) hb_parnl (2);
if(SUCCEEDED (SHGetFolderPath (NULL, id_CSIDL, NULL, id_SHGFP_TYPE, pszPath)))
hb_retc (pszPath);
else
hb_retc ("ERROR: The folder does not exist");
}
#pragma enddumpCode: Select all
#define COMPILE_HMG_UNICODE
#include "HMG_UNICODE.h"
Code: Select all
if(SUCCEEDED (SHGetFolderPath (NULL, id_CSIDL, NULL, id_SHGFP_TYPE, pszPath)))
HMG_retc (pszPath);
else
HMG_retc (_TEXT("ERROR: The folder does not exist"));
Esto implica que además de usar SET LANGUAGE TO SPANISH, debes utilizar um editor (puede ser el Notepad++ que viene en el paquete HMG) e ir en la opcion Formatar / Codificacion UTF. Irás notar que tendrás que reahacer todos las acentuaciones. Pero eso no es tan dificil, no ?srvet_claudio wrote:pero como dijo Daniel, lo ideal es trabajar directo con el texto en Unicode.