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

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

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

Использование функции WaitCommEvent [D5, D6, Win95/98]

Laraa © (2002-03-20 09:05:00)
Помогите девушке не лишиться работы.
Если ли кто знает как пользоваться функцией скинте примерчик.
Желательно на Delphi и поподробнее.
Заранее благодарю.

Viktor Aleksejev (2002-03-22 10:46:00) [1]
Пример на Паскале в компоненте TCiaComPort на сайте:
http://www.mestdagh.biz/

Viktor Aleksejev (2002-03-21 14:49:00) [2]
http://www.codeguru.com/mfc/comments/791.shtml

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnwbgen/html/msdn_serial.asp

http://groups.google.com/groups?q=WaitCommEvent+About+Communication+Resource+handles+Communications+Resource+Configuration+Modem+Read+and+Write+Operations&hl=et&selm=883956834.500546%40p133.inode.at&rnum=1

http://www.integrityusa.com/software.htm

http://support.microsoft.com/support/kb/articles/q103/7/20.asp

http://support.microsoft.com/support/kb/articles/q105/3/02.asp

limon (2002-03-21 10:42:00) [3]
http://delphi.mastak.ru/cgi-bin/download.pl?look=1&id=1016195734&n=0

Doom (2002-03-21 06:48:00) [4]
А еще посмотрите компонент на этом сайте TComPort (работа с COM-портом)
// TComPort component ver. 2.00 for Delphi 2-6, Win9x, NT
// written by Dejan Crnila, 1998 - 1999
// email: dejancrn@yahoo.com
Адаптированный под D6 компонент для COM-порта.
Сихронный и асинхронный обмен, события ...

erik (2002-03-20 20:01:00) [5]
Могу выслать компонент с исходниками для чтения из com порта. Там как раз применяется OVERLAPED режми(асинхроный). И разумеется для реакции стоит WaitCommEvent.
procedure TCommEventThread.Execute;
var
Overlapped: TOverlapped;
WaitEventResult: Boolean;
begin
FillChar(Overlapped, Sizeof(Overlapped), 0);
Overlapped.hEvent := FEvent.Handle;
while (not Terminated) do
begin
WaitEventResult := WaitCommEvent(FCommHandle, FEventMask, @Overlapped);
if (GetLastError = ERROR_IO_PENDING) then
WaitEventResult := (FEvent.WaitFor(INFINITE) = wrSignaled);
if WaitEventResult then
begin
Synchronize(DoOnSignal);
FEvent.ResetEvent;
end;
end;
PurgeComm(FCommHandle, PurgeReadWrite);
end;

Laraa (2002-03-20 17:48:00) [6]
Требуется считывать состояние входов CTS,DSR,DCD,RI COM порта
при их изменении.

Doom (2002-03-20 09:08:00) [7]
Не могли бы вы вкратце описать конкретную задачу?

Наверх

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