evice(UsbDevice, UsbConnection);
if SerialDevice = nil then
begin
raise Exceptioin.Create('Cannot create serial device');
Exit;
end;
//打开USB串口
if not SerialDevice.syncOpen then
begin
raise Exception.Create('Cannot open serial device');
SerialDevice := nil;
UsbConnection.close;
UsbConnection := nil;
Exit;
end;
//串口设置
SerialDevice.setBaudRate(9600);
SerialDevice.setDataBits(TJUsbSerialInterface_DATA_BITS_8);
SerialDevice.setStopBits(TJUsbSerialInterface_STOP_BITS_1);
SerialDevice.setParity(TJUsbSerialInterface_PARITY_NONE);
SerialDevice.setFlowControl(TJUsbSerialInterface_FLOW_CONTROL_OFF);
//读串口:
if SerialDevice.syncRead(ReadBuffer, 50) >= 1 then
Data := Data + TEncoding.UTF8.GetString(ToByteArray(ReadBuffer));
//写串口
SerialDevice.syncWrite(WriteBuffer, 1000);
六、Delphi发布
1.权限设置,引用的Java类库需要的权限,需要在Delphi工程设置工添加上去。
2.将新生成的dex文件发布到远程路径classes\中,同时java库需要的文件也同时添加