【200分】网页取图片,不难的问题 如题,我想取得如http://192.xxx.xxx.xxx/jpg/1/176x144.jpg这张图片,另存为1.jpg,如何实现? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 delphi6自带的fastnet控件包procedure TForm1.Button1Click(Sender: TObject);begin try NMHTTP1.OutputFileMode := true; NMHTTP1.Body := 'gffg.jpg'; //加上你的路径 NMHTTP1.Get('http://www.csdn.net/images/Homeother/zhky0729.jpg'); except ShowMessage('取数据失败!'); exit; end; ShowMessage('取数据成功!');end; 按照楼上给出的,我只取到Head.txt文件…… url:='http://www.csdn.net/images/Homeother/zhky0729.jpg'; fs:=TFileStream.create('1.jpg',fmCreate); IdHTTP1.Get(url,fs); fs.free; indy控件Tidhttp,支持http,socks代理,功能强大 to renzy205(ren) 谢谢 基本可以实现了 查询语句 能不是把report machine Demo发给我 向excel添加记录 如何操作关于runtime package的问题 请教监听窗口打开的问题。 关于代码分离技术 有Delphi7可以下载 请教ShellExecute问题 急等 商业软件中自定义报表如何实现 救助 探讨中石化,腌菜行业的这种远程系统是如何实现的? 给TMEMO 增加一行的消息代码是哪一个?
procedure TForm1.Button1Click(Sender: TObject);
begin
try
NMHTTP1.OutputFileMode := true;
NMHTTP1.Body := 'gffg.jpg'; //加上你的路径
NMHTTP1.Get('http://www.csdn.net/images/Homeother/zhky0729.jpg');
except
ShowMessage('取数据失败!');
exit;
end;
ShowMessage('取数据成功!');
end;
fs:=TFileStream.create('1.jpg',fmCreate);
IdHTTP1.Get(url,fs);
fs.free;
谢谢 基本可以实现了