Передача информации через com-порт

← →
dron9205 © (2007-03-06 10:50) [0]

Задача следующая: Два компа подключены друг к другу через com-порты. С одного компа отправляется информация(набор чисел) на другой комп. Для проверки работы сейчас подключен кабель к одному компу в два разных порта.
Нужна программа, которая оправляет и принимает эту инфу..
Я в дельфи новичек, поэтому подскажите плиз как это реализовать...
Заранее спасибо!!!

← →
Сергей М. © (2007-03-06 11:02) [1]

Скачай с sourceforge.net пакет компонентов TurboPower Async Pro, там есть куча готовых примеров для изучения.

← →
dron9205 © (2007-03-06 11:33) [2]

А вообще это тяжело реализовать???

Есть какая-нибудь встроенная функция, типа послать на com-порт и принять с com-порта???

← →
Сергей М. © (2007-03-06 11:40) [3]

> это тяжело реализовать?

Не сложнее чем, скажем, работа с принтером.

> Есть какая-нибудь встроенная функция, типа послать на com-
> порт и принять с com-порта?

Встроенная во что ?

← →
dron9205 © (2007-03-06 11:46) [4]

> Скачай с sourceforge.net пакет компонентов TurboPower Async
> Pro

Да я там запарюсь искать...

← →
Сергей М. © (2007-03-06 11:49) [5]

> я там запарюсь искать

А Гугль на что ?

← →
S@shka © (2007-03-06 14:47) [6]

ASYNCPro не качай...

Для генерации и передачи данных через ComPort можешь использовать
terminal от Br@y++
скачать можно с гугла

Если писать самому оч. рекомендую все таки сделать на API
через ReadFile WriteFile

← →
Сергей М. © (2007-03-06 14:49) [7]

> S@shka © (06.03.07 14:47) [6]

ну и нахрена нужен платный софт, неизвестно что и как делающий при этом ?

← →
S@shka © (2007-03-06 14:54) [8]

> платный софт

Где это ты нашел его за деньги???

http://www.hw-server.com/rs232_soft_page.html

И что ж "может делать" монитор Com-порта?
Да й ка угадаю, мониторить COM-порт, наверное ))))

А ASYNCPro - не оправдывает себя... да и не поддерживается этот проект уж толком

← →
Сергей М. © (2007-03-06 14:59) [9]

> S@shka © (06.03.07 14:54) [8]

ну и за каким лядом автору нужен монитор ?)

> ASYNCPro - не оправдывает себя... да и не поддерживается
> этот проект уж толком

Исходники (для изучения) - великая вещь)

var
hComm : THandle;

procedure OpenCom;
var
DCB : TDCB;
commtime : TCOMMTIMEOUTS;
dwWrite : DWord;
clrByte : Byte;
begin
hComm := CreateFile
(
"COM1",
GENERIC_READ or GENERIC_WRITE,
0, nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0
);
if (hComm = INVALID_HANDLE_VALUE)
then begin
ShowMessage ("Com failed");
Exit;
end;
GetCommState (hComm,DCB);
DCB.BaudRate := CBR_115200;
DCB.Parity := NOPARITY;
DCB.ByteSize := 8;
DCB.StopBits := OneStopBit;
SetCommState (hComm,DCB);
end;

procedure CloseComm;
begin
closehandle (hComm);
end;

Пишем в ПОрт
WriteFile (
hComm, // Хандл
clrByte, // Что пишем здесь clrByte : Byte;
1, // Размер
dwWrite, // Сколько записали
nil);

все есть в справке по WinApi

> ну и за каким лядом автору нужен монитор

Ему нужно ПОСЛАТЬ и ПРИНЯТЬ ...

> Есть какая-нибудь встроенная функция, типа послать на com-
> порт и принять с com-порта

Там это есть. Я сам для теста железа использую эту прогу.

> Исходники (для изучения) - великая вещь)

))))

> Там это есть. Я сам для теста железа использую эту прогу.

S@shka а нафига что то качать потом разбираться как это работает, если можно потратить 15 минут (при знании протокола обмена) и начирикать свое на АПИ???? :)))

Передача информации через com-порт Найти похожие ветки