(31)串口通讯都快把我折磨疯了:(-----给我解释段程序吧(100分)

千中元 · 2000-05-19

来自：hubdog 时间：99-10-17 15:41:43 ID:142866   var 1）  hcom:thandle; 2）  timeout:TCommTimeouts; 3）  dataout,datain

char; 4）  overlapped

Overlapped; 5）  buffersize:dword; 6）  begin 7）   hcom:=createfile('com1',generic_read or    generic_write,0,nil,open_existing, 8）                file_flag_overlapped,0); 9）  timeout.readintervaltimeout:=10; 10） timeout.readtotaltimeoutmultiplier:=20; 11） timeout.readtotaltimeoutconstant:=30; 12） setcommtimeouts(hcom,timeout); 13） setevent(hcom); 14） dataout:='S'; 15） getmem(overlapped,sizeof(tOverlapped)); 16） buffersize:=4096; 17） getmem(datain,4096); 18） if writefile(hcom,dataout,1,buffersize,overlapped) then 19）   showmessage('write right'); 20） if readfile(hcom,datain,1,buffersize,overlapped) then 21）   showmessage('read right'); 22） freemem(datain); 23） freemem(overlapped); 24） closehandle(hcom); 25）      end; 26）@type表示一个地址（如0012：0034），若overlapped

overlapped不应27）用@ 28）若overlapped:toverlapped then use @overlapped  问题一：       Poverlapped和toverlapped有什么区别？

Kang · 2000-05-19

POverlapped = ^TOverlapped

elan · 2000-05-20

hubdog · 2000-05-20

kang说的没错啊， Toverlapped是一个record poverlapped是Toverlapped类型的指针

Pipi. · 2000-05-20

从内存来看：Poverlapped和toverlapped有什么区别 00130100: 12 34 56 78 90 12 34 56 78 99 //这里放的是 TOverlapped的数据 00151234: 00 01 13 00 //这里放的是POverLapped变量，其值00130100指向上面那个地址

千中元 · 2000-05-20

第二个问题：     怎么setevent前没有createvent?     如果仅仅读串口用不用setevent?

wlq · 2000-05-20

程序好象没完。大概还有一个线程，在用waitForsingleSubject什么的等着 这个事件的置位(用setevent). 做串口的毕业设计？就把spcomm的源码打出来交上去！没一百页，也有 八十页！还一调就通

千中元 · 2000-05-20

呵呵。。我希望代码不超过两页，读着也省力气

Kang · 2000-05-20

太懒,这样不好

elan · 2000-05-20

呵呵

千中元 · 2000-05-20

LPDWORD lpNumberOfBytesRead, // address of number of bytes read readfile的第三个参数，怎么翻译不顺当？

Pipi. · 2000-05-20

由于delphi写成： var lpNumberOfBytesRead: DWORD 你就： var   NumberOfBytesRead

WORD; ReadFile(xxx,xxx,NumberOfBytesRead,...)

partisan · 2000-05-21

在Delphi里，所有的对象都传指针，比如 procedure F (Buffer: Pointer); 定义一个Buffer: Pointer; 这时候调用F的时候应该写成 F(Buffer^) 不能写成F(Buffer) 因为编译器会把对象转换为指针，如果直接用Buffer做参数，一转换就成了 指针的指针了

crazywind · 2000-05-25

unit comdemou; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; const      Wm_commNotify=Wm_User+12; type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);   private     Procedure comminitialize;     Procedure MsgcommProcess(Var Message:Tmessage); Message Wm_commnotify;     { Private declarations }   public     { Public declarations }   end;   // 线程声明   TComm=Class(TThread)   protected      procedure Execute;override;   end; var   Form1: TForm1;   hcom,Post_Event:Thandle;   lpol

overlapped; implementation {$R *.DFM} Procedure TComm.Execute;    // 线程执行过程 var dwEvtMask

word; Wait:Boolean; Begin fillchar(lpol,sizeof(toverlapped),0); While True do Begin       dwEvtMask:=0;       Wait:=WaitCommEvent(hcom,dwevtmask,lpol);  // 等待串行口事件；       if Wait Then Begin          waitforsingleobject(post_event,infinite);      // 等待同步事件置位；          resetevent(post_event);                    // 同步事件复位；          PostMessage(Form1.Handle,WM_COMMNOTIFY,0,0);// 发送消息；          end;       end; end; procedure Tform1.comminitialize;                     // 串行口初始化 var lpdcb:Tdcb; Begin hcom:=createfile('com2',generic_read or generic_write,0,nil,open_existing,                   file_attribute_normal or file_flag_overlapped,0);// 打开串行口     if hcom=invalid_handle_value then     else        setupcomm(hcom,4096,4096); // 设置输入，输出缓冲区皆为4096 字节         getcommstate(hcom,lpdcb);  // 获取串行口当前默认设置         lpdcb.baudrate:=2400;         lpdcb.StopBits:=1;         lpdcb.ByteSize:=8;         lpdcb.Parity:=EvenParity;    // 偶校验         Setcommstate(hcom,lpdcb);         setcommMask(hcom,ev_rxchar);      // 指定串行口事件为接收到字符； end; Procedure TForm1.MsgcommProcess(Var Message:Tmessage); var Clear:Boolean; Coms:Tcomstat; cbNum,ReadNumber,lpErrors:Integer; Read_Buffer:array[1..100]of char; 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; procedure TForm1.FormCreate(Sender: TObject); begin comminitialize; post_event:=CreateEvent(nil,true,true,nil); // 创建同步事件； Tcomm.Create(False);            // 创建串行口监视线程； end; end. 这个程序我已经调式了一下，不过好象还是不怎么行，大家帮忙吧！ 我也在做毕业设计啊，烦死了！

千中元 · 2000-05-25

hehe..me 2.

千中元 · 2000-06-01

(31)串口通讯都快把我折磨疯了:(-----给我解释段程序吧(100分)

千中元

Unregistered / Unconfirmed

Kang

Unregistered / Unconfirmed

elan

Unregistered / Unconfirmed

hubdog

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

千中元

Unregistered / Unconfirmed

wlq

Unregistered / Unconfirmed

千中元

Unregistered / Unconfirmed

Kang

Unregistered / Unconfirmed

elan

Unregistered / Unconfirmed

千中元

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

partisan

Unregistered / Unconfirmed

crazywind

Unregistered / Unconfirmed

千中元

Unregistered / Unconfirmed

千中元

Unregistered / Unconfirmed

Similar threads