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 webbrowser.oleobject属性

Delphi 字符串截取

Delphi弹出信息框大全

Delphi idhttp调用 rest

Delphi 屏幕dpi计算

Delphi 两个exe之间共享数据

Delphi 数据类型cardinal 怎么转换成 string？

Delphi 字符串保存为 txt文件

Delphi读写xml的技巧

Delphi 取得固定长度的随机字符串

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

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