本文整理自网络,侵删。
ver.txt内容:1.0
GetNewVersion(http://www.delphitop.com/ver.txt);
function GetNewVersion(url: string): string;var lHTTP: TIdHTTP;begin
Result := ''; lHTTP := TIdHTTP.create; try try Result := lHTTP.Get(url); Result := Result; except // not responding end; finally lHTTP.Free; end;
end;
相关阅读 >>
Delphi 开发64位应用程序使用windows api的注意事项
Delphi qr /条形码扫描仪应用示例代码(使用zxing,tframestand)
Delphi xe6 android 实现base64字符串的解析
更多相关阅读请进入《Delphi》频道 >>