Использование функции WaitCommEvent

← →
Laraa (2002-03-20 09:05) [0]

Помогите девушке не лишиться работы.
Если ли кто знает как пользоваться функцией скинте примерчик.
Желательно на Delphi и поподробнее.
Заранее благодарю.

← →
Doom © (2002-03-20 09:08) [1]

Не могли бы вы вкратце описать конкретную задачу?

← →
Laraa (2002-03-20 17:48) [2]

Требуется считывать состояние входов CTS,DSR,DCD,RI COM порта
при их изменении.

← →
erik © (2002-03-20 20:01) [3]

Могу выслать компонент с исходниками для чтения из 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;

← →
Doom © (2002-03-21 06:48) [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-порта.
Сихронный и асинхронный обмен, события ...

← →
limon © (2002-03-21 10:42) [5]

http://delphi.mastak.ru/cgi-bin/download.pl?look=1&id=1016195734&n=0

← →
Viktor Aleksejev (2002-03-21 14:49) [6]

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

← →
Viktor Aleksejev (2002-03-22 10:46) [7]

Пример на Паскале в компоненте TCiaComPort на сайте:
http://www.mestdagh.biz/

Использование функции WaitCommEvent Найти похожие ветки