本博客记录傻猫的生活、工作和学习,并与大家一起分享快乐.
该日志由 samool 发表于 2006-06-11 11:27 PM
该日志由 samool 发表于 2006-06-09 12:56 PM
该日志由 samool 发表于 2006-06-08 6:17 PM
该日志由 samool 发表于 2006-06-08 12:57 PM
终于辞掉了原来的工作,现在回家闭关修炼Delphi和C#,争取下次再去找工作的时候,让自己再上一个台阶。
不上班了,在屋里静坐,思考一下如何把自己的长处发挥出来,如何再给自己充电,如何让收入增加,这些问题呀,足够让我思考一辈子了,不过必须得给自己订一个目标,如果没有目标,就会像一只无头的苍蝇,我要坚持我的梦想,一步一个脚印,沿着我的梦想一路走下去。
最近跟1000du.net 合作开发《千渡互通》软件,也算是自己的一份事业吧,我没有资金,只能出技术,所以我就得更加努力,让自己的技术长处发挥出来,多学一些的知识,让一双有梦的翅膀带我越飞越高~~~~~~~
该日志由 samool 发表于 2006-06-05 5:02 PM
世界上最远的距离不是从中国到美国的距离,而是电信到网通的距离!千渡互通-让电信网通的速度飞起来!
这次发布的是千渡第一个内测版本,增加了许多新的功能,版本号正式改为 1.0
(安装程序和升级程序是偶写的,呵呵,请大家多多支持一下!!)
该日志由 samool 发表于 2006-06-05 9:57 AM
用HTTP从网站下载文件
方法一,用IdHttp:
procedure TForm1.Button1Click(Sender: TObject);
var
fs: TFileStream;
begin
fs := TFileStream.Create('c:\aaa.htm', fmCreate);
IdHTTP1.Get('http://www.abc.com/aaa.shtml', fs);
fs.Free;
end;
方法二,用UrlMon:
uses
UrlMon
function DownloadFile(Source, Dest: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
except
Result := False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if DownloadFile(edit1.Text, edit2.Text) then
ShowMessage('下载成功')
else ShowMessage('下载失败');
end;