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 xe2支持zip压缩文件的操作了

Delphi xe tparallel.for的用法

Delphi 系统任务栏 窗口状态显示进度

Delphi 简单实习窗体靠边隐藏

Delphi中实现全角转半角

Delphi 游戏是如何检测到有od等调试工具的

Delphi自动适应屏幕分辨率的属性

Delphi 取最前窗口标题（不重复）

Delphi 免杀下载者代码

Delphi过程函数传递参数的八种方式

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

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