Delphi 从网上下载HTML、图片文件

最新推荐文章于 2023-12-03 12:41:32 发布

JmLei

最新推荐文章于 2023-12-03 12:41:32 发布

阅读量1.9k

点赞数

分类专栏： Delphi 文章标签： delphi html download database integer string

本文链接：https://blog.csdn.net/jmlei/article/details/3913347

版权

这个博客介绍了如何使用Delphi程序从网上下载HTML页面，获取基金价格信息，并将这些信息更新到数据库中。同时，程序还展示了如何下载基金的历史净值图和当日预测图，保存为本地GIF文件。

摘要由CSDN通过智能技术生成

procedure TFm_FundUpdPri.Btn_UpdClick(Sender: TObject); var FundUrl, myHtml, myFNO, myFNM, myStr1, myStr2, myStr3, myPRI, myPRD, sqlstr, FundPic: string; myPOS: integer; mystrm: TMemoryStream; myD1, myD2: boolean; begin inherited; if (not CBox_1.Checked) and (not CBox_2.Checked) and (not CBox_3.Checked) then exit; Tbutton(sender).Enabled := false; CBox_1.Enabled := false; CBox_2.Enabled := false; CBox_3.Enabled := false; RBtn_1.Enabled := false; RBtn_2.Enabled := false; try // memo1.Lines.Clear; myD1 := false; F_SEQ := 0; myLog('Download the Fund Price. '); if CBox_1.Checked then begin myD1 := true; FundUrl := 'http://finance.sina.com.cn/fund/fund_ranks/open/netvalue_ranks0_0.html'; try myHtml := IdHTTP1.Get(FundUrl); except myD1 := false; myLog('Error: Can Not Download Data'); // exit; end; end; myLog('Open the Fund DataBase'); if RBtn_1.Checked then sqlstr := ' AND (T11_QTY>0)' else sqlstr := ''; Dm.ADODS_b.Close; Dm.ADODS_b.CommandText := 'Select T11_FNO,T11_FNM,T11_QTY from T11_FUND where ' + PWR_SQL + sqlstr; Dm.ADODS_b.Open; Dm.ADOD