Új hozzászólás Aktív témák

• #1466 csewe csendes tag P.H. #1465

  Új Válasz 2007-01-28 10:25:36 #1466

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  csewe

  csendes tag

  válasz P.H. #1465 üzenetére

  azt gondolom hogy itt az xp jelenti a gondot merthogy mos az van a gépen . közben kopróbáltam az IO.dll-t de nem működik avval sem pedig máshol nagyon ajánlják de lehet hogy csak én vagyok béna bár konkrét progirészletet kaptam de nem akar kiérni a jel az lpt-re így néz ki
  
  unit PrinterPort;
  
  interface
  
  uses Classes, Forms, StdCtrls, Controls;
  
  type
  TForm1 = class(TForm)
  Button1: TButton;
  Button2: TButton;
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;
  
  var
  Form1: TForm1;
  
  implementation
  
  function IsDriverInstalledoolean stdcall; external 'io.dll';
  procedure PortOut(Portord;Datayte) stdcall; external 'io.dll';
  
  {$R *.DFM}
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  PortOut($378,1);
  end;
  
  procedure TForm1.Button2Click(Sender: TObject);
  begin
  PortOut($278,1);
  end;
  
  procedure TForm1.FormCreate(Sender: TObject);
  begin
  IsDriverInstalled;
  end;
  
  end.
  
  
  
  két gomb van az egyikkel az lpt1 amásikkal az lpt2-re küld ki agy bájtot ha valaki látja mért nem működik az kijavíthatná
  köszi
  

Új hozzászólás Aktív témák