fatspider
592445
|
2018/10/7 20:57:20 |
楼主,好像程序上传与下载之后文件都改变了,EXE文件都无法执行了呢? |
star5
208262
|
2014/9/28 23:33:46 |
rtc官方也跟进了演示,在自带包中提供了一个类似的演示,和我的写法差不多,大家可以看下,在QuickStart\ClientUpload下。 |
vga
45746
|
2013/4/7 7:04:01 |
测试通过, 大家是否注意一个问题:
上传速度 比 下载速度 快 一倍,
怎样 优化一下下载速度? |
delphizhou
42721
|
2012/9/5 17:04:39 |
主要就是把文件转化为数据流,再分流下载。 |
delphizhou
42720
|
2012/9/5 17:04:02 |
我用D7也写过这个下载的东东。 |
star5
42488
|
2012/5/26 8:14:30 |
进行了优化,欢迎下载,在盒子FTP里,名称是:“RTC文件传输演示优化版.rar”
主要优化大文件传输、并发传输等功能,另做了断点续传测试,效果也不错,不过续传代码没带,方便你们自己研究添加。 |
star5
42483
|
2012/5/24 15:39:46 |
procedure TfrmMain.RtcDataRequest1DataReceived(Sender: TRtcConnection); var s: string; d: AnsiString; i: integer; n: Int64; begin with TRtcDataClient(Sender) do begin if isDown then begin d := read; Write_File(string(Request.Info.asString['LocFile']), d, Response.ContentIn - length(d)); i := round(Response.ContentIn / Response.ContentLength * 100); if GetTickCount - StartTime > 0 then begin n := round(Response.ContentIn / ((GetTickCount - StartTime) / 1000)); s := Format('%0.2f', [(Response.ContentLength - Response.ContentIn) / n]); end else // 防止除零 begin n := 0; s := '0.00'; end; Label1.Caption := '状态:接收中 ' + IntToStr(i) + '% [' + GetSpeed(Response.ContentIn) + '/' + GetSpeed(Response.ContentLength) + '] ' + GetSpeed(n) + '/s 还需 ' + s + ' 秒'; Gauge1.Progress := i; end; if Response.Done then begin if isDown then Label1.Caption := '状态:接收完成 [接收 ' + GetSpeed(Response.ContentLength) + Format(' 耗时 %0.2f 秒]', [(GetTickCount - StartTime) / 1000]) else Label1.Caption := '状态:发送完成 [传输 ' + GetSpeed(Request.ContentLength) + Format(' 耗时 %0.2f 秒]', [(GetTickCount - StartTime) / 1000]); LabeledEdit2.Enabled := True; LabeledEdit3.Enabled := True; SpeedButton1.Enabled := True; Button2.Enabled := True; Button3.Enabled := True; isDown := false; end; end; end; |
star5
42482
|
2012/5/24 15:10:29 |
347行。。。 |
star5
42481
|
2012/5/24 15:03:28 |
不好意思,下载时有个错误,修正如下: 修改第330行的内容为 Write_File(string(Request.Info.asString['LocFile']), d, Response.ContentIn - length(d)); 修改后文件md5值正确。 |
chinaz
42478
|
2012/5/24 12:01:48 |
已经ok |
star5
42477
|
2012/5/24 11:12:48 |
汗~ delphi的演示都只给50火柴,别的倒给110啊。。。 |