Delphi TComport控件从串品读取数据

本文整理自网络，侵删。

 
program ModTest;
{$APPTYPE CONSOLE}

uses
SysUtils,
CPort,
Windows,
SyncObjs;

var
ComPort: TComPort;
Events: TComEvents;
Answer, Data: string;
Step: Integer;
Event: TEvent;


function CtrlHandler(CtrlType: LongWord): Boolean;
begin
Event.SetEvent;
Result := True;
end;

begin
Event := TEvent.Create(nil, True, False, '');
SetConsoleCtrlHandler(@CtrlHandler, True);
try
ComPort := TComPort.Create(nil);
try
if ParamCount > 0 then
ComPort.Port := ParamStr(1)
else
ComPort.Port := 'COM1';
ComPort.Events := [];
ComPort.FlowControl.ControlDTR := dtrEnable;
ComPort.FlowControl.ControlRTS := rtsEnable;
ComPort.Open; // open port
ComPort.WriteStr('AT'#13#10); // send test command
Answer := '';
Step := 0;
repeat
Events := [evRxChar];
ComPort.WaitForEvent(Events, Event.Handle, 5000); // wait for charachters
if evRxChar in Events then
begin
ComPort.ReadStr(Data, ComPort.InputCount);
Answer := Answer + Data;
if Pos('OK', Answer) > 0 then
Break;
end;
Inc(Step)
until (Events = []) or (Step = 20);
if Pos('OK', Answer) > 0 then
WriteLn('Modem found on ' + ComPort.Port)
else
WriteLn('Modem NOT found on ' + ComPort.Port);
finally
ComPort.Free;
end;
except
on E: Exception do
WriteLn('Error: ' + E.Message);
end;
Event.Free;
end.
 

相关阅读 >>

Delphi下获取ie的useragent的方法

Delphi webbrowser 加载html 将html代码转换成网页

Delphi的webbrowser改造，对网页中alter等对话框的改造方法

Delphi根据进程id获取进程路径

Delphi 分割字符串 extractstrings

Delphi关闭程序close,application.terminate与halt区别

Delphi windows 编程[20] - 改变菜单项并换行

Delphi firedac 下的 sqlite 创建数据库

Delphi 资源管理器套件

Delphi strtodatetime 这个函数在win7下出错

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi TComport控件从串品读取数据