Winsoft ComPort for Android Prolific v4.0 Full Source for Delphi/C++ Builder 10 - 11 Alexandria

type
  EProlificError = class(Exception);

  TBaudRate = (_0, _75, _150, _300, _600, _1200, _1800, _2400, _4800, _9600,
    _14400, _19200, _38400, _57600, _115200, _230400, _460800, _614400,
    _921600, _1228800, _2457600, _3000000, _6000000, _12000000);

  TDataBits = (_5, _6, _7, _8);

  TDriver = (PL2303, PL2303G);

  TFlowControl = (Off, DtrDsr, RfrCts, RtsCts, RtsCtsDtrDsr, XonXoff);

  TModemSignal = (CTS, DCD, DSR, RI);

  TModemStatus = set of TModemSignal;

  TParity = (None, Even, Odd);

  TStopBits = (_1, _2);

  TDevice = class
    constructor Create(Driver: TDriver);

    procedure ClearDTR;
    procedure ClearRTS;
    procedure Close;
    procedure Open;
    function Read(MaxBytes: Integer = 256): TArray<Byte>;
    function ReadString(MaxBytes: Integer = 256; Encoding: TEncoding = nil): string;
    procedure SetDTR;
    procedure SetRTS;
    procedure SetTimeout(Timeout: Integer);
    procedure Write(Data: Byte); overload;
    procedure Write(const Data: TArray<Byte>);
    procedure Write(const Data: string; Encoding: TEncoding = nil);

    property BaudRate: TBaudRate read write;
    property Available: Boolean read;
    property DataBits: TDataBits read write;
    property Connected: Boolean read;
    property FlowControl: TFlowControl read write;
    property ModemStatus: TModemStatus read;
    property Parity: TParity read write;
    property PL2303: JPL2303Driver read;
    property PL2303G: JPL2303GDriver read;
    property SerialNumber: string read;
    property StopBits: TStopBits read write;
    property UsbManager: JUsbManager read;
    property Version: string read;
  end;

Only for V.I.P