uses StrUtils;
var
MyPrinter,MyHandle: THandle;
MyDevice,MyDriver,MyPort: array [0..255] of Char;
StrList:TStringList;
begin
StrList:=TStringList.Create;
Split(PrinterStr,'\',RightList);
RightList.Free;
Printer.GetPrinter(MyDevice,MyDriver,MyPort,MyHandle);
Memo1.Lines.Add(trim(portstr));
Memo1.Lines.Add(StrPas(myport));
//EPSONLQ-630K@SD5021102280953250@USB003\NFCPDPK1680@6&1a6e9e5&0&3@USB005\->2
end;
var
MyPrinter,MyHandle: THandle;
MyDevice,MyDriver,MyPort: array [0..255] of Char;
StrList:TStringList;
begin
StrList:=TStringList.Create;
Split(PrinterStr,'\',RightList);
RightList.Free;
Printer.GetPrinter(MyDevice,MyDriver,MyPort,MyHandle);
Memo1.Lines.Add(trim(portstr));
Memo1.Lines.Add(StrPas(myport));
//EPSONLQ-630K@SD5021102280953250@USB003\NFCPDPK1680@6&1a6e9e5&0&3@USB005\->2
end;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/166523/viewspace-1063875/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
查询ADO连接数据库中所有表
下一篇：
dxDBGrid 控制简单实现汇总
请登录后发表评论
登录
全部评论
