为什么无法触发SPCOMM中的RECEVIEDATA事件
代码如下:
procedure TFcomm.btn1Click(Sender: TObject);
var
str: string;
begin
Sleep(100);
str := 'abc';
if comm1.writecommdata(pchar(str), length(str)) then
ShowMessage('发送')
else
ShowMessage('失败');
Sleep(100);
if Comm1.SendDataEmpty then
ShowMessage('empty')
else
ShowMessage('noempty')
end;
procedure TFcomm.CommReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
i: integer;
str: string;
begin
Memo1.Lines.Add('receive');
str := pchar(buffer);
ShowMessage(str);
end;
问题点数：0、回复次数：1Top
1 楼YAMABACK（不要把我当Michael，我只是会投篮）回复于 2004-09-02 11:49:39 得分 0
有完整的回路吗？Top
