In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Fuentes VGA para modo consola

Lenguaje de progamación XBase en español
cybercalp
Posts: 5
Joined: Wed Nov 23, 2011 4:14 pm

Fuentes VGA para modo consola

Postby cybercalp » Wed Nov 23, 2011 4:22 pm

Hola a todos:
Estamos convirtiendo una antigua aplicación el clipper usando Harbour + Borland C 5.5 + xedit. Toda la conversión la hemos realizado con mayor o menor acierto, pero nos hemos encontrado con un pequeño problema.
En clipper se utilizó una función en C para cargar la redefinición de fuentes de la VGA, pero no hemos logrado convertirla para que funcione en harbour, aunque la antigua aplicación en modo consola, a pantalla completa en Windows XP, carga y funciona bien y se ve correctamente.
#include "c:stdapldosbc3includedos.h"
#include "c:stdapldosbc3includestdio.h"
#include "c:stdapldosclip52includeextend.api"
/* ------------------------------------------------------------ ----
CARGA UN SET DE CARACTERES CONTENIDO EN EL FICHERO ESPECIFICADO
------------------------------------------------------------ ---- */
CLIPPER LoadFont()
{
char *cBuf;
cBuf = _parc(1);
if ( (h = fopen(_parc(1),"rb")) == NULL) _ret();
fread(cBuf,4096,1,h);
asm PUSH BP;
asm PUSH ES;
_DX = 0;
_CX = 256;
_ES = FP_SEG(cBuf);
_BP = FP_OFF(cBuf);
_BH = 0x10;
_BL = 0x00;
_AH = 0x11;
_AL = 0x10;
geninterrupt( 0x10 );
asm POP ES;
asm POP BP;
}
Nos gustarí­a saber si alguien se ha encontrado con el mismo problema y si es así­ como lo ha solucionado.
Adjunto fichero de fuentes modificadas por si alguien logra poner en marcha la función en harbour.
Muchas Gracias,
Juan Pastor

Attached files DB_FONT.URC (4 KB)Â

Return to “Spanish”