Impresion Pos Sunmy V2 Pro
 

Buenos dias amigos,
estoy desarrollando una aplicacion en delphi tokio para android, y la estoy instalando en el POS SUNMY V2 PRO, este pos trae una impresora de vales incorporador y he aqui donde empiezan mis problemas NO PUEDO IMPRIMIR. he busca documentacion para enviar a imprimir no he podido hacer nada.
Si alguin me puede ayudar.

La aplicacion en general funciona bien, solo que no se como mandar a imprimir.


Patricio

En la web del fabricante hay documentación:
https://docs.sunmi.com/en/documentat...oducts/v2-pro/
Y concretamente el apartado de la impresora:
https://docs.sunmi.com/en/general-fu...tomer-display/
A ver si te sirve.

Casimiro:

muchas gracias por tu ayuda, pero no he podido avanzar mucho...nose en realidad como empezar o donde hacer las llamadas de los
servicio o procedimiento para imprimir. Estoy bloqueado..
si tu pudiaras enviarme algun ejemplo del codigo en delphi..seria de mucha ayuda,,solo si puedes

Gracias

No puedo ayudar mucho con eso, además no tengo ese dispositivo.
En la web que te he indicado hay ejemplos para varios sistemas, también dice que es compatible con Esc/Pos de epson.
Hay código de ejemplo, aunque no para delphi.
A ver si algún compañero puede echarte una mano, cuando yo empecé a programar para android lo tuve que hacer con otras herramientas porque delphi todavía no tenía nada para android. Han cambiado mucho las cosas desde entonces.

memo1.lines.Add(aBlueDevices.Items[i].DeviceName);
Gracias amigos.
ya solucione el problema de la impresion, se debe manejar como un dispositivo Bluetoon.
les dejo el codigo si alguien lo necesita.

Código Delphi [-]
//ESTA RUTINA BUSCA EL DISPOSITIVO
Var

  Msg, Texto, ServiceGui, ServiceName: string;
  BluetoothAdapter: TBluetoothAdapter;
  FBluetoothManager : TBluetoothManager;
  ListaDeAparelhosPareados: TBluetoothDeviceList;
  LServices: TBluetoothServiceList; 

BEGIN

try
   
    FBluetoothManager := TBluetoothManager.Current;
    BluetoothAdapter := FBluetoothManager.CurrentAdapter;
    ListaDeAparelhosPareados := BluetoothAdapter.PairedDevices;


    for I := 0 to ListaDeAparelhosPareados.Count - 1 do
    begin
      LDevice := ListaDeAparelhosPareados[i] as TBluetoothDevice;
       LABEL1.cAPTION := LDevice.DeviceName;  //NOMBRE DEL DISPOSITIVO

      if LDevice.IsPaired then
      begin
        LServices := LDevice.GetServices;
        for B := 0 to LServices.Count - 1 do
        begin
          ServiceGUI := GUIDToString(LServices[b].UUID);
          Guid := LServices[b].UUID;
          ServiceName := LServices[b].Name;
        end;
      end;
    end;
  except
   on E: Exception do
   begin
     Msg := E.Message;
     ShowMessage('Error al Conectar la Impresora ' + Msg) ;
   end;
 end;




END;



//Y ESTA IMPRIME

BEGIN

    FSocket := LDevice.CreateClientSocket(Guid, true);
    if FSocket = nil then BEGIN
        Memo1.Lines.Add('FSocket nulo');
        EXIT;
    END;


   if Assigned(FSocket) and (FSocket <> nil)
   then Begin

        if NOT FSocket.Connected then FSocket.Connect;
         TRY

            lineax := #27 + ' ' + #13#10;
            lineax := #27#69#49  + 'Prueba Teste 1 ' + #13#10;
            lineax := lineax + #27#69#48 + 'Prueba Teste 2 ' + #13#10;
            lineax := lineax + #27 + 'hola 3 ' + #13#10;
            lineax := lineax + #27#69#49 + 'Prueba Teste 4 ' + #13#10;
            lineax := lineax + #27 + 'hla 5 ' + #13#10;
            lineax := lineax + #27#69#48 + ' Prueba Teste 5 ' + #13#10;
            lineax := lineax +  #13#10;

            Texto := lineax ;

            ToSend := TEncoding.UTF8.GetBytes(Texto);
            FSocket.SendData(ToSend);
            Sleep(100);



         EXCEPT
             MENSAJEMSG('NO CONECTADO Imprimir 1 ');
         END;
   End else begin

      MENSAJEMSG('NO CONECTADO Imprimir 2 ');

   end;
END.

Gracias por publicarlo.
Después de más de 130 mensajes ya podrías haber usado la etiqueta de código ;)