再问delphi如何编写等待程序? ( 积分: 100 )

panyongze · 2005-03-18

我正在编写串口通讯程序,为保证数据完整对方先发送一个字节(要发送的字节数),然后接着发送约定好的字节数,我的程序读取第一个字节后就要进入等待状态,等一定时间后计算收到的字节数如果与约定的字节数一致进入下一个环节,否则发送一个字节(00H)要求重新发送。 在一个过程体中如何等待？使用sleep();或GetTickCount都未成功（且占用cpu时间），各位老大指条明路啊！  下面是我的简化的通讯类程序. unit SjtxUnit; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, SPComm; type  TSjtx = class (TObject)  private    FComm: TComm; //串口对象    FCommName: string; //窜口名称    FBaudRate: Integer; //通讯数率    FReadStatus: Boolean;  //读取状态（True正在读取；False空闲）    FReadString: string;  //读取的字符串    FDataLength: Integer;    procedure SetBaudRate(const Value: Integer);    procedure SetCommName(const Value: string);     //准备接收的数据长度    procedure ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word);    function SendData(SendStr: string): Boolean;  //发送数据  public    constructor Create;    destructor Destroy; override;    property ReadString: string read FReadString;    property CommName: string read FCommName write SetCommName;    property BaudRate: Integer read FBaudRate write SetBaudRate;    property ReadStatus: Boolean read FReadStatus;    //这是我要实现但失败的函数    function ReadData(var S: string): Boolean;  end; implementation { TSjtx } constructor TSjtx.Create; begin  FComm := TComm.Create(nil);  CommName := 'COM1';  BaudRate := 2400;  with FComm do  begin    Inx_XonXoffFlow := False;    Outx_XonXoffFlow := False;    StartComm;    OnReceiveData := ReceiveData;  end; end; destructor TSjtx.Destroy; begin  FComm.StopComm;  FComm.Free;  inherited; end; function TSjtx.ReadData(var S: string): Boolean; begin  //清除FReadString的内容。  FReadString :='';  //发送请求数据命令，pda收到后发送回64字节数据  SendData('0203');  //等待10秒后，检查FReadString的长度如果是64字节说明正常，如果FReadString为  //空则重新发送SendData('0203')，如果长度&lt;&gt;64字节则发送重发命令SendData('00');  //以上重复3次后如果仍无法获得正确数据应返回    Result := False;如果长度正确，  //则返回    Result := True; 并且 S := FReadString; end; procedure TSjtx.ReceiveData(Sender: TObject; Buffer: Pointer;  BufferLength: Word); var  I: Integer;  FBuf: array [1..64] of Byte;  //PDA发送的数据 begin  FDataLength := BufferLength;  Move(Buffer^, FBuf,BufferLength);  FReadString := '';  for I := 1 to FDataLength do    FReadString := FReadString + IntToHex(FBuf, 2); end; function TSjtx.SendData(SendStr: string): Boolean; var  sBuf: array [1..64] of Byte;  I, J: Integer; begin  J := Length(SendStr) div 2;  if J &gt; 0 then  begin    for I := 1 to J do      sBuf := StrToInt('$' + (Copy(SendStr, I * 2 - 1, 2)));    Result := FComm.WriteCommData(@sBuf, J);  end  else    Result := False; end; procedure TSjtx.SetBaudRate(const Value: Integer); begin  if FBaudRate &lt;&gt; Value then  begin    FBaudRate := Value;    FComm.BaudRate := Value;  end; end; procedure TSjtx.SetCommName(const Value: string); begin  if FCommName &lt;&gt; Value then  begin    FCommName := Value;    FComm.CommName := Value;  end; end; end.

panyongze · 2005-03-18

