В литературе нашёл только общие слова на предмет того что нельзя-де работать с портом напрямую с помощью ф-й низкого уровня, что-де не только твой процесс может обращатся к порту... и т.п.
не могли Вы бы показать как это реализовывается?
собственно мне надо передавать инфу на самодельное устройство-коммутатор - проблема аналогичная Gigabyte (Порты и Дельфи, HELP!!!!!!)
ОС WinXP.
Например как бы выглядило что-то вроде этого:
| Код |
Program TestLine;
Uses dos;
{$m 1024,0,0}
const
delay=6;
m:array [1..8] of byte=(1,2,4,8,16,32,64,128);
i:byte=1;
t:byte=0;
procedure time; interrupt;
begin
inc(t);
if t=delay then
Begin
t:=0;
port[$378]:=m[i];
if i=8 then
i:=1
else
inc(i);
End;
End;
Begin
setintvec($1c,@time);
keep(0);
End;
|
p.s.: у вас нарыл ответ Snowy
| Код |
unit lptport;
interface
uses Windows;
type
TLptPort=class(TObject)
protected
h: THandle;
b: ^char;
public
Port: byte;
constructor Create;
destructor Destroy; override;
function Connect: Boolean;
procedure Disconnect;
function Connected: Boolean;
procedure SendString(str:string);
function GetChar(var ch: char):boolean;
published
end;
implementation
constructor TLptPort.Create;
begin
Port:=1; h:=0;
end;
destructor TLptPort.Destroy;
begin
Disconnect;
inherited Destroy;
end;
function TLptPort.Connected: Boolean;
begin
Result:=h>0;
end;
procedure TLptPort.Disconnect;
begin
if Connected then
CloseHandle(h);
h:=0;
end;
function TLptPort.Connect: Boolean;
var
LptName: string;
begin
Result:=Connected;
if Connected then Exit;
LptName:='LPT'+chr(48+Port);
try
h:=CreateFile(PChar(LptName),GENERIC_READ OR GENERIC_WRITE,0,nil,
OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
except
h:=0
end;
if h=INVALID_HANDLE_VALUE then h:=0;
Result:=Connected;
end;
procedure TLptPort.SendString(str:string);
var
buf: PChar;
btw,bwt : DWORD;
begin
if not Connected then exit;
btw:=Length(str); buf:=PChar(str);
WriteFile(h, buf, btw, bwt,nil);
end;
function TLptPort.GetChar(ch: char): boolean;
var
r: dword;
begin
result:=false;
if not Connected then exit;
if ReadFile(h,ch,1,r,nil) then
if r>0 then result:=true;
end;
end.
|
функция TLptPort.SendString(str:string) насколько я понял? но я немного(совсем) не понял что ей передавать 
преобразовывается в PChar... нет всё равно непонятно должно быть нечто вроде чисел?
и ещё автор признаётся что не испытывал для LPT
в итоге должно получится что-то вроде
http://tulnikov.narod.ru/lptport/index.htm
но работающее под ХР
(в смысле протестить ;) дальше-больше)
|
