Imprimir ASCII 179 - 223

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

Jan Ribeiro
Posts: 17
Joined: Tue Sep 30, 2008 2:00 pm

Imprimir ASCII 179 - 223

Post by Jan Ribeiro » Mon Oct 20, 2008 12:00 pm

Preciso imprimir caracteres ASCII de 179 a 223 conforme informação de caractere que recebo de um arquivo DBF usando uma classe de impressão.
oObjPrt:printdata(nLinha, nColuna, chr(220))
Não é impresso o caracter da tabela ASCII.
É impresso um U com trema com esta linha de comando.
Como é possivel obter valor da tabela unicode e imprimir?
Agradeço a ajuda.
Jan Ribeiro

User avatar
fchirico
Posts: 324
Joined: Sat Aug 23, 2008 11:27 pm
Location: Argentina

Post by fchirico » Tue Oct 21, 2008 12:08 pm

Jan Ribeiro wrote:Preciso imprimir caracteres ASCII de 179 a 223 .....
Jan, no sé si es lo que necesitás ya que no comprendo el Portugués.

Te dejo dos funciones de Harbour que quizá te puedan ayudar:

HB_OemToAnsi() y HB_AnsiToOem()

HB_OEMTOANSI (xHarbour Function)


Convert a DOS(OEM) Character to a WINDOWS (ANSI) based character

. Syntax
HB_OEMTOANSI( <> ) ==> NIL

. Scope
?

. Category
rtl

. Arguments
<cString> DOS (OEM) string to convert to WINDOWS (ANSI) String

. Return value
<cDosString> WINDOWS based string

. Description
This function converts each character in <cString> to the
correspondingcharacter in the Windows (ANSI) character set.The character
expression<cString> should contain characters from the OEM character
set.If a character in <cString> doesn't have a ANSI equivalent,
thecharacter is remais the same.

. Examples
? HB_OEMTOANSI("Harbour")


. Files
rtl.lib, source is oemansi.c

. See also
HB_ANSITOOEM

Saludos, Fernando Chirico
Saludos, Fernando Chirico.

Jan Ribeiro
Posts: 17
Joined: Tue Sep 30, 2008 2:00 pm

Post by Jan Ribeiro » Tue Oct 21, 2008 11:52 pm

Fernando Chirico grato pela resposta.
Eu não conheço as functions que voce me mostrou que são do xHarbour e será que funcionam no compilador HMG que o Roberto Lopez desenvolve? Onde conseguir uma lista de referência?
Saludos, Jan

User avatar
fchirico
Posts: 324
Joined: Sat Aug 23, 2008 11:27 pm
Location: Argentina

Post by fchirico » Wed Oct 22, 2008 3:35 pm

Jan Ribeiro wrote:Fernando Chirico grato pela resposta.
Eu não conheço as functions que voce me mostrou que são do xHarbour e será que funcionam no compilador HMG que o Roberto Lopez desenvolve? Onde conseguir uma lista de referência?
Saludos, Jan
Son funciones del lenguaje Harbour. Las puedes llamar desde HMG Oficial ( desarrollado por Roberto López ).

En tu ejemplo serí así:

oObjPrt:printdata( nLinha, nColuna, HB_OemToAnsi( chr(220) ) )

Lo que hace esta función es pasar los caracteres ASCII a ANSI ( usados por Windows )

Las funciones las puedes ver si te bajas los fuentes de Harbour desde Sourceforge. Cuando llegue a casa si lo tengo te lo envío.

En qué lenguaje estás desarrollando?

Saludos, Fernando Chirico.
Saludos, Fernando Chirico.

Jan Ribeiro
Posts: 17
Joined: Tue Sep 30, 2008 2:00 pm

Post by Jan Ribeiro » Thu Oct 23, 2008 12:34 am

Fernando Chirico
Gracias vou testar o exemplo que voce me enviou. Tentei fazer o download do manual mas retiraram o arquivo de download. Se voce tiver por aí por favor me mande.
Meu Email jan1939@gmail.com
Saludos, Jan

Jan Ribeiro
Posts: 17
Joined: Tue Sep 30, 2008 2:00 pm

Post by Jan Ribeiro » Thu Oct 23, 2008 12:39 am

Fernando Chirico
Eu esquecí... Eu estou usado a base Clipper compilado pelo Harbour-Minigui desenvolvido por Roberto Lopez e está muito bom.
Saludos, Jan

Jan Ribeiro
Posts: 17
Joined: Tue Sep 30, 2008 2:00 pm

Post by Jan Ribeiro » Thu Oct 23, 2008 1:05 am

Fernando Chirico
Acabei de testar e não consegui imprimir o Upper Half Block 220 da tabela ASCII e saiu impresso um traço de sublinhado. Para voce ter uma idéia eu monto um array como se fosse uma folha de A4 impressa e no lugar deste Upper Half Block eu coloco *. Na saída para a impressora eu leio cada linha no array e uso um objeto de impressão que é a linha e substituo o * e estou tentando imprimir o Upper Half Block que sai U com trema ou agora com a nova linha este _ .
Qual a outra idéia que você me dá? Meu Windows é o XP SP2 e minha impressora LexMark E120
que é o mesmo modelo E230 Láser. Tenho o Manual de Referencia em pdf se quizer mande o seu
Email que eu mando para voce.
Saludos, Jan

User avatar
fchirico
Posts: 324
Joined: Sat Aug 23, 2008 11:27 pm
Location: Argentina

Post by fchirico » Thu Oct 23, 2008 11:28 am

Jan Ribeiro wrote:Fernando Chirico
Acabei de testar e não consegui imprimir o Upper Half Block 220 da tabela ASCII e saiu impresso um traço de sublinhado. Para voce ter uma idéia eu monto um array como se fosse uma folha de A4 impressa e no lugar deste Upper Half Block eu coloco *. Na saída para a impressora eu leio cada linha no array e uso um objeto de impressão que é a linha e substituo o * e estou tentando imprimir o Upper Half Block que sai U com trema ou agora com a nova linha este _ .
Qual a outra idéia que você me dá? ....
Jan, te pido disculpas pero realmente no comprendo el problema que tienes y además el Google traduce el Portugués muy mal.

Quieres imprimir el ASCII 220 ?
Lo estas haciendo desde Clipper ?

Probaste de guardar en la tabla directamente el caracter 220 , es decir "▄" ?

Saludos, Fernando Chirico.
Saludos, Fernando Chirico.

Jan Ribeiro
Posts: 17
Joined: Tue Sep 30, 2008 2:00 pm

Post by Jan Ribeiro » Thu Oct 23, 2008 12:55 pm

Fernando Chirico
Eu é que te pido disculpas por não escrever de modo que voce entenda meu problema.
Entao vamos tentando escrever em Portunhol (Português + Espanhol)
Estou querendo imprimir el ASCII 220 (Upper Half Block - "▄" ) Copiei do seu texto o caracter.
Eu estou usando o HMG Oficial ( desarrollado por Roberto López ).
Será que eu consegui apresentar melhor o problema pra você?
Gracias
Saludos, Jan

Jan Ribeiro
Posts: 17
Joined: Tue Sep 30, 2008 2:00 pm

Post by Jan Ribeiro » Thu Oct 23, 2008 5:12 pm

Fernando Chirico
Vou tentar explicar um passo em cada linha
Eu leio um arquivo DBF
Monto um array
Leio o array
Imprimo carater um por vez.
Quando encontro * no array quero imprimir "▄".
Será que eu consegui apresentar melhor o problema pra você?
Gracias
Saludos, Jan

Post Reply