Я пытаюсь отправить данные на удаленный принтер, встроенный в планшет. Это устройство выглядит как link here. Я уже пробовал Comport андроид от WinSoft и я не делаю никакого прогресса в печати на принтере удара, и я использовал образец кода там от FMXexpress hereСвязь с порталом Android для последовательного порта с использованием delphi
Вот мой код:
unit uSample;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo, Winsoft.Android.ComPort,
FMX.Edit, FMX.StdCtrls;
type
TForm1 = class(TForm)
AComPort1: TAComPort;
Memo1: TMemo;
Timer1: TTimer;
Button1: TButton;
Edit1: TEdit;
procedure Memo1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
Shift: TShiftState);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
begin
AComPort1.Active := False;
AComPort1.DeviceName := Edit1.Text;
AComPort1.Active := True;
end;
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
Shift: TShiftState);
begin
AComPort1.WriteByte(Ord(KeyChar));
ShowMessage('Down');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var Text: string;
begin
end;
end.
Часть Memo1KeyDown просто показывает сообщение «Вниз», когда оно должно отправлять данные на принтер и печатать некоторые данные.
Заранее благодарю за помощь.
Я подозреваю, что компонент, который вы пытаетесь отправить, на самом деле является внешним выходным устройством устройства, а не внутренним. Вы видели внутри и как встроенный принтер подключен к планшету? –
Нет, я не видел внутри. – dembers
Есть ли какое-либо тестовое программное обеспечение от поставщика устройства? Печатает ли это? Должны ли печатные данные команды содержать некоторые определенные последовательности, такие как CR, LF и т. Д.? – MBo