Foxpro/HttpGet.PRG at master · xtet2008/Foxpro · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Function HTTPGET
Parameters URLNAME
Declare Integer InternetOpen In wininet.Dll String, Integer, String, String, Integer
Declare Integer InternetOpenUrl In wininet.Dll Integer, String, String, Integer, Integer, Integer
Declare Integer InternetReadFile In wininet.Dll Integer, String @, Integer, Integer @
Declare short InternetCloseHandle In wininet.Dll Integer
SAGENT="Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022)"
HINTERNETSESSION = INTERNETOPEN(SAGENT,0,"","",0)
If HINTERNETSESSION = 0
Return ""
Endif
HURLFILE = INTERNETOPENURL(HINTERNETSESSION,URLNAME,"",0,2147483648,0)
If HURLFILE = 0
Return ""
Endif
STRFF=""
Do While .T.
SREADBUFFER = Space(1024)
LBYTESREAD = 0
m.OK = INTERNETREADFILE(HURLFILE,@SREADBUFFER,Len(SREADBUFFER),@LBYTESREAD)
If m.OK = 0 .Or. LBYTESREAD = 0
Exit
Else
STRFF=STRFF+SREADBUFFER
Endif
Enddo
= INTERNETCLOSEHANDLE(HURLFILE)
= INTERNETCLOSEHANDLE(HINTERNETSESSION)
Clear Dlls INTERNETOPEN,INTERNETOPENURL,INTERNETREADFILE,INTERNETCLOSEHANDLE
=DELCACHE(URLNAME)
Return STRFF
Endfunc
*删除网页缓存
Function DELCACHE
 Parameters LCREMOTEURL
 TFFJG=-99
 Declare Integer DeleteUrlCacheEntry In Wininet.Dll String szUrl
 TFFJG=DELETEURLCACHEENTRY(LCREMOTEURL) &&删除缓存，删除成功返回1，不存在或失败返回0
 Clear Dlls DELETEURLCACHEENTRY
 Return TFFJG
Endfunc