如何使用SPCOMM，它是实时通信吗？

Question

这个问题问了无数遍了,
你搜一下'spcomm'肯定一大堆,
文档中心也有专门讲这个的文章和实例,
再加上spcomm本身自带的readme.txt
应该能满足你的要求,
DIY吧

Answer 1

Procedure TForm1.MsgcommProcess(Var Message:Tmessage); 
var 
Clear:Boolean; 
Coms:TCOMSTAT; 
cbNum,ReadNumber,lpErrors:Integer; 
Read_Buffer:array[1..100]of char; 
hcom:Thandle ; 
Post_Event:Thandle; 
lpol:Poverlapped; 
Begin 
Clear:=Clearcommerror(hcom,lpErrors,@coms); 
if Clear Then Begin 
cbNum:=Coms.cbInQue; 
ReadFile(hCom,Read_Buffer,cbNum,ReadNumber,lpol); 
SetEvent(Post_Event); 
end; 
end; 编译时出错，错误发生在两API函数Clearcommerror、ReadFile调用处， 
提示： Types of actual and formal var parameters must be identical 
请问大虾如何解决？不胜感激！ 
分不够再加!!!!!!!!!!

Answer 2

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
        s: string;
begin
        SetLength(S, BufferLength); //??RS232??????Memo1??
        Move(Buffer^, PChar(S)^, BufferLength);
        Memo1.Lines.Add(S);
        Memo1.Invalidate;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
        Comm1.startcomm;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        comm1.StopComm;
end;结果是根本不能接收数据（不执行接收过程），什么原因；

Answer 3

TO 962veiri(风尘旅人)
请问她会接收扫描枪的数据吗？我主要要解决把扫描枪的数据读到Edit里，另外扫描枪需要什么驱动吗？万分感激！！！！！！！！！

Answer 4

962veiri(风尘旅人)
你在吗？