【结贴】打印的时候报错！**

lotus

请问我运行到下面代码的时候出现这个错误是怎么回事？运行到红色部分就报这个错误了
代码如下：
Business.Forms.Printers.Printer.PrinterIndex :=i;
  Business.Forms.Printers.Printer.GetPrinter (Device, Driver, Port, hDeviceMode);
  Business.System.SysUtils.StrCopy (s, Device);
  Business.System.SysUtils.StrCat (s, ',');
  Business.System.SysUtils.StrCat (s, Driver);
  Business.System.SysUtils.StrCat (s, ',');
  Business.System.SysUtils.StrCat (s, Port);
  Borland.Delphi.Windows.WriteProfileString ('windows', 'device', s);
  Business.System.SysUtils.StrCopy(s, 'windows');
  Borland.Delphi.Windows.SendMessage (Borland.Delphi.Windows.HWND_BROADCAST,
    Borland.Delphi.Messages.WM_WININICHANGE, 0, 0);

lotus

而且我本来系统设置好一个默认打印机，运行这段代码后可以正常更换默认打印机，但是关闭窗口后，系统的默认打印机就被取消掉了，没有一台机子有这个默认打印机。

lotus

更新一下

gaihl

X3中的Printer.GetPrinter函数好像不太好用.  包装成第三方控件用吧

lotus

有没有现成的组件或者控件啊？可以介绍一下吧？

gaihl

用这个
var
  LPrinter:string;
  PrinIniFile:Tinifile;
  LStr:string;
begin
  LStr:=Business.Forms.Printers.printer.Printers[0];
  StringUtils.delete(Lstr,StringUtils.pos('on',Lstr),Length(LStr));
  PrinIniFile:=TIniFile.Create('WIN.ini');
  try
    LPrinter:=PrinIniFile.ReadString('Devices',LStr,'');
    PrinIniFile.writestring('windows','device',LStr+','+LPrinter);
  finally
    PrinIniFile.free;
    Borland.Delphi.Windows.SendMessage (Borland.Delphi.Windows.HWND_BROADCAST,
      Borland.Delphi.Messages.WM_SETTINGCHANGE, 0, 0);
  end;

lotus

好了 谢谢