//// 开始传输...procedure TForm1.Button2Click(Sender: TObject);begin if edit1.text='' then begin application.MessageBox('请先选择要上传的文件!','操作提示',mb_ok+mb_iconinformation); exit; end; if syncburro1.WriteRemoteFile(qbconnection1.NodeId,edit1.Text,'c:/'+extractfilename(edit1.Text),10) then application.MessageBox('指定的文件已经上传到服务器的C:/下!','上传成功',mb_ok+mb_iconinformation) else application.MessageBox('上传失败!','错误信息',mb_ok+mb_iconerror);end;//// 传输进度...procedure TForm1.SyncBurro1FileWriteProgress(Sender: TObject; AllBlocks, CurrentBlock: Integer);begin progressbar1.Max:=allblocks; progressbar1.Position:=currentblock;end;//// 开始下载...procedure TForm1.Button2Click(Sender: TObject);begin if edit1.text='' then begin application.MessageBox('请先指定要下载的文件!','操作提示',mb_ok+mb_iconinformation); exit; end; if syncburro1.ReadRemoteFile(qbconnection1.NodeId,edit1.Text,'c:/'+extractfilename(edit1.Text),10) then application.MessageBox('指定的文件已经下载到本地的C:/下!','下载成功',mb_ok+mb_iconinformation) else application.MessageBox('下载失败!','错误信息',mb_ok+mb_iconerror);end;//// 下载进度...procedure TForm1.SyncBurro1FileReadProgress(Sender: TObject; AllBlocks, CurrentBlock: Integer);begin progressbar1.Max:=allblocks; progressbar1.Position:=currentblock;end;