Ver Mensaje Individual
  #14  
Antiguo 11-05-2004
Avatar de Combat-F2D
Combat-F2D Combat-F2D is offline
Miembro
 
Registrado: may 2003
Ubicación: Toletum
Posts: 454
Reputación: 22
Combat-F2D Va por buen camino
es curioso, acabo de ver la pagina del autor en la ayuda que trae, y algo paso: ahora es una pagina porno; bonito internet, dominio que pierdes, dominio PERDIDO.

suponiendo que es ese el componente que te bajaste, entre los varios archivos que encuentras, hay uno denominado ComDrv32.dpk; pues bien, en el IDe vas a File->open y lo abres

creo recordar que al ser para la version 3, te mostrara un cuadro de dialogo comentandote que este paquete es de viejo formato, y si lo quieres pasar al nuevo (te lo dice en ingles); tu le dices que si y te mostrara otro cuadro de dialogo diciendote que todo se ha convertido.

luego simplemente pulsas el boton Compile y una vez compilado pulsas el de Install

en caso de que no se den errores, en la paleta de componentes, en la System se encontrara este nuevo; no te olvides de añadir el path de este componente al Library Path del IDE (Evironment Options)

luego puedes compilar y ejecutar la demo que trae, es bastante completa en cuanto a sus posibilidades, ademas el componente tiene las cuatro cosillas necesarias para funcionar.

para comprobarlo si tienes dos ordenadores es en uno abrir una sesion hyperterminal y comprobar el funcionamiento de este.

pienso que en general es todo lo que yo te puedo comentar de este componente.

yo lo utilizo para imprimir en una impresora de tickets, escribiendo en el de la siguiente manera:

Código:
        cpdTicket.PortName := tTipoImpresoraTicket;
        cpdTicket.Connect;

        cadena := IBQueryImprimeCabeceraAlbaran.FieldbyName('CODIGO').AsString;


// inicializo impresora e imprimo en rojo
        cpdTicket.SendString( chr(27)+ chr(64) + chr(27)+ 'r' + chr(1) + chr(10) );

// letra subrayyado y doble altura

        cpdTicket.SendString('       ' + chr(27)+ '!' + chr(152) +
                        StrToOEM(tEncabezadoTicket) + chr(10) );
        cpdTicket.SendString( chr(27)+ '!' + chr(0) + chr(27)+ 'r' + chr(0) + chr(10) );

        cpdTicket.SendString(
            StrToOEM(IBQueryCodigoTienda.FieldbyName('DENOMINACION').AsString) + chr(10) );
vamos esto es un ejemplillo

todas las posibles dudasque te surgan y yo pueda solucionartelas, aqui me tienes.

espero que te sirva este post para arreglarte un poco ese codigo
__________________
online
Responder Con Cita