在Delphi中使用OPOS

Question

当我使用OPOS使用TOPOSPOSPrinter.open时出现“Interface Not Supported”错误消息

我尝试使用IBM4610打印机但是当我使用驱动程序OPUS时会出现此问题。

代码编译。

CODE

function TCustomizedTenderPlugin.HandleEvent: WordBool;
var

  ret:Integer;

  mic : Pointer;

  {pruebas con opos}
  PosPrinter: TOPOSPOSPrinter;



begin
  {CREDENCIALES DE LA IMPRESORA . MODIFICAR DEPENDIENDO DEL TIPO}
   CargarIni(puerto);    

      try
         {Conexion con impresora}
         PosPrinter:= TOPOSPOSPrinter.Create(nil);
         PosPrinter.Open('4610_IBM',ret); // AQUI DA ERROR
         ShowMessage(VarToStr(ret));
         PosPrinter.Close(ret);
         ShowMessage(VarToStr(ret));
      Except
        // mensaje de error del 

        // me da Interface not supported
      end;


end;

我需要帮助。

感谢您的帮助：）

Answer 1

您确定安装了32位驱动程序吗？

如果您这样做，请从Ide。

重新导入Com接口

您安装的驱动程序与tlb.pas生成的包装器不匹配。