function WinInetDownload(Url:PChar; fs:TStream):Boolean;
var
hSession : HINTERNET;
hOpenUrl : HINTERNET;
Temp : array [0..MAXBLOCKSIZE-1] of Byte;
dwRead : DWORD;
dwResult : DWORD;
agent:string;
begin
Result := False;
agent:='Mozilla/5.0 (Linux; U; Android 4.2.2; zh-cn; Coolpad 8122 Build/JDQ39) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safari/534.30';
hSession := InternetOpen(PChar(agent), //指定调用 WinINet 函数的应用程序或入口。该入口用作HTTP协议中用户代理项。
INTERNET_OPEN_TYPE_PRECONFIG,//访问要求类型,该参数可为下列值之一:
{ INTERNET_OPEN_TYPE_DIRECT 解析所有本地主机;
INTERNET_OPEN_TYPE_PRECONFIG 返回注册表中代理或直接的配置;
INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY 返回注册表中代理或直接的配置,并防止对Microsoft Jscript 或 INS文件的使用;
INTERNET_OPEN_TYPE_PROXY 为代理传递请求,除非代理提供了旁路列表且解析的名字可以绕过代理;此时,函数使用INTERNET_OPEN_TYPE_DIRECT。}
nil, //指定了当lAccessType类型为INTERNET_OPEN_TYPE_PROXY时,代理服务器的名字。
nil, //指向一个字符串,它指定一个可选的主机名列表或IP地址,列表可包括未知元素。
0);
{该参数可为下列值的任意组合:
INTERNET_FLAG_ASYNC 仅能用于作用在该函数返回的句柄的子句柄上的异步请求。
INTERNET_FLAG_FROM_CACHE 不做网络请求。所有的实体都由缓存返回。如果请求条目不在缓存中,一个适当的错误将返回。
INTERNET_FLAG_OFFLINE 与 INTERNET_FLAG_FROM_CACHE 一样。}
//成功:返回一个有效的句柄,该句柄将由应用程序传递给接下来的WinINet函数。
//失败:返回NULL。
if hSession = nil then Exit;
//通过一个完整的FTP,Gopher或HTTP网址打开一个资源。
hOpenUrl := InternetOpenUrl(hSession, //当前的 Internet 会话句柄。句柄必须由前期的 InternetOpen 调用返回。
Url, //一个空字符结束的字符串变量的指针,指定读取的网址。只有以ftp:, gopher:, http:, 或者 https: 开头的网址被支持。
nil, //一个空字符结束的字符串变量的指针,指定发送到HTTP服务器的头信息。欲了解更多信息,请参阅HttpSendRequest函数里lpszHeaders参数的说明。
0, //额外的头的大小,以TCHAR为单位。如果这个参数是-1L并且lpszHeaders不是NULL,lpszHeaders被假设为零终止( ASCIIZ ),而长度被自动计算。
0,
//INTERNET_FLAG_DONT_CACHE, //不添加返回实体到缓存
{INTERNET_FLAG_EXISTING_CONNECT
如果使用相同的必须属性创建会话,会尝试利用现有的InternetConnect对象。这只对FTP操作非常有用,因为FTP是唯一在同一会话中执行多种操作的协议。WinINet API 为每个由InternetOpen产生的HINTERNET句柄缓冲一个单独链接句柄。InternetOpenUrl使用此标志的HTTP和FTP连接。
INTERNET_FLAG_HYPERLINK
当决定何时从网络重载时,如果服务器没有返回 Expires time 和 LastModified,那么强制重载。
INTERNET_FLAG_IGNORE_CERT_CN_INVALID
停用检查从服务器对必须的主机名称返回的SSL/PCT-based证书。 WinINet函数使用简单的比较匹配主机名称和通配符的规则检查证书。
INTERNET_FLAG_IGNORE_CERT_DATE_INVALID
停用检查的SSL/PCT-based的证书的适当的有效日期。
INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTP
禁用检测这中特殊的重定向。当使用此标志, WinINet 透明允许从HTTPS到HTTP URL的重定向。
INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTPS
禁用检测这中特殊的重定向。当使用此标志, WinINet 透明的允许的HTTP到HTTPS URL的重定向。
INTERNET_FLAG_KEEP_CONNECTION
如果可能的话,为连接使用保活语义。这个标志要求微软网络( MSN ),NTLM和其他类型的身份验证。
INTERNET_FLAG_NEED_FILE
如果要创建的文件不能被缓存,创建临时文件。
INTERNET_FLAG_NO_AUTH
不试图自动验证。
INTERNET_FLAG_NO_AUTO_REDIRECT
不自动处理HttpSendRequest中的重定向。
INTERNET_FLAG_NO_CACHE_WRITE
不添加返回实体到缓存。
INTERNET_FLAG_NO_COOKIES
不会自动添加的Cookie头到请求,并且不自动添加返回的cookie到cookie数据库。
INTERNET_FLAG_NO_UI
禁用Cookie的对话框。
INTERNET_FLAG_PASSIVE
使用被动FTP语义。InternetOpenUrl为FTP的文件和目录使用此标志。
INTERNET_FLAG_PRAGMA_NOCACHE
即使代理中存在缓存副本,也强制要求由源服务器返回。
INTERNET_FLAG_RAW_DATA
检索的Gopher目录信息时,传回的数据作为GOPHER_FIND_DATA结构,如果检索的FTP目录信息时,作为一个WIN32_FIND_DATA结构。如果此标志没有指定,或者请求通过CERN代理创建, InternetOpenUrl返回的HTML版本的目录。
INTERNET_FLAG_RELOAD
从原服务器强制下载所要求的文件,对象,或目录列表,而不是从缓存下载。
INTERNET_FLAG_RESYNCHRONIZE
重新加载的HTTP资源,如果资源在最后一次下载后已被修改。所有FTP和Gopher资源将被重载。
INTERNET_FLAG_SECURE
使用安全传输语义。这次传输使用安全套字节层/专用通信技术(的SSL / PCT ),这只有在HTTP请求时有意义。
}
0);
// 返回值
// 如果已成功建立到FTP,Gopher,或HTTP URL的连接,返回一个有效的句柄,如果连接失败返回NULL。要检索特定的错误讯息,请GetLastError 。要确定为什么对服务器的访问被拒绝,请调用InternetGetLastResponseInfo。
if hOpenUrl = nil then Exit;
try
fs.Seek(0,soBeginning);
dwRead := 1;
while (dwRead > 0) do
begin
InternetReadFile(hOpenUrl,
@Temp,
MAXBLOCKSIZE,
dwRead);
fs.Write(Temp,dwRead);
end;
finally
InternetCloseHandle(hOpenUrl);
InternetCloseHandle(hSession);
end;
end;
function GetUrl(url:string):Rawbytestring;
var
URLHTML : TStringStream ;
ResultStr :string;
begin
URLHTML := TStringStream.Create('');//, TEncoding.GetEncoding(936));
WinInetDownload(PChar(Url) ,URLHTML );
Result :=PAnsiChar(URLHTML.Memory); //
URLHTML .free;
end;
{
procedure test(url:string):string;
var
ResultStr :string;
rawstr:rawByteString;
begin
rawStr := GetUrl(url);
ResultStr := UTF8Decode(rawStr); //
memo1.Lines.Text:=ResultStr;
end;
}
下面这个是字符串转换函数
function StringChange(URLStr, UTF8str, Encode: Boolean; in_str: string): string;
begin
Result := in_str;
try
if Encode then
begin
if URLStr then
begin
if UTF8str then
Result := HTTPEncode(UTF8Encode(Result))
else
Result := HTTPEncode(Result);
end
else if UTF8str then
Result := UTF8Encode(Result);
end
else
begin
if URLStr then
begin
if UTF8str then
Result := HTTPDecode(UTF8Decode(Result))
else
Result := UTF8Decode(Result);
end
else
begin
if UTF8str then
Result := UTF8Decode(Result);
end;
end;
except
Result := in_str;
end;
end;
引用 HTTPApp
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。