glent92的博客

很好用的串口传输文件代码 欢迎大家下载 procedure TfrmComSys.actCancelSendExecute(Sender: TObject); begin if false = FSendFinished then //如果还在发送文件 begin TimerOut.Enabled := false; FSendFinished := true; AddMsg('已经取消发送文件:' + edFileName.Text); end; end;