A
anjony
Unregistered / Unconfirmed
GUEST, unregistred user!
现在在做一个在线升级,碰到一个问题,运行在 FileStr.Add(IdHTTP1.Get(aURL));出现HTTP/1.1 404 没有找到,但是我的地址也是对的,请大哥帮忙看看,小弟不胜感激!
FileStr:=TStringList.Create;
aURL := MyURL+'NetUpdate.ini'; //http://www.wetr.cn/adt/netupdate.ini
FileStr.Add(IdHTTP1.Get(aURL));
FileStr.SaveToFile(WinPath+'NetUpdate.ini');
FileStr.Free;
NetIni:=TIniFile.Create(WinPath+'NetUpdate.ini');
with NetIni do
begin
ReadSectionValues('FilesList',DownList);
ReadSectionValues('Exe FileList',ExeList);
NetVerStr:=ReadString('Version Info','KQSys.exe','');
SQLCount :=ReadInteger('SQL','SQLCount',15);
WebStr :=ReadString('WWW','URL','');
end;
nDownFileCount:=DownList.Count;
NetVer:=StrToFloat(Copy(NetVerStr,1,3));
FileStr:=TStringList.Create;
aURL := MyURL+'NetUpdate.ini'; //http://www.wetr.cn/adt/netupdate.ini
FileStr.Add(IdHTTP1.Get(aURL));
FileStr.SaveToFile(WinPath+'NetUpdate.ini');
FileStr.Free;
NetIni:=TIniFile.Create(WinPath+'NetUpdate.ini');
with NetIni do
begin
ReadSectionValues('FilesList',DownList);
ReadSectionValues('Exe FileList',ExeList);
NetVerStr:=ReadString('Version Info','KQSys.exe','');
SQLCount :=ReadInteger('SQL','SQLCount',15);
WebStr :=ReadString('WWW','URL','');
end;
nDownFileCount:=DownList.Count;
NetVer:=StrToFloat(Copy(NetVerStr,1,3));