Скачать: CL | DM;

через СОМ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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c