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

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

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

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

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

S@shka (2007-03-07 12:57:00) [1]

> medved_68 ©

Потому что........

> Я в дельфи новичек, поэтому подскажите плиз как это реализовать.
> ..

medved_68 (2007-03-07 12:02:00) [2]

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

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

S@shka (2007-03-06 15:01:00) [3]

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

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

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

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

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

))))

Сергей М. (2007-03-06 14:59:00) [4]

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

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

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

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

S@shka (2007-03-06 14:59:00) [5]
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

S@shka (2007-03-06 14:54:00) [6]

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

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

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

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

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

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

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

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

S@shka (2007-03-06 14:47:00) [8]
ASYNCPro не качай...

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

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

Сергей М. (2007-03-06 11:49:00) [9]

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

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

dron9205 (2007-03-06 11:46:00) [10]

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

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

Сергей М. (2007-03-06 11:40:00) [11]

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

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

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

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

dron9205 (2007-03-06 11:33:00) [12]
А вообще это тяжело реализовать???

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

Сергей М. (2007-03-06 11:02:00) [13]
Скачай с sourceforge.net пакет компонентов TurboPower Async Pro, там есть куча готовых примеров для изучения.

Наверх

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