如何用Delphi实现在网页上下载文件。-CSDN论坛

如何用Delphi实现在网页上下载文件。

Delphi > VCL组件开发及应用

收藏回复

[问题点数：0分]

⋅请问在Delphi中调用Mapx控件时的问题 ⋅ScrollBoX的问题 ⋅请问在Delphi中调用Mapx控件时的问题 更多帖子 关注私信空间博客 jtww888 等级 本版专家分：5 结帖率 100%: 如何用Delphi实现在网页上下载文件。

2003-06-28 22:47:25

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅C#调用Delphi写的Dll时出现乱码[解决后再加分] ⋅有谁用过微软的Mirror Driver？ ⋅如何将Canvas里的内容快速的画到一个Bmp中（解决问题后单独开贴赠分） 更多帖子 关注私信空间博客 fengjn 等级 本版专家分：7234: 可以使用http控件的post或是send函数

2003-06-28 23:30:46

点赞只看TA 引用举报 #1得分 0

⋅寻找软件高手一起开发产品 ⋅逛完武汉光谷思远+1，似乎…… ⋅★祝我生日快乐，祝所有快毕业的学生都能找个好工作★ 更多帖子 关注私信空间博客 Eastunfail 等级 本版专家分：20147: 或者使用FastNet\NMFTP來通過FTP上傳文件

2003-06-28 23:42:56

点赞只看TA 引用举报 #2得分 0

⋅0D是啥？ ⋅∝∝∝∝∝∝∝如何读取内存里密码???300分 ⋅有点小问题，高手来帮帮忙看看~ 更多帖子 关注私信空间博客 Debug007 等级 本版专家分：19: unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Psock, NMHttp, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    NMHTTP1: TNMHTTP;
    Button1: TButton;
    Label1: TLabel;
    edtURL: TEdit;
    StatusBar1: TStatusBar;
    Label2: TLabel;
    lblTemp: TLabel;
    Label4: TLabel;
    lblFinal: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure NMHTTP1Success(Cmd: CmdType);
    procedure FormCreate(Sender: TObject);
    procedure NMHTTP1Failure(Cmd: CmdType);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
    NMHTTP1.Get(edtURL.text);
end;

procedure TForm1.NMHTTP1Success(Cmd: CmdType);
var
    fname:string;
    buf:string;
    pnewfile,poldfile:pchar;
    i:integer;
begin
{   Copyright (C) Bowman    }
{   MatthewBowman@21cn.com  }
    //retrive the tmp file
    fname:=nmhttp1.body;
    //retrive file name
    for i:=length(edtURL.Text) downto 1 do
        if edtURL.text[i]<>'/' then
            buf:=edtURL.text[i]+buf
        else
            break;
    //assign file name
    Getmem(poldFile,length(fname)+1);
    StrPCopy(poldFile,fname);
    Getmem(pnewfile,length(buf)+1);
    StrPCopy(pnewfile,buf);
    //rename it
    MoveFile(poldfile,pnewfile);
    Freemem(poldfile);
    Freemem(pnewfile);
    //show infomation
    statusbar1.Panels.Items[0].text:='download complete';
    lblTemp.caption:= fname;
    lblFinal.Caption:=buf;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    //store in file
     NMHTTP1.InputFileMode:= TRUE;
     NMHTTP1.TimeOut:=2000;
     //set temp file name
     NMHTTP1.Body:='Part.tmp';
     NMHTTP1.Header:='Head.tmp';
end;

procedure TForm1.NMHTTP1Failure(Cmd: CmdType);
begin
    StatusBar1.Panels.Items[0].text:='Failed';
end;

end.

2003-06-29 01:04:08

点赞只看TA 引用举报 #3得分 0

收起

收藏回复

jtww888

等级：

关注私信 TA的帖子

delphi 实现文件上传下载: unit UpDownFile; interface uses Windows, Classes, Idhttp, URLMon, IdMultipartFormData; const UpUrl = 'http://127.0.0.1/upfile/upfile.asp';...const UpFileName = 'C:\Documents and Setting...

delphi下载文件，delphi从http服务器上下载文件: unit downloadTest; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,UrlMon; type TForm1 = class(TForm) ... Button1: TButto

