Достъп до LPT
6 отговора
184 прегледа
Re: Достъп до LPT
Отвори Borland Delphi\Help\MS SDK Files\Win 32 Programmers Reference. Отиди на Index/Find и пиши 'printer'. Избери първото показано, да кажем 'Abort Doc' и избери 'Dislplay'. После цъкни бутона 'Group' и си търси спокойно интересуващата те функция.
чети и дишай по-леко
чети и дишай по-леко
Re: Достъп до LPT
Zna4i 4iweka se interesuwa ot dostap do LPT porta - a ne kak se raboti s printer -a kato cialo - stoto na LPT porta moze da bade warzano drugo ustrojstwo
Po dobre da otide i potarsi w torry.net komponent za dostap do IO Portowete - ima si tarsa4ka - ako ne moze da se obadi pak tuk - ste go izrowia i ste go izpratia ako poso4i adres
---
Е т'ва е живот!
Po dobre da otide i potarsi w torry.net komponent za dostap do IO Portowete - ima si tarsa4ka - ako ne moze da se obadi pak tuk - ste go izrowia i ste go izpratia ako poso4i adres
---
Е т'ва е живот!
ay na
basi tva pyk kvo li pray :
function InPort(PortAddr:word): byte;
{$IFDEF WIN32}
assembler; stdcall;
asm
mov dx,PortAddr
in al,dx
end;
{$else}
begin
Result := Port[PortAddr];
end;
{$ENDIF}
Ne sym go probval prosto vidiah na edin page da pishe "Read and write I/O ports"
E aydi na ti i edin bonus :
[линк]
tva may iz4erpva vsi4ko a? e ma nedey da mi blagodarish de....
function InPort(PortAddr:word): byte;
{$IFDEF WIN32}
assembler; stdcall;
asm
mov dx,PortAddr
in al,dx
end;
{$else}
begin
Result := Port[PortAddr];
end;
{$ENDIF}
Ne sym go probval prosto vidiah na edin page da pishe "Read and write I/O ports"
E aydi na ti i edin bonus :
[линк]
tva may iz4erpva vsi4ko a? e ma nedey da mi blagodarish de....
Re: ay na
Estestweno 4e niama da raboti - niama smisal da si gubish wremeto - towa mozeh da ti go napisha i az, no precenih 4e edwa li ste ti swarshi rabota - ako ne namerish nisto w Torry obadi se - problema mi e 4e komponenta e na niakoe CD - i triabwa da go tarsia mezdu drugi pone 3000 - takiwa
---
Е т'ва е живот!
---
Е т'ва е живот!