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