Ver Mensaje Individual
  #6  
Antiguo 19-10-2017
ulicesVD ulicesVD is offline
Registrado
NULL
 
Registrado: dic 2014
Posts: 4
Reputación: 0
ulicesVD Va por buen camino
Gracias amigo jhonalone ,

por tomarte el tiempo de revisar el tema

te comento que con el codigo de imprimir no , pude pero con el codigo de ejemplo CIbluetooh si pude imprimir texto ,solo falta especificarle el Gui del servicio de texto
ya que el que trae pues no funciona y solo lo comenté la linea para referencia , quien lo este probando


Código Delphi [-]
Const
  ServiceName = 'Basic Text Server';
//  ServiceGUI = '{B62C4E8D-62CC-404B-BBBF-BF3E3BBB1378}';
 ServiceGUI ='{00001101-0000-1000-8000-00805F9B34FB}';

Ademas este proyecto a diferencia del tuyo mete en un hilo el Socket

Código Delphi [-]
 TServerConnectionTH = class(TThread)
  private
    { Private declarations }
    FServerSocket: TBluetoothServerSocket;
    FSocket: TBluetoothSocket;
  protected
    procedure Execute; override;
  public
    { Public declarations }
    constructor Create(ACreateSuspended: Boolean);
    destructor Destroy; override;
  end;

pues ya imprimo texto , ahora el inconveniente como dijiste no acepta comandos ESC/pos , y por ende no he logrado imprimir Acentos o la "Ñ" al enviar
el texto a la impresora aplica un Encoding utf8 , trae otras variantes la clase Tencoding (ANSI,ASCII,DEFAULT,UNICODE,BigEndianUnicode,UFT7,UFT8)
e probado todas sin éxito para la impresión con acentos

Código Delphi [-]
 
     toSend:= Tencoding.UTF8.GetBytes(edit1.Text);
        FSocket.SendData(ToSend);


referente al software de HP . no lo ubico pero e usado otros similares pero pues es a nivel de usuario ,lo que se pretende es que mande la informacíon desde mi app.

Gracias , saludos.
Responder Con Cita