RS 232 прием на ПК

[romanF1]

подскажите компонент для написания программы Delphi с примером для приема данных с ком порта

[МитяРа]

программы Delphi

Это к пушистому Ploop-у - он у нас тут по Дэлфям специализируется..

[ploop]

Это к гладкошёрстному гуглу. Пушистый ploop с com-портом не работал, и чтобы ответить - ему тоже придётся договариваться с гуглом

[orinoko]

1.
+----------+
| ComPort Library version 3.10 |
| for Delphi 3, 4, 5, 6, 7, 2005, 2006 |
| and C++ Builder 3, 4, 5, 6 |
| |
| by Dejan Crnila 1998-2002 |
| maintained by Lars Dybdahl and Paul Doland |
+----------+

2.
// UNIT : CPDrv.pas
// CONTENTS : TCommPortDriver component
// VERSION : 2.1
// TARGET : (Inprise's) Borland Delphi 4.0
// AUTHOR : Marco Cocco
// STATUS : Freeware

3. TurboPower Async Professional

Второй мне нравится больше. А вообще таких компонентов - океан

[Engineer_Keen]

Чтобы работать с ком портом необязательно использовать компоненты, достаточно стандартных функций типа CreateFile, WriteFile, ReadFile. Только с настройками нужно будет немного повозиться (одна DCB чего стоит).
Скачайте DRKB, там помимо кучи примеров есть и работа с портами.

[Мастер Ломастер]

простой, надежный и достаточно удобный компонент с открытым исходным кодом, бесплатный - это comm32. находится поиском, если не найдете - скажите и я вам его вышлю.

что касается функций Windows API, то это весьма и весьма замороченное дело - работать с ними. хотя принципиально можно и тупо при помощи стандартных TFileStream или даже процедуры read работать - но тоже не фонтан. советую comm32

[ChipKiller]

подскажите компонент для написания программы Delphi с примером для приема данных с ком порта

... вот этого вполне хватит, чтобы читать/писать в СОМ-порт с помощью WinApi. На паскаль переписать недолго ИМХО

Код: Выделить всё

hCom=CreateFile(pChar,GENERIC_READ|GENERIC_WRITE,0,0,OPEN_EXISTING,0, NULL);                  
         if(hCom!=INVALID_HANDLE_VALUE) { 
            GetCommState(hCom, &dcb);
            dcb.BaudRate = CBR_9600; 
            dcb.ByteSize = 8;
            dcb.Parity = NOPARITY;
            dcb.StopBits = ONESTOPBIT;
            SetCommState(hCom, &dcb);      // 
                  
            cto.ReadTotalTimeoutConstant = 2100;               
            SetCommTimeouts(hCom, &cto);   

Чтобы работать с ком портом необязательно использовать компоненты, достаточно стандартных функций типа CreateFile, WriteFile, ReadFile. Только с настройками нужно будет немного повозиться (одна DCB чего стоит). .....

... как видим настройка DCB - 4 строчки. Еще забыли COMMTIMEOUTS, но настройка тоже проста... При использовании WinApi, с СОМ-портом можно работать хоть из Excel...

[Engineer_Keen]

как видим настройка DCB - 4 строчки

Ну да, просто остальные остаются по-умолчанию, но я их на всякий случай тоже настраиваю

При использовании WinApi, с СОМ-портом можно работать хоть из Excel...

Я ушел от компонентов после того, как при переходе с win98 на XP, они работать отказались, хотя наверно они просто устаревшие были...

[Мурик]

Для работы с COM портом, можно использовать DLL из архива, которую можно вызвать из любой среды программирования в т. ч. и дельфи.
Там же в архиве есть описание функций DLL и ее исходный текст.

[ChipKiller]

Я ушел от компонентов после того, как при переходе с win98 на XP, они работать отказались, хотя наверно они просто устаревшие были...

... а компоненты зачем? все делается с помощью Declare из VBA

Код: Выделить всё

Declare Function CloseHandle Lib "kernel32" (ByVal Handle As Long) As Long

... и остальные ф-ции так же...

Для работы с COM портом, можно использовать DLL из архива, которую можно вызвать из любой среды программирования

... ну так это и есть WinApi - использование встроенных функций из dll Windows

[Мурик]

ну так это и есть WinApi - использование встроенных функций из dll Windows

Работать проще чем напрямую с WinAPI.

[Мастер Ломастер]

... вот этого вполне хватит, чтобы читать/писать в СОМ-порт с помощью WinApi. На паскаль переписать недолго ИМХО

во-первых, в паскале для этого вообще не надо особо мудрить:

Код: Выделить всё

var ft : Text;
Assign(ft, 'COM1');
Reset(ft);
write(ft,'Hello, World!');
Close(ft);

все это в конечном итоге и сведется к вызову функции WinApi...
во-вторых, очень маловероятно, что этого хватит... ибо СОМ-порт очень медленное устройство, работа напрямую вот так, как показано мною или ChipKiller-ом, приведет к постоянному подвисанию программы в момент вывода в порт и тем более в момент чтения оттуда... а если вы решите прочесть строку, которая еще не пришла в порт - вы зависните наглухо секунд на 20 - пока не вылетит ошибка системы. поэтому надо работать с OVERLAPPED-режимом, т.е. с асинхронным, а это сразу потянет за собой отдельную Thread для постоянного контроля порта, либо создание CallBack-функций и т.п. гемор - это весьма трудоемко и требует неслабых познаний в WinApi. В делфи проще использовать готовые компоненты - comm32 один из них, снова рекомендую!

[ChipKiller]

Работать проще чем напрямую с WinAPI

... возможно - все зависит от задачи. В любом случае все эти библиотеки есть не что иное, как надстройка над WinApi.

... ибо СОМ-порт очень медленное устройство, работа напрямую вот так, как показано мною или ChipKiller-ом, приведет к постоянному подвисанию программы в момент вывода в порт и тем более в момент чтения оттуда... а если вы решите прочесть строку, которая еще не пришла в порт - вы зависните наглухо секунд на 20 ...

... а никто и не рассчитывает на "стремительную" работу Cом-порта (приведенный код из "живой" программы программатора - великолепно работает на 57,6Кбит/с ) для борьбы с зависаниями помогает cto - можно конечно работать с асинхронным выводом через отдельный поток .... а оно надо ??? ... тем более, что топикстартер об этом ничего не упоминал ....

[romanF1]

а если я использую переходных FT232R от ком порта микроконтроллера к usb то программу на компьютере нужно писать под usb или под виртуальный ком порт?

[Мурик]

или под виртуальный ком порт

Ага, под него.

[romanF1]

спс )))