Impresión en Android haciendo uso de PrintManager nativo

[dani36652]

Hola a todos, me presento como un programador entusiasta de Delphi.
Debido a que no encontraba algo claro en la red, o algunas opciones eran de pago, me di a la tarea de escribir un ejemplo de cómo imprimir en Android haciendo uso de PrintManager y así poner mi granito de arena para compartirlo con más desarrolladores.

En el siguiente link les dejo el repositorio en GitHub: https://github.com/dani36652/Ejemplo...oid-con-Delphi
Notas:
*Este ejemplo fue escrito en Delphi 11 Alexandria por lo que en el AndroidManifest.template.xml deberá establecer la librería correcta para el fileprovider cambiando androidx.core.content.FileProvider por android.support.v4.content.FileProvider*

[Casimiro Notevi]

Gracias por compartirlo

[Neftali [Germán.Estévez]]

Muchas gracias.

[Nelson Alberto]

Impresión en Android haciendo uso de PrintManager nativo ?

no he podido imprimir aplicaciones delphi a android

[jmbarrio]

Buenas tardes, me he descargado tu aplicación Dani, muchísimas gracias. Necesito imprimir el contenido de un TMemo, y he intentado hacerlo desde tú código, he añadido un procedimiento nuevo para la impresion del Memo.

Código Delphi [-]
procedure ImprimirMemo(Texto:string);
var
  Impresor: JPrintHelper;
  TextoAImprimir: JString;
  Canvas: JCanvas;
  Paint: JPaint;
  Bitmap: JBitmap;
  Altura, Anchura: integer;
  TempFilePath :String;
  Uri:JNet_Uri;
begin
  Impresor := TJPrintHelper.JavaClass.init(TAndroidHelper.Context);
  Impresor.setScaleMode(TJPrintHelper.TJPrintHelper_SCALE_MODE_FIT);
  Impresor.setColorMode(TJPrintHelper.TJPrintHelper_COLOR_MODE_COLOR);
  Impresor.setOrientation(TJPrintHelper.TJPrintHelper_ORIENTATION_PORTRAIT);
  // Definir el texto que se imprimirá
  TextoAImprimir := StringToJString(Texto);
  // Definir dimensiones del contenido
  Anchura := 595; // A4 en puntos de densidad
  Altura := 842;  // A4 en puntos de densidad

  // Crear un bitmap para renderizar el contenido
  Bitmap := TJBitmap.JavaClass.createBitmap(Anchura, Altura, TJBitmap_Config.JavaClass.ARGB_8888);
  Canvas := TJCanvas.JavaClass.init(Bitmap);
  Paint := TJPaint.JavaClass.init;

  // Configurar el tamaño del texto
  Paint.setTextSize(12);

  // Dibujar el texto en el canvas
  Canvas.drawText(TextoAImprimir, 10, 25, Paint);

   // Guardar el bitmap en un archivo temporal
  TempFilePath := SaveBitmapToTempFile(Bitmap);

  // Obtener la URI desde el archivo temporal
  Uri := GetUriFromFile(TempFilePath);

  // Enviar el contenido al servicio de impresión
  Impresor.printBitmap(StringToJString('Impresion1'), Uri);

end;

y he añadido estas dos funciones

Código Delphi [-]
// Convertir el archivo temporal a JNet_Uri
function GetUriFromFile(const FilePath: string): Jnet_Uri;
var
  FileObj: JFile;
begin
  // Crear un objeto JFile con la ruta del archivo
  FileObj := TJFile.JavaClass.init(StringToJString(FilePath));

  // Obtener la URI desde el archivo
  Result := TJnet_Uri.JavaClass.fromFile(FileObj);
end;

// Guardar el JBitmap en un archivo temporal
function SaveBitmapToTempFile(Bitmap: JBitmap): string;
var
  OutputStream: JFileOutputStream;
  FileName: string;
  TempFile: JFile;
begin
  // Crear un nombre de archivo temporal
  FileName := TPath.Combine(TPath.GetDocumentsPath, 'temp_image.jpg');

  // Crear el archivo
  TempFile := TJFile.JavaClass.init(StringToJString(FileName));

  // Crear el FileOutputStream para escribir el bitmap
  OutputStream := TJFileOutputStream.JavaClass.init(TempFile);
  try
    // Comprimir y escribir el bitmap en el archivo
    Bitmap.compress(TJBitmap_CompressFormat.JavaClass.JPEG, 100, OutputStream);
    OutputStream.flush;
  finally
    OutputStream.close;
  end;

  // Retornar la ruta del archivo temporal
  Result := FileName;
end;

Al mandar la impresión en la previsualización se ve todo en negro, el código coge el texto del memo y lo pasa a un jbitmap que convierte en uri_jnet para lanzar la impresión igual que cuando lanzas la impresión de la imagen de la calavera. Seguro que hay una manera mucho más sencilla.

Por otro lado cuando lanzo la imagen de la calavera se previsualiza bien, selecciono la impresora que tengo en red, pero la impresora me bloquea la impresión. Hay que configurar algo en la impresora para poder imprimir desde mi móvil?

Muchisimas gracias, estoy a punto de terminar el proyecto y esto es lo último que me queda por programas. Así que toda ayuda será bienvenida.

[jmbarrio]

Buenos días, finalmente he encontrado esta solución por sí le sirve de ayuda a alguien. He pasado el contenido del memo a un fichero HTML y he empleado el código del botón de imprimir html del proyecto de Dani.

Código Delphi [-]
HtmlContent := TStringList.Create;
  try
    HtmlContent.Add('');
    HtmlContent.Add('');
    HtmlContent.Add('');
    HtmlContent.Add('    ');
    HtmlContent.Add('    ');
    HtmlContent.Add('');
    HtmlContent.Add('');
    HtmlContent.Add('    
');
    HtmlContent.Add(Memo1.Lines.Text);  // Agregar el contenido del TMemo
    HtmlContent.Add('    
');
    HtmlContent.Add('');
    HtmlContent.Add('');

    // Obtener la ruta para guardar el archivo en el almacenamiento del dispositivo
    FilePath := TPath.Combine(TPath.GetDocumentsPath, 'Ticket1.html');

    // Guardar el archivo HTML
    HtmlContent.SaveToFile(FilePath);

    // Mensaje opcional de éxito
    ShowMessage('Archivo HTML guardado en: ' + FilePath);
  finally
    HtmlContent.Free;
  end;

Un saludo.