如何把发送到com口的代码，改为发到usb口。

[linlingwei]

var
PrnFileName:TextFile;
begin
Assignfile(PrnFileName,'com1');
Rewrite(PrnFileName);
write(PRNFileName,chr(12));
write(PRNFileName,chr(27)+chr(81)+chr(65)+‘9999’+chR(13));
CloseFile(PRNFileName);
end;
上面是一段发往com口字符的代码，
怎样改动？可以发到usb口呢，就是控制顾客显示屏的代码。
如果把Assignfile(PrnFileName,'com1')改为Assignfile(PrnFileName,'usb00')行不通。

[pathletboy]

要看你USB是什么设备类型，如果是HID设备类，可以用HIDKomponente这个控件。

[asd杂草]

procedure TForm1.Button1Click(Sender: TObject);
var
  f : TextFile;
  i : Integer;
begin
  AssignPrn(f);
  Rewrite(f);
  Printer.Canvas.Font.Name := '宋体';
  Printer.Canvas.Font.Size := 8;
  for i := 0 to Memo1.Lines.Count - 1 do
    Writeln(f,memo1.Lines[i]);
  CloseFile(f);
end;

[tcmakebest]

USB口如果可以这么乱发，企不是要乱套了，要知道 U 口的设备种类太多了，这么搞绝对是不允许的。

[hongss]

看看U口设备的SDK