|
| 盒子资源分类 |
![]() |
|
|
|
|
| 支持断点的FTP上传下载程序 |
![]() |
| 关键字： 断点 FTP上传下载 |
| 来 自：原创 |
| 平 台：Win2k/XP/NT,Win2003 |
下载所需：0 火柴 |
| 深浅度：初级 |
完成时间：2008/12/15 |
| 发布者：oloveudyq |
发布时间：2008/12/15 |
| 编辑器：DELPHI7 |
语 种：简体中文 |
| 分 类：网络 |
下载浏览：14964/14100 |
|
|
|
|
|
支持断点的Ftp上传下载程序演示代码,程序为完整代码！无第三方控件!
{ 本程序支持断点上传下载，还有很多小细节没完成，希望有人完成
了之后，能发一份代码给我.
QQ群号:58300702 作者:夢難留 |
| 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ |
| 相关文章 |
|
![]() |
|
|
| 相关评论 |
![]() |
|
共有评论6条
当前显示最后6条评论
|
| id520 |
2008/12/16 21:04:30 |
| 断点 嘿嘿 学习去了 谢了！ |
| gengzy |
2008/12/17 10:07:47 |
添砖了；
procedure TMain.N2Click(Sender: TObject);
var
name1,name2:string;
i,s:integer;
tStream: TFileStream;
upFileSize : integer;
MyStream:TMemoryStream;
buf:array[0..4096] of byte;
begin
name1:=ListViewfilelocal.Selected.Caption;
name2:=ComboBoxfilelocal.Text+ListViewfilelocal.Selected.Caption;
tStream := TFileStream.Create(name2, fmOpenRead);
MyStream:=TMemoryStream.Create;
idftp1.TransferType:=ftbinary;
upFileSize := idFtp1.size(name1);
if upFileSize = -1 then
begin
s:=tStream.Read(buf,sizeof(buf));
MyStream.Write(buf,s);
IdFTP1.put(MyStream,extractfilename(name2),false);
upFileSize := s;
end;
try
tStream.Position := upFileSize;
s:=tStream.Read(buf,sizeof(buf));
while s <> 0 do
begin
MyStream.Write(buf,s);
IdFTP1.put(MyStream,extractfilename(name2),True);
s:=tStream.Read(buf,sizeof(buf));
end;
finally
tStream.Free;
MyStream.Free;
chagedir(sender);
end;
end; |
| oloveudyq |
2008/12/17 11:48:28 |
| 非常感谢gengzy ！ |
| grjs_2004 |
2008/12/18 16:00:27 |
| 能不能做得象FTP Explorer，可以支持文件鼠標拖放。從本地機器拖放到服務器(上傳)，從服務器拖放到本地機器(下載)。文件目錄瀏覽跟Windows的瀏覽方式一樣！ |
| grjs_2004 |
2008/12/18 19:54:57 |
gengzy的代码使上传的文件很大
简练一下,上传的文件跟原来的文件大小一样!压缩包也是!
procedure TMain.N2Click(Sender: TObject);
var
name1, name2 : string;
i, s : integer;
tStream : TFileStream;
begin
name1:=ListViewfilelocal.Selected.Caption;
name2:=ComboBoxfilelocal.Text+ListViewfilelocal.Selected.Caption;
if idFtp1.size(name1)<>-1 then //判断FTP上是否存在某文件
Formmesup.ShowModal
else
begin
try
tStream := TFileStream.Create(name2, fmOpenRead);
tStream.Position := tStream.Size;
idftp1.TransferType:=ftbinary; //uses IdFTPCommon
IdFTP1.put(tStream,extractfilename(name2),false);
finally
tStream.Free;
chagedir(sender);
end;
end;
end; |
| iuiuiu1818 |
2010/3/5 20:13:41 |
| 呵呵 我也下在下来学习 我是新手哦 |
| 我要发表评论 |
查看全部评论 |
![]() |
|
|
|
