Delphi中获取打印机设备名和端口名

原创 2001年07月29日 16:07:00

uses Printers;

{$IFNDEF WIN32}
const MAX_PATH = 144;
{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);
var
  pDevice : pChar;
  pDriver : pChar;
  pPort   : pChar;
  hDMode : THandle;
begin
  if PrintDialog1.Execute then begin
    GetMem(pDevice, cchDeviceName);
    GetMem(pDriver, MAX_PATH);
    GetMem(pPort, MAX_PATH);
    Printer.GetPrinter(pDevice, pDriver, pPort, hDMode);
    if lStrLen(pDriver) = 0 then begin
      GetProfileString('Devices', pDevice, '', pDriver, MAX_PATH);
      pDriver[pos(',', pDriver) - 1] := #0;
    end;
    if lStrLen(pPort) = 0 then begin
      GetProfileString('Devices', pDevice, '', pPort, MAX_PATH);
      lStrCpy(pPort,  @pPort[lStrLen(pPort)+2]);
    end;
    Memo1.Lines.Add('Device := ' + StrPas(pDevice));
    Memo1.Lines.Add('Driver := ' + StrPas(pDriver));
    Memo1.Lines.Add('Port := ' + StrPas(pPort));
    FreeMem(pDevice, cchDeviceName);
    FreeMem(pDriver, MAX_PATH);
    FreeMem(pPort, MAX_PATH);
  end;
end;

Delphi中获取打印机设备名和端口名

  • zgqtxwd
  • zgqtxwd
  • 2008年04月30日 23:27
  • 200

Delphi获取默认打印机名称及端口

Delphi获取默认打印机名称及端口  在前段时间写的收银系统中由于目前市场上很多电脑主板上已经没有并口,而POS机却又需要并口,所以目前需要用PCI转接卡,这个就导致不同门店使用...
  • lailai186
  • lailai186
  • 2013年08月12日 14:10
  • 3539

delphi 取得本机打印机列表及打印机详细信息

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls...
  • delphi308
  • delphi308
  • 2013年08月07日 17:17
  • 2379

delphi 中获取计算机名和IP

function GetComputerName:String; //获取计算机名称 var wVersionRequested : WORD; wsaData : TWSAData; ...
  • rznice
  • rznice
  • 2012年05月07日 13:29
  • 4681

delphi打印机编程

Delphi中获取打印机设备名和端口名uses Printers;{$IFNDEF WIN32}const MAX_PATH = 144;{$ENDIF}procedure TForm1.Button...
  • happy_tiger
  • happy_tiger
  • 2007年11月19日 22:41
  • 3448

delphi LPT1端口打印与开钱箱

{设置打印机} Assignfile(RPrinter,'LPT1'); {准备写文件} Rewrite(RPrinter); {向后倒纸} //Writeln(RPrinter,c...
  • zisongjia
  • zisongjia
  • 2017年05月23日 14:47
  • 804

C# 如何得到指定打印机的端口号

问题 .Net Framework 1.1给我们提供了一个PrinterSettings类,以提供指定有关文档打印方式的信息,其中包括打印文档的打印机。其中的静态属性InstalledPrinter...
  • Plutus_Lee
  • Plutus_Lee
  • 2012年08月03日 11:50
  • 1855

获取系统安装的所有打印机名称和驱动名称

看代码:// Get the names of all printers void CTGetPrintsDlg::OnBtnGetPrinterNames() { // TODO: Add...
  • sunyouhao
  • sunyouhao
  • 2010年07月27日 15:03
  • 1639

Delphi打印机设置

Delphi打印机设置Delphi打印机设置2009-02-03 19:192009-02-03 15:37http://blog.sina.com.cn/s/blog_46666bf90100001...
  • leon_kin
  • leon_kin
  • 2011年07月28日 16:39
  • 818

delphi中如何判断打印机是否安装

uses Printers;           procedure TForm1.Button1Click(Sender: TObject);      begin      if ...
  • pepsihn
  • pepsihn
  • 2014年06月22日 00:16
  • 535
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi中获取打印机设备名和端口名
举报原因:
原因补充:

(最多只允许输入30个字)