Delphi从Internet下载文件: 今天在做拍卖系统的时候，因考虑到网络状况问题，需要将拍品所有信息下载到本机，包括拍品图片，因此需要实现从Internet下载文件的功能。下面是代码片段： private function DownloadFile(SourceFile, ...

用Delphi实现文件下载的几种方法: 笔者最近开发的系统中需要写一个下载...不仅如此，Delphi的一些控件也可以轻松实现下载，如NMHTTP，指定NMHTTP1.InputFileMode := ture; 指定Body为本地文件名，指定Get就可以下载了。下面是详细代码，均出自CSDN。...

用Delphi实现Word文件的预览: 而这并不影响网页的下载时间，因为在执行 applet 的时候，这部分内存是在本地机器上被分配的。除了作为网页本身的 HTML 文件的内容外，下载时间还取决于 applet 的 .class 文件的大小，以及在它执行时下载的图像或...

delphi IdHTTP实现Get方法下载文件，断点续传: delphi XE10 下用IdHttp控件实现Get方法从网站下载文件的，实现断点续传，不会出现网上很多断点续传demo出现的，每次续传文件大小都会变大，实际是从头开始下载的问题。

Delphi FTP程序 实现文件上传下载.rar: Delphi FTP程序 实现文件上传下载，如果服务器路径path上有文件filename那么返回文件修改时间，否则返回nil，实时与服务器对比扫描，path为本地网站根路径，serverpath为服务器网站根路径。　这个FTP客户端的亮点...

Delphi IdHttp组件+IdHttpServer组件实现文件下载服务: uses idhttp,IdHTTPServer;... //idhttp组件提交下载请求 procedure TVodService.Button3Click(Sender: TObject); var h:TIdhttp; MyStream:TMemoryStream; url:string; begin MyStream:=TMemoryStream.C

ASP.NET实现文件的上传和下载: 最近做的一个高校网站中涉及到了上传和下载文件的需求（具体需求为：网站公布的通知，在后台要能给每个通知添加附件，在前台要能显示并下载附件），之前只是学习过关于上传的理论知识，这里实践了一下下，与大家...

delphi webbrowser: 只是下載了那個文件這個文件才有用。 <br>其他朋友請不要下載別浪費時間

Delphi实现网页采集: 说到网页采集，通常大家以为到网上偷数据，...用得最有代表的就动易科技公司BBS中新闻采集系统，和网上流传的新浪新闻采集系统等都是用ASP程序来使用，但速度从理论上来说不是很好。如果尝试用其它软件的多线程采集是

delphi源码-教你实现打印预览: 打印预览是软件开发必不可少的重要功能，但我们使用的报表控件都是英文的。 delphi源码-教你实现打印预览

delphi 打开文件: ShellExecute(handle,nil,pchar('MyHelp.chm'), nil, nil, SW_... //打开帮助文件 ShellExecute(handle,nil,pchar('www.baidu.com'), nil, nil, SW_SHOWNORMAL); ShellExecute(Application.Handle, 'open

delphi 网络文件拷贝 (参考): 如何模拟输入用户名、密码来访问网络邻居收藏新一篇: 有关socket确认连接 | 旧一篇: 局域网内传文件或文件内容function StorePage(){d=document;t=d.selection?(d.selection.type!=None?d.selection....

Delphi实现HTMLWebBrowser实现HTML界面: elphi实现HTMLWebBrowser实现HTML界面 HTML的界面有以下特点：图文混排，格式灵活，可以包含Flash、声音和视频等，实现图文声像的多媒体界面，而且易于建立和维护。另外，HTML的显示环境一般机器上都具备，通常不...

Delphi 连接Ftp服务器，取文件目录: procedure TbsFileBackUpForm.conectServer(Sender: TObject); var tr : Tstrings; begin //连接 tr := TStringlist.Create; IdFTP1.Host := '10.000.00.00'; //FTP服务器IP地址or域名也可以 ...

Delphi实现RM文件地址安全检测.rar: Delphi实现RM文件安全检测，文件信息数据流，记录了媒体文件的版权、限制级别、制作日期、等附加信息，图像映射数据流，在指定的时间内，当用户点击播放画面的部份区域可以打开网页，用户在网上下载RM格式文件的时候...

ssh 实现文件的上传和下载: 一，ssh上传文件 scp file username@hostIP:文件地址例: [zhangy@BlackGhost ~]$ scp test.sql zhangying@192.168.1.5:/var/www/zhangyingzhangying@192.168.1.5's password:test.sql ...

IDHTTP文件下载，支持断点续传: delphi XE10 下用IdHttp控件实现Get方法从网站下载文件的，实现断点续传，不会出现网上很多断点续传demo出现的，每次续传文件大小都会变大，实际是从头开始下载的问题。

用DELPHI实现的一些国内黑客程序技巧: 实际上目前所有的OICQ探测方法都一样，发送一个OICQ消息给对方，凭借OICQ 的返回信息来判断对方的OICQ号码，具体的DELPHI实现如下： NMUDP1是ICS控件包的UDP控件。 NMUDP1.ReportLevel := Status_Basic; NMUDP1....

Delphi7程序中上下文关联chm帮助的实现: Delphi7程序中上下文关联chm帮助的实现作者：李新 kelvinsdu...它是通过Chm制作工具对网页文件进行编译得到的，所以理论上你可以把帮助文件做的和网页一样漂亮。最简单的制作方法:先用FronPage制作帮助文件，然后用H

如何用delphi实现短信同步接口: 我讲移动的短信同步接口用delphi实现 首先来说说什么是同步接口，就是移动的短信，如果有一个手机定制了公司某个栏目上，移动会通过一个www.的地址，post过来一个xml的文档移动的IVR,或联通的都要求有这样的接口，...

Delphi提取网页文件图片地址示例源码: 本人在网上看到的，觉得以后会用到，故收录到此！谢谢！源码介绍：１．该程序使用ＩｄＨＴＴＰ控件实现多线程下载。２．使用了ｓｕｉ皮肤控件，本人的修改版，请覆盖原版重新编译。３。一个最大的问题：当两个线程...

用Delphi为Asp开发文件上载组件的原理和具体实现过程: ＡＳＰ(Active Server Page)是微软公司的产品，由于它编程很容易上手，能快速开发功能强大的动态网站，现在很多网站（特别是Intranet/Extranet内部网）采用了ＮＴ＋ＩＩＳ＋ＡＳＰ的模式，使得ＡＳＰ成为目前较为...

程序自动自我更新的delphi实现: 要点在两个：自动和自我更新。所谓自动就是定时按规则轮循是否有必要去检查更新和是否有必要更新。自我更新就是不借助另一个程序而实现自已更新自己。一般来说有几种实现方法：1.程序self.exe启动时先把自己复制为一...

用Delphi实现邮件附件收发功能（使用Pop3 和Smtp）: 用Delphi实现邮件附件收发功能收藏很久没有发过博客了，不知道为什么没这个思想来博客上转转。今天把这个前段时间做的试验发上来。邮件与我们的工作生活息息相关，很多的信息传递都是通过邮件完成的。...

delphi资源文件制作及使用详解: 一、引子：现在的Windows应用程序几乎都使用图标、图片、光标、声音等，我们称它们为资源...为了更好地管理资源，Delphi中提供了一种.RES类型的资源文件。它可以把我们程序中所需要的资源整合到一个资源文件(.RES

用Delphi建立通讯与数据交换服务器—Transceiver技术剖析（上）: <iframe align="center" marginwidth="0" marginheight="0" src="http://www.zealware.com/csdnblog336280.html" frameborder="0" width="...

用DELPHI为ASP开发文件上载组件: ====================================================== 注：本文源代码点此下载 ...用delphi为asp开发文件上载组件深圳王发军返回 asp(active server page)是微软公司的产品,由于它编程很容易上手,能

delphi实现保存和读取图片的方法: 这篇文章主要介绍了delphi实现保存和读取图片的方法,主要包括了显示图片、保存图片和读取图片的实现方法,是非常实用的技巧,需要的朋友可以参考下本文实例讲述了delphi实现保存和读取图片的方法，是非常实用的技巧...

相关热词 c# 挂机锁 c# 不能再打开其它表了 c#移除行 c#socket建立通信 c# 拦截socket c#做一个问卷调查 c++结构体转换为c# c# 判断组合键 c# 的类重写dll c# 五层嵌套优化