Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

через СОМ1 данные гонять [D5, Win95/98, WinME]

deivan © (2004-01-25 09:17:00)
Уважаемые, может кто где видел исходники программы, что завязать передачу данных по СОМ-портам, как в дос навигаторе, или же что подобное?

deivan (2004-01-26 08:43:00) [1]
и как этими методами пользоваться? А аналог send/recive?

Сергей Чурсин (2004-01-26 01:40:00) [2]
{********************************************************}
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-25 19:37:00) [3]
А-а, понял.. не, я не продаю советы буржуям.. :)

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

тихий вовочка (2004-01-25 10:51:00) [4]
Хех. На rentacoder.com ползаешь? Под 98 все просто, протокол сам придумываешь, а потом просто его реализуешь чтением/записью в порт, а вот с Win2k сложнее

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »