android uygulamasında print alma

[uersoy]

selamlar elimde çok küçük bir proje var
ekranda 2 satır label e doktuğüm bir metin var bu 2 satır yazıyı nasıl printerdan çıktı alırım
cihazın üzerinde direkt yazıcı var bu olmazsa bluetoot yazıcıda kullana bılırız
bu arada cıhazda 4.3.1 versıon android var ?

[RAD Student]

Çözüm bulabildiniz mi.

[mkysoft]

Bluetooth yazıcılara gönderim yapılabiliyor diye biliyorum. Muhtemelen ağ üzerinden yazdırmak için de birşeyler vardır. Ben chrome tarayıcı üzerinden bluetooth yazıcısına yazdırma işini bir projede kullanmıştım.
https://github.com/mkysoft/ble

[elixir84]

(29-07-2020, Saat: 09:21)RAD Student Adlı Kullanıcıdan Alıntı: Çözüm bulabildiniz mi.

C:\Users\Public\Documents\Embarcadero\Studio\20.0\Samples\Object Pascal\Multi-Device Samples\Device Sensors and Services\Bluetooth\Classic Bluetooth Basic app

[TescilsizUzman]

Merhaba,
Android platformu için Bluetooth Printer.

[uersoy]

selamlar
bugun bıtane android 8.1 bir endustriel bir android cihaz aldım
ona bluetooth bir yazıcı bağladık ama bir türlü cıktı alamadım ..
delphideki (C:\Users\Public\Documents\Embarcadero\Studio\20.0\Samples\Object Pascal\Multi-Device Samples\Device Sensors and Services\Bluetooth\Classic Bluetooth Basic app )
ornek den çıktı alamadım
bulduğum function da accses vialation hatası verıyo veriyor

function PrintPage(sText:string):boolean;
var
DestRect:TRectF;
align:TTextAlign;
textFill: tFillTextFlags;
printDialog: TPrintDialog;
totalPages : integer;
begin
textFill := [];
align:=TTextAlign.taLeading;
totalPages := 1;
with Printer do
begin
ActivePrinter;
BeginDoc;
while Printer.Printing do
begin
DestRect := RectF(50,50,(Printer.Pagewidth - 50),(Printer.PageHeight - 50));
Canvas.FillText(DestRect,sText,True,1,textFill,align,align);
if Printer.PageNumber <> totalPages then
Printer.NewPage
else
EndDoc;
end;
end;
Result := not Printer.Aborted;
end;

[DelphiCan]

@uersoy,
Lütfen form kurallarına uyalım... UYARIDIR!