客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
获取城市的天气 //使用方法 Edit1.text:=GetWeather('北京'); }
1 function GetWeather(City: String): String;
2 const 3 sys01='<table border=0 cellpadding=0 cellspacing=0 width=186 bgcolor=#ffffff>'; 4 sys02='<img src="'; 5 sys03='" width='; 6 sys04='<td class=blu01>'; 7 sys05='</td>'; 8 var 9 tmpstr,str1:string; 10 j:integer; 11 vFileStream:TFileStream; 12 http:tidhttp; 13 begin 14 http:=tidhttp.Create(nil); 15 tmpstr:=http.Get('http://weather.news.sohu.com/citymake.php?city='+City); 16 j:=pos(sys01,tmpstr); 17 tmpstr:=copy(tmpstr,j,length(tmpstr)); 18 j:=pos(sys02, tmpstr); 19 tmpstr:=copy(tmpstr,j+length(sys02),length(tmpstr)); 20 j:=pos(sys03,tmpstr); 21 str1:=copy(tmpstr,0,j-1); 22 23 //下载图片 24 vFileStream:=TFileStream.Create(ExtractFilePath(application.ExeName)+'/weather.jpg',fmCreate,fmShareDenyNone); 25 try 26 //IdHTTP1.Get('http://173.16.80.26/inputdb.mdb',vFileStream); 27 HTTP.Get(str1,vFileStream); 28 //mage1.Picture.Bitmap.LoadFromStream(vfilestream); 29 finally 30 vFileStream.Free; 31 end;//try..finally 32 {sleep(1000); 33 image1.Picture.LoadFromFile( ExtractFilePath(application.ExeName)+'/weather.jpg'); 34 } 35 j:=pos(sys04,tmpstr); 36 tmpstr:=copy(tmpstr, j+length(sys04),length(tmpstr)); 37 j:=pos(sys05,tmpstr); 38 str1:=copy(tmpstr,0,j-1); 39 str1:=stringreplace(str1,' ','',[rfreplaceall]); 40 str1:=stringreplace(str1,chr(13),'',[rfreplaceall]); 41 str1:=stringreplace(str1,chr(10),'',[rfreplaceall]); 42 str1:=stringreplace(str1,'<br>',' ',[rfreplaceall]); 43 http.Free; 44 result:=str1; 45 end; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论