为了使打印机能够回退纸,在delphi中如何调用BASIC程序(说明书中给的)?

Question

为了使打印机能够回退纸,在delphi中如何调用BASIC程序(说明书中给的)?
谢谢!!!

Answer 1

具体点是什么样的basic程序，如果是写端口之类的直接转换成Delphi不就好了，大部做硬件开发的人都使用的汇编和Basic，所以一般提供样例之类的都以basic代码居多。

Answer 2

在delphi中，如何向打印机发送控制命令？
如：
使打印机逆向走纸的命令为：
ASCII: ESC v
DEC: 27   118
HEX: 1B   76请各位大虾指点！！！！！！

Answer 3

假定楼主的打印机接的是并口，那么可以使用
CreateFile
WriteFile来向并口发指令。
---------------------------
var
  FHandle: THandle;
  OEMStr: PChar;
  NumberOfBytesToWrite: Integer;
  FNumberOfBytesWritten: Integer;
FHandle := CreateFile('LPT1', GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ
or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
if FHandle = INVALID_HANDLE_VALUE then
  begin
    raise Exception.Create('Can't open Serial Ports ''LPT1''');
  end
try
   OEMStr:=chr(27)+chr(118)+chr(0);
   NumberOfBytesToWrite:=2;
   WriteFile(FHandle, OEMStr^, NumberOfBytesToWrite,
FNumberOfBytesWritten, nil)
finally
   CloseHandle(FHandle);
end;