社区
非技术区
帖子详情
高分求一个FTP软件制作的完整代码例程
linda2
2003-08-30 01:15:46
大家好,除了这里的分数另外再给100,小女子求一个完整的类似于FlaxFTP的用delphi开发的ftp软件代码,功能要齐全不能仅仅是down和up,其他功能越多越好。由于本人在开发这样的一个工具,上传下载全都弄好了,现在那些类似于用代理去连接和用http,socket那些去连接那些不会,所以希望有个完整的工具代码,急阿!求哪位帮一下我不胜感激!
...全文
52
18
打赏
收藏
高分求一个FTP软件制作的完整代码例程
大家好,除了这里的分数另外再给100,小女子求一个完整的类似于FlaxFTP的用delphi开发的ftp软件代码,功能要齐全不能仅仅是down和up,其他功能越多越好。由于本人在开发这样的一个工具,上传下载全都弄好了,现在那些类似于用代理去连接和用http,socket那些去连接那些不会,所以希望有个完整的工具代码,急阿!求哪位帮一下我不胜感激!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
18 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
zhksoft
2003-09-07
打赏
举报
回复
去这里看看http://www1.baidu.com/baidu?cl=3&word=delphi+ftp
fhuibo
2003-09-06
打赏
举报
回复
delphi中的nmftp控件中Download函数只能下载一个文件,没有提供一个下载整个目录(包含子目录)的函数。
file://目录下载
function tftp.ex_download(remote_dir,local_dir:string):boolean;
var
i,j,count1:integer;
att,ss:string;
current_dir:string;
temp_dir:string;
begin
try begin
NMFTP1.ChangeDir(remote_dir);
current_dir:=remote_dir;
temp_dir:=copy(current_dir,2,length(current_dir));
if not DirectoryExists(local_dir) then CreateDir(local_dir);
if not directoryexists(local_dir+temp_dir) then createdir(local_dir+temp_dir);
nmftp1.ParseList:=true;
NMftp1.list;
count1:=nmftp1.FTPDirectoryList.name.Count;
for i:=0 to count1-1 do begin
file://必须
NMFTP1.ChangeDir(current_dir);
nmftp1.list;
ss:=nmftp1.FTPDirectoryList.name.Strings[i];
att:=nmftp1.FTPDirectoryList.Attribute.Strings[i];
if (copy(pchar(att),1,1)<>'d')and(copy(pchar(att),1,1)<>'D') then begin
if not DirectoryExists(local_dir) then CreateDir(local_dir);
NMFTP1.Download(current_dir+ss,local_dir+temp_dir+ss);
end
else begin
if not directoryexists(local_dir+temp_dir+ss) then createdir(local_dir+temp_dir+ss);
file://递归调用
ex_download(remote_dir+ss+',local_dir);
end;
end;
result:=true;
end
except
On E:Exception do begin
result:=false;
end;
end;
end;
linda2
2003-09-05
打赏
举报
回复
没戏了怎么没有人弄过这个!艾惨了这次
linda2
2003-09-04
打赏
举报
回复
怎么没有人开发过用那些http socket代理连接的ftp工具吗?
心痛咯!55555555555555555
jackie168
2003-09-03
打赏
举报
回复
靠,樓上是星星?
WoGanCSDN
2003-09-03
打赏
举报
回复
MM???
linda2
2003-09-03
打赏
举报
回复
救救我阿同志们!谁会用那个socket和http的帮帮忙谢谢
linda2
2003-09-02
打赏
举报
回复
哎呀下载到了,运行了可是这个例程不是我所要的阿!我上面说了我说不能只能down和up阿!我需要的是用代理可以去连接那种阿!晕咯!对不起阿大家再帮帮忙可以吗?就是可以用socket和http那些出去连接那种阿!
goomoo
2003-09-02
打赏
举报
回复
下载页面:
http://www.indyproject.org/download/index.html
linda2
2003-09-02
打赏
举报
回复
indy控件?我没有7装噢!请问谁有这个控件谢谢^_^!
oklida
2003-09-01
打赏
举报
回复
你安装了Delphi7就可以用了,这个例程就是用的indy而已
linda2
2003-09-01
打赏
举报
回复
to goomoo
你好很感谢你,现在我delphi是原装版没有装过任何新的控件,你那个例程有很多控件我都没有
希望你把那些控件给我down可以吗?非常感谢^_^我会给分的放心
goomoo
2003-09-01
打赏
举报
回复
对不起,链接错误:
http://www.goomoo.net/tmp/FTP.rar
goomoo
2003-09-01
打赏
举报
回复
点击下载:
http://www.goomoo.net/tmp/ftp.rar
记得给分哦。 :)
benchiufo
2003-09-01
打赏
举报
回复
\Program Files\Borland\Delphi6\Demos\FastNet
有例子!
fhuibo
2003-09-01
打赏
举报
回复
从网络中下载一个指定文件
uses
URLMon, ShellApi;
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
except
Result := False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
const
// URL Location
SourceFile = 'http://www.google.com/intl/de/images/home_title.gif';
// Where to save the file
DestFile = 'c:image.gif';
begin
if DownloadFile(SourceFile, DestFile) then
begin
ShowMessage('Download succesful!');
// Show downloaded image in your browser
ShellExecute(Application.Handle, PChar('open'), PChar(DestFile),
PChar(''), nil, SW_NORMAL)
end
else
ShowMessage('Error while downloading ' + SourceFile)
end;
// Minimum availability: Internet Explorer 3.0
// Minimum operating systems Windows NT 4.0, Windows 95
******************************
2.}
uses
Wininet;
function DownloadURL(const aUrl: string): Boolean;
var
hSession: HINTERNET;
hService: HINTERNET;
lpBuffer: array[0..1024 + 1] of Char;
dwBytesRead: DWORD;
begin
Result := False;
// hSession := InternetOpen( 'MyApp', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
try
if Assigned(hSession) then
begin
hService := InternetOpenUrl(hSession, PChar(aUrl), nil, 0, 0, 0);
if Assigned(hService) then
try
while True do
begin
dwBytesRead := 1024;
InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead);
if dwBytesRead = 0 then break;
lpBuffer[dwBytesRead] := #0;
Form1.Memo1.Lines.Add(lpBuffer);
end;
Result := True;
finally
InternetCloseHandle(hService);
end;
end;
finally
InternetCloseHandle(hSession);
end;
end;
******************************
在Delphi中如何从网络中提取一个文件到本地计算机中,如提取<BR> http://www.abcdefg.com/software/a.zip到本地指定的目录中?
在窗体中添加1个TNMHTTP控件(在FastNet页)然后在随便那个Button什么的下面
加入如下代码:
NMHTTP1.InputFileMode := ture;
NMHTTP1.Body := '本地文件名';
NMHTTP1.Header := 'Head.txt';
NMHTTP1.OutputFileMode := FALSE;
NMHTTP1.ReportLevel := Status_Basic;
NMHTTP1.Proxy := '代理服务器的IP地址';
NMHTTP1.ProxyPort := '代理服务器的端口号';
With NMHTTP1.HeaderInfo do
Begin
Cookie := '';
LocalMailAddress := '';
LocalProgram := '';
Referer := '';
UserID := '用户名称';
Password := '用户口令';
End;
NMHTTP1.Get(‘http://www.abcdefg.com/software/a.zip’);
试试吧,Delphi的目录中有TNMHTTP控件的例子。
NT4+,Win95+,IE3+,你可以用URL Moniker的功能。
uses URLMon;
...
OleCheck(URLDownloadToFile(nil,'URL','Filename',0,nil));
其中最后一个参数你还可以传入一个IBindStatusCallback的实现以跟踪下载进度或控制中止下载。简单的场合一句话就搞定了。
qxceo
2003-08-30
打赏
举报
回复
呵呵~我也急要这个~记得有就发我一个拷贝~谢谢啦~大家帮忙啊~
my e-mail:qxceo@163.com
linda2
2003-08-30
打赏
举报
回复
分数不够的话可以再商量谢谢^_^
基于海思3536平台为示例的嵌入式
软件
开发-基础篇
课程介绍: 本课程从以下多个方面来... 运行
一个
8路1080P60导播台程序以及
一个
多路4KP30解码加多画面合成4K输出的测试程序; 5. 以上所讲内容所涉及的一些相关概念、知识点的讲解; 6. 更多涉及本课程的资料,请邮箱索取;
2021年Delphi第26届应用
软件
开发展示挑战赛的获胜者名单
2021(Delphi)第26次应用
软件
开发展示挑战赛的参赛作品太多了!有170个
软件
项目,涉及广泛的项目类型。从游戏,多媒体到业务线和消费类
软件
,应有尽有。既有在台式机上的VCL上开发,也有在移动平台上的FireMonkey上开发。了解Delphi应用领域之处的观点非常容易,有时我们会错过其惊人的灵活性。我建议浏览整个Showcase。我们正在添加子类别,以使查看其中的所有内容变得更加容易! 现在,我将列出前12名,并在比赛中提及一些荣誉,以便每个人都知道...
计算机操作系统(第四版)课后习题答案(完整版)---汤小丹 梁红兵 哲凤屏 汤子瀛 版本
第一章 1.设计现代OS的主要目标是什么? 答:(1)有效性 (2)方便性 (3)可扩充性 (4)开放性 2.OS的作用可表现在哪几个方面? 答:(1)OS作为用户与计算机硬件系统之间的接口 (2)OS作为计算机系统资源的管理者 (3)OS实现了对计算机资源的抽象 3.为什么说OS实现了对计算机资源的抽象? 答:OS首先在裸机上覆盖一层I/O设备管理
软件
,实现了对计算机硬件操作的第一层次抽 象;在第一层
软件
上再覆盖文件管理
软件
,实现了对硬件资源操作的第二层次抽象。OS 通 过在计算机硬件上安装多层系统
软件
,
C++面试题
1.构造
一个
类MySingleton,使该类只能存在
一个
实例. 思路: 将构造函数写为private的,然后通过
一个
成员静态函数来调用构造函数即可:) 例: #include "iostream.h" class MySingleton { private: static MySingleton* _instance; MySingleton(){ cout ~MyS
计算机操作系统(第四版)课后习题答案(完整版)
第一章 1.设计现代OS的主要目标是什么? 答:(1)有效性 (2)方便性 (3)可扩充性 (4)开放性 2.OS的作用可表现在哪几个方面? 答:(1)OS作为用户与计算机硬件系统之间的接口 (2)OS作为计算机系统资源的管理者 (3)OS实现了对计算机资源的抽象 3.为什么说OS实现了对计算机资源的抽象? 答:OS首先在裸机上覆盖一层I/O设备管理
软件
,实现了对计算机硬件操作的第
非技术区
828
社区成员
53,611
社区内容
发帖
与我相关
我的任务
非技术区
Delphi 非技术区
复制链接
扫一扫
分享
社区描述
Delphi 非技术区
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章