- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Magga: PLEX: multimédia az egész lakásban
- Luck Dragon: Asszociációs játék. :)
- hcl: MS Office365 Linuxon
- MasterDeeJay: Noname 1TB-os SATA SSD teszt
- erkxt: A Roidmi becsődölt – és senki nem szól egy szót sem?
- droidic: Így beszélhetsz élő emberrel EA supportban
- eBay-es kütyük kis pénzért
Új hozzászólás Aktív témák
-
csewe
csendes tag
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;Data
yte) 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
- Update 07.01. Bomba árak 2025-ben is! Üzleti - Consumer laptopok DELL FUJITSU HP LENOVO
- LG 32SQ700S-W - 32" VA Smart - 3840x2160 4K UHD - 62Hz 5ms - WebOS - Wifi + BT - USB-C - Hangszórók
- ÚJ- Lenovo ThinkVision T24i-10 - 24" monitor - Számla, garancia
- Dell és HP szerver HDD caddy keretek, adapterek. Több száz darab készleten, szállítás akár másnapra
- Bomba ár! HP 255 G7 - AMD A4 I 4GB I 128SSD I HDMI I 15,6" FHD I Radeon I HDMI I W11 I Cam I Gari!
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: CAMERA-PRO Hungary Kft
Város: Budapest