FiveTech Software tech support forums

... and fields are directly assessed and written. 19. lOemAnsi ( Type: "L" Default: .F. ): If .T., charactger values are converted using OemToAnsi() and AnsiToOem() while reading and saving. 20. lReadOnly ( Type: "L" Default: .F. ): True if the file is opened in readonly mode. ...

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

Rao ok I'm converting an oldest clipper ( with fw) application ...

Better not to use oemtoansi(). That is history.
We now write programs in ANSI mode and store data in ANSI

Now I use Harbour and not xharbour
and I tried oemtoansi also on harbour and not run here



it write caffP instead of caffè
it write tP instead of tè

Why do you use oemtoansi() ?
What is the need at all?

I use hb_OemToAnsi function on Harbour

Code: Select all  Expand view

cNombre:= Str2Lines( hb_OemToAnsi( AllTrim(pr->DESC1) ), " " )

but I have problems with italian words have ì ù à ò è How I can resolve it ?

column := TbcolumnNew( OemToAnsi("Año"), ;
{|p| If( p == NIL, ::aArray[nSubscript,3],;
::aArray[nSubscript,3] := p)})

Depende mucho del editor de textos que uses también.

... la ficha") Return Self Endif cMensa:="Informa%20=%20Se%20ha%20cargado%20la%20orden%20de%20servicio%20"+Alltrim(Oemtoansi(cOrden))+"%20"+; "de%20fecha%20"+dtoc(date())+"%20"+; "informaremos%20por%20esta%20via%20los%20avances%20de%20su%20servicio.%20Gracias%20por%20su"+"%20"+; ...

Cristobal, muchas gracias.

hb_oemtoansi( hb_utf8tostr( cCadena ) )

Esto me funciono.

... are in CP852 (for compatibility reason!). In HMG (harbour minigui) I simpy add REQUEST HB_LANG_SL852 REQUEST HB_CODEPAGE_SL852 ... and function hb_OemToAnsi() to COLUMNS "sifpar",hb_OemToAnsi("naziv"),hb_OemToAnsi("ulica"),hb_OemToAnsi("Naslov"); and in browse ...

Amigos... lo hice medio casero... pero funciona, capaz hay algo un poco más sofisticado... Por ahí le sirve a alguno: FUNCTION GENERARJSON() Local hJson := hash() local cJson := '{"clientes":[' (bclientes)->(dbgotop()) while !(Bclientes)->(eof()) hJson["Código"] := (bclient...

... a ver que sucede --------------------------- DEFINE Window oWndIva From 0,0 to MaxRow(),MaxCol(); ICON oIconAbm; COLOR "N/W+"; TITLE OemToAnsi("Apuntes con Iva"); BORDER NONE NOSYSMENU NOMINIMIZE NOMAXIMIZE Barra() Cfactura() Dfactura() Barra2() Linea() Lineas() DbSelectArea("civa") ...

... oIconAbm RESOURCE "WorkAreas" DEFINE Window oWndCon OF oWnd From 0,0 to MaxRow(),MaxCol(); ICON oIconAbm; COLOR "N/W+"; TITLE OemToAnsi("Fichero De Conceptos"); BORDER NONE NOSYSMENU NOMINIMIZE NOMAXIMIZE SET MESSAGE OF oWndCon TO "" KEYBOARD DATE CENTERED ...

I 'm converting an oldest clipper function and I need to show this caracter on fwh I have on oldest source static spade := chr(6) static heart := chr(3) static club := chr(5) static diamond := chr(4) how I can converte these chr because on windows not see the symbols I tried also With HB_OemToAnsi a...