delphi批量下载阿里巴巴1688产品图片

1、我们卸软件首先得有个思维(1.) 首先读取出浏览器的1688/站点的CooKies(2.)cookies值赋值给idhttp，这样我们保证cookies账号能直接登入进网页，顺利得到图片列表(3.)根据列表for 循环下载图片，并且另存为本地图片1.预先下载好libeay32.DLL,SSLEAY32.DLL，https站点必须要这两个关键dll，验证ssl；首先我们找一条1688中文站的链接自己去找链接

2、畛粳棠奈获取1688 cookies，代码如下function CanGetIECookie(const URL: string; var Cookie: string): boolean; var lpvBuffer: array[0..1000] of byte; lpdwBufferLength: cardinal; begin lpdwBufferLength := sizeof(lpvBuffer); result := InternetGetCookie(PChar(URL), nil, @lpvBuffer, lpdwBufferLength); if result then Cookie := pchar(@lpvBuffer); end;

3、赋值给idhttp idhtp1.ProtocolVer衡痕贤伎sion := pv1_1; idhtp1.HandleRedirects := True;; idslhndlrsckt1.SSLOptions.Method:=sslvTLSv1; idslhndlrsckt1.SSLOptions.Mode := sslmClient; IF CanGetIECookie('https://www.1688.com/',WEBCooKies)=False then begin ShowMessage('未搜索到您的1688账号信息，请用浏览器登陆一遍'); Exit; end; idhtp1.Request.CustomHeaders.Text := 'Cookie: ' +'_uab_collina=150297352656162234700145；_browser_update_=1;'+WEBCooKies;