小弟做了一个传参的页面,可以通过该页面向服务器数据库中更新和读取数据(比如说更新:www.xxx.com/re.aspx?action=update&use=1;读取:www.xxx.com/re.aspx?action=show&use=1);在IE中直接执行两个连接返回的内容分别为:1(代表更新成功)和AAA(随便的一条数据),但是现在用这个函数来获取页面结果出现问题了,问题为:先执行更新连接再执行读取连接,结果返回的数据为:AAAwww.xxx.com/re.aspx?action=update&use=1;小弟不明白了,为啥返回的数据带上了先执行的连接串
函数如下:
function TFrm_OpLogin.f_GetWebPag(Const p_Web: String):string;
var
Session, HttpFile: HINTERNET;
szSizeBuffer: Pointer;
dwLengthSizeBuffer: DWord;
dwReserved: DWord;
dwFileSize: DWord;
dwBytesRead: DWord;
Contents: PChar;
begin
Session := InternetOpen('', 0, nil, nil, 0);
HttpFile := InternetOpenUrl(Session, PChar(p_Web), nil, 0, 0, 0);
dwLengthSizeBuffer := 2048;
HttpQueryInfo(HttpFile, 5, szSizeBuffer, dwLengthSizeBuffer, dwReserved);
GetMem(Contents, dwFileSize);
InternetReadFile(HttpFile, Contents, dwFileSize, dwBytesRead);
InternetCloseHandle(HttpFile);
InternetCloseHandle(Session);
Result := StrPas(Contents);
FreeMem(Contents);
end;
函数如下:
function TFrm_OpLogin.f_GetWebPag(Const p_Web: String):string;
var
Session, HttpFile: HINTERNET;
szSizeBuffer: Pointer;
dwLengthSizeBuffer: DWord;
dwReserved: DWord;
dwFileSize: DWord;
dwBytesRead: DWord;
Contents: PChar;
begin
Session := InternetOpen('', 0, nil, nil, 0);
HttpFile := InternetOpenUrl(Session, PChar(p_Web), nil, 0, 0, 0);
dwLengthSizeBuffer := 2048;
HttpQueryInfo(HttpFile, 5, szSizeBuffer, dwLengthSizeBuffer, dwReserved);
GetMem(Contents, dwFileSize);
InternetReadFile(HttpFile, Contents, dwFileSize, dwBytesRead);
InternetCloseHandle(HttpFile);
InternetCloseHandle(Session);
Result := StrPas(Contents);
FreeMem(Contents);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货