我正在编写串口通讯程序,为保证数据完整对方先发送一个字节(要发送的字节数),然后接着发送约定好的字节数,我的程序读取第一个字节后就要进入等待状态,等一定时间后计算收到的字节数如果与约定的字节数一致进入下一个环节,否则发送一个字节(00H)要求重新发送。 在一个过程体中如何等待？使用sleep();或GetTickCount都未成功（且占用cpu时间），各位老大指条明路啊！  下面是我的简化的通讯类程序. unit SjtxUnit; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, SPComm; type  TSjtx = class (TObject)  private    FComm: TComm; //串口对象    FCommName: string; //窜口名称    FBaudRate: Integer; //通讯数率    FReadStatus: Boolean;  //读取状态（True正在读取；False空闲）    FReadString: string;  //读取的字符串    FDataLength: Integer;    procedure SetBaudRate(const Value: Integer);    procedure SetCommName(const Value: string);     //准备接收的数据长度    procedure ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word);    function SendData(SendStr: string): Boolean;  //发送数据  public    constructor Create;    destructor Destroy; override;    property ReadString: string read FReadString;    property CommName: string read FCommName write SetCommName;    property BaudRate: Integer read FBaudRate write SetBaudRate;    property ReadStatus: Boolean read FReadStatus;    //这是我要实现但失败的函数    function ReadData(var S: string): Boolean;  end; implementation { TSjtx } constructor TSjtx.Create; begin  FComm := TComm.Create(nil);  CommName := 'COM1';  BaudRate := 2400;  with FComm do  begin    Inx_XonXoffFlow := False;    Outx_XonXoffFlow := False;    StartComm;    OnReceiveData := ReceiveData;  end; end; destructor TSjtx.Destroy; begin  FComm.StopComm;  FComm.Free;  inherited; end; function TSjtx.ReadData(var S: string): Boolean; begin  //清除FReadString的内容。  FReadString :='';  //发送请求数据命令，pda收到后发送回64字节数据  SendData('0203');  //等待10秒后，检查FReadString的长度如果是64字节说明正常，如果FReadString为  //空则重新发送SendData('0203')，如果长度&lt;&gt;64字节则发送重发命令SendData('00');  //以上重复3次后如果仍无法获得正确数据应返回    Result := False;如果长度正确，  //则返回    Result := True; 并且 S := FReadString; end; procedure TSjtx.ReceiveData(Sender: TObject; Buffer: Pointer;  BufferLength: Word); var  I: Integer;  FBuf: array [1..64] of Byte;  //PDA发送的数据 begin  FDataLength := BufferLength;  Move(Buffer^, FBuf,BufferLength);  FReadString := '';  for I := 1 to FDataLength do    FReadString := FReadString + IntToHex(FBuf, 2); end; function TSjtx.SendData(SendStr: string): Boolean; var  sBuf: array [1..64] of Byte;  I, J: Integer; begin  J := Length(SendStr) div 2;  if J &gt; 0 then  begin    for I := 1 to J do      sBuf := StrToInt('$' + (Copy(SendStr, I * 2 - 1, 2)));    Result := FComm.WriteCommData(@sBuf, J);  end  else    Result := False; end; procedure TSjtx.SetBaudRate(const Value: Integer); begin  if FBaudRate &lt;&gt; Value then  begin    FBaudRate := Value;    FComm.BaudRate := Value;  end; end; procedure TSjtx.SetCommName(const Value: string); begin  if FCommName &lt;&gt; Value then  begin    FCommName := Value;    FComm.CommName := Value;  end; end; end.

Avalon · 2005-03-18

while  not '计算收到的字节数如果与约定的字节数一致'  do  Application.ProcessMessages;

panyongze · 2005-03-18

妙，真是一语惊醒梦中人啊，以前我用了无数次Application.ProcessMessages;语句，这次就是没想到。多谢多谢！

Avalon · 2005-03-18

晕倒

再问delphi如何编写等待程序? ( 积分: 100 )

panyongze

Unregistered / Unconfirmed

panyongze

Unregistered / Unconfirmed

Avalon

Unregistered / Unconfirmed

panyongze

Unregistered / Unconfirmed

Avalon

Unregistered / Unconfirmed

Similar threads