через СОМ1 данные гонять

← →
deivan (2004-01-25 09:17) [0]

Уважаемые, может кто где видел исходники программы, что завязать передачу данных по СОМ-портам, как в дос навигаторе, или же что подобное?

← →
тихий вовочка (2004-01-25 10:51) [1]

Хех. На rentacoder.com ползаешь? Под 98 все просто, протокол сам придумываешь, а потом просто его реализуешь чтением/записью в порт, а вот с Win2k сложнее

← →
deivan (2004-01-25 19:37) [2]

А-а, понял.. не, я не продаю советы буржуям.. :)

с ноутбука надо гонять экселовские таблицы с бухотчетностью на стационарный компьютер, сделал 9-пиновый СОМ1 шнур. но дос навигатор на стационарном пишет "не могу найти КОМ-порт", а через виндовскую приблуду получается через раз перекачивать, вот и решил написать себе утилиту, что бухгалтера раз и навсегда обучить.

← →
Сергей Чурсин © (2004-01-26 01:40) [3]

{********************************************************}
unit Port95;

interface

type
TPort = class
procedure SetPort(Index: Word; Value: Byte);
function GetPort(Index: Word): Byte;
property Port[Index: Word]: Byte read GetPort write SetPort; default;
end;

TPortW = class
procedure SetPortW(Index: Word; Value: Word);
function GetPortW(Index: Word): Word;
property PortW[Index: Word]: Word read GetPortW write SetPortW; default;
end;

var
Port: TPort;
PortW: TPortW;

implementation

procedure TPort.SetPort(Index: Word; Value: Byte); assembler; register;
asm
mov al,cl
out dx,al
end;

function TPort.GetPort(Index: Word): Byte; assembler; register;
asm
in al,dx
end;

procedure TPortW.SetPortW(Index: Word; Value: Word); assembler; register;
asm
mov ax,cx
out dx,ax
end;

function TPortW.GetPortW(Index: Word): Word; assembler; register;
asm
in ax,dx
end;

initialization
Port := TPort.Create;
PortW := TPortW.Create;
finalization
Port.Free;
PortW.Free;
end.

- эт под 98/95. Под линейкой Nt сложнее действительно.
http://www.kuban.ru/forum_new/forum2/arhiv/937.html

← →
deivan (2004-01-26 08:43) [4]

и как этими методами пользоваться? А аналог send/recive?

через СОМ1 данные гонять Найти похожие ветки