对“网页内容查询控制”主题所得(下载):

原创 2004年09月23日 17:30:00
^知道了可以用nmhttp控件下载网页,可是D7找不到这个控件了。
^找到了idhttp控件似乎可以实现相同的功能,可是线上关于其的讨论太少
^摘录一点代码:
____________________________________________________________________________________________

直接采用Delphi自带的控件的INDY组件为例.新建一个工程,放上一个TIdHTTP控件,一个TIdAntiFreeze控件,一个TProgressBar用于显示下载进度.最后放上一个TButton用于开始执行我们的命令.代码如下:

procedure TForm1.Button1Click(Sender: TObject);//点击按钮的时候开始下载我们的文件
var
MyStream:TMemoryStream;
begin
IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.
MyStream:=TMemoryStream.Create;
try
IdHTTP1.Get('http://www.138soft.com/download/Mp3ToExe.zip',MyStream);//下载我站点的一个ZIP文件
except//INDY控件一般要使用这种try..except结构.
Showmessage('网络出错!');
MyStream.Free;
Exit;
end;
MyStream.SaveToFile('c:/Mp3ToExe.zip');
MyStream.Free;
Showmessage('OK');
end;

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);//开始下载前,将ProgressBar1的最大值设置为需要接收的数据大小.
begin
ProgressBar1.Max:=AWorkCountMax;
ProgressBar1.Min:=0;
ProgressBar1.Position:=0;
end;

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);//接收数据的时候,进度将在ProgressBar1显示出来.
begin
ProgressBar1.Position:=ProgressBar1.Position+AWorkCount;
end;


  IdHTTP1的Get还有一种形式就是获取字符串:例如,上面的程序可以改写成:

procedure TForm1.Button1Click(Sender: TObject);
var
MyStr:String;
begin
IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.
try
MyStr:=IdHTTP1.Get('http://www.138soft.com/default.htm');
except
Showmessage('网络出错!');
Exit;
end;
Showmessage(MyStr);
end;
___________________________________________________________________________________________

对取模后的余数的理解

取模和取余    通常情况下,取模运算(MOD)和取余运算(REM)被混为一谈,因为在大多数的编程语言里,都用" % " 符号来表示取模运算或者取余运算。所以有必要编写本文档,来为在此环节遇到问题的...
  • kkkkkkkkq
  • kkkkkkkkq
  • 2017年05月16日 09:47
  • 942

从linux的findso、finda命令所想到的------所想即所得与所见即所得

首先我要说一下, linux中并没有findso和finda命令, 这是我自己定制的, 如下: alias findso='find  -depth -type f -iname "*.so" | x...
  • stpeace
  • stpeace
  • 2015年12月01日 23:21
  • 2655

Intellij Idea安装主题包

一直用默认的主题,但是白色的背景看久了会晃眼睛。所以打算换成黑色的。 不过Intellij只有两种主题,Default和Darcula。 现在只能自己手动安装一个了。新主题需要满足, 看久了不会太...
  • laiwenqiang
  • laiwenqiang
  • 2017年05月18日 02:57
  • 13413

google code prettify 多款主题颜色及下载

google code prettify 多款主题颜色 google code prettify 是一款轻量级的代码高亮着色JS库,只有两个文件,对于常用的html,js,java,...
  • u013693601
  • u013693601
  • 2016年06月01日 17:36
  • 783

放弃,才有所得。

     觉得自己在技术上又到了一个必需放弃一些东西的时候了  前段时间学了保护模式编程,就有用WinGDB调试WIN内核,了解一下其内部实现的冲动,也有看看FreeBSD的代码,自己实现一个支持保护...
  • pankun
  • pankun
  • 2006年12月31日 15:01
  • 1531

一款不错的visual studio 2010深色主题下载

已验证Visual C++ 2010 Express兼容VS的主题 且导入方式相同 小吐槽下 完整安装VS才用3G 结果本子不常用我就装了个免费"轻量"的VC Express 结果她装好竟然1.7G...
  • PythonFX
  • PythonFX
  • 2012年02月26日 14:52
  • 8484

MyEclipse安装主题(Color Theme)

作为一个有情怀的程序员,
  • liuxigiant
  • liuxigiant
  • 2014年11月21日 18:16
  • 20044

VC# MVC Html格式方法备忘

一、MVC @Html.TextBoxFor 格式化 不能使用Html.EditorFor() 因为需要为生成的控件 指定HTML特性 @Html.TextBoxFor(model => mo...
  • yongzhen150
  • yongzhen150
  • 2018年02月06日 13:27
  • 21

sublime安装插件、主题风格、下载、安装一步到位

‘preferences’-->‘Package Control ’
  • IT429
  • IT429
  • 2017年02月10日 14:13
  • 2138

Notepad++使用VS深色主题

安装步骤: 1. 从VS2012/2013 Dark Theme for Notepad++ 下载VS2012-Dark.xml 2. 找到notepad++的安装目录(%PROGRAMFILES...
  • liuhhaiffeng
  • liuhhaiffeng
  • 2016年09月29日 09:38
  • 3448
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:对“网页内容查询控制”主题所得(下载):
举报原因:
原因补充:

(最多只允许输入30个字)