电
电暖气
Unregistered / Unconfirmed
GUEST, unregistred user!
我下面这个程序只能打印到本地所连的打印设备，如何打印的到网络上的其他
计算机上[192.168.0.1]？,不可以使用添加的网络打印机的驱动程序。
因为我的输出设备不是打印机
procedure TmainForm.m_test_printClick(Sender: TObject);
var
F:TextFile;
//定义一个文件类型
begin
//--n.1创建该'LPT1'类型文件
try
//*******Assignprn(F);
AssignFile(F, 'LPT1');
//--n.2打开打印机的端口
Rewrite(F);
//--n.3向打印机送命令串
Writeln(F,'1234');
CloseFile(F);//--n.n关闭该'LPT1'类型文件，[关闭了打印机的端口]
except
showmessage('打印机是否没有连接 ?');
end;
//释放该Tstringlist类型变量
s_list.Free;
end;
计算机上[192.168.0.1]？,不可以使用添加的网络打印机的驱动程序。
因为我的输出设备不是打印机
procedure TmainForm.m_test_printClick(Sender: TObject);
var
F:TextFile;
//定义一个文件类型
begin
//--n.1创建该'LPT1'类型文件
try
//*******Assignprn(F);
AssignFile(F, 'LPT1');
//--n.2打开打印机的端口
Rewrite(F);
//--n.3向打印机送命令串
Writeln(F,'1234');
CloseFile(F);//--n.n关闭该'LPT1'类型文件，[关闭了打印机的端口]
except
showmessage('打印机是否没有连接 ?');
end;
//释放该Tstringlist类型变量
s_list.Free;
end;