急!急!急!Delphi 中如何实现客户端程序自动升级???

在你的客户端做一个INI文件，里面记录你放到网上的配置文件的地址，然后每次都去取这个配置文件，里面记录了最新的版本号和下载连接，并与本地的版本号比较，如果比较新，就从上述地址下载新的版本。delphi自动更新2008年09月03日 星期三 23:05仅仅是一个DEMO，正打算添加功能呢。仅仅是一个自动更新的一个思维而已。function downloadfile(url: stringf: string): booleanbeginURLDownloadToFile(nil, pchar(url), pchar(f), 0, nil) if fileexists(f) then result := trueelse result := falseendprocedure dosomething(s: string)begin//dosomestringendvarstrmem: tmemorystreaminif: tinifilefname, str: stringi: integerconsthost = ' http://192.168.1.102/'beginfname := extractfilepath(application.ExeName) + 'config.ini'strmem := tmemorystream.Createidhttp1.Get(host + 'aa.ini', strmem)strmem.Seek(0, sofrombeginning)memo1.Lines.LoadFromStream(strmem)strmem.SaveToFile(fname)strmem.Freeinif := tinifile.Create(fname)for i := 0 to form1.ComponentCount - 1 doif form1.Components[i] is tedit thenbegin str := inif.ReadString('form', (form1.Components[i] as tedit).Name, '') if (extractfileext(str) = '.exe') or (extractfileext(str) = '.dll') thenif downloadfile(host + str, str) then dosomething(str) (form1.Components[i] as tedit).Text := str endinif.Freeend//本地东西。----varini: tinifilefname, str: stringi: integerbeginfname := extractfilepath(application.ExeName) + 'aa.ini'ini := tinifile.Create(fname)for i := 0 to form1.ComponentCount - 1 dobeginif form1.Components[i] is tedit thenbegin str := (form1.Components[i] as tedit).Text ini.WriteString('form', form1.Components[i].Name, str)endendend更新服务器上的东西。

远程连接，其实也就是与SQL 数据库的连接，知道对方的IP，开设的端口就可以连了，跟连本地的方法差不多。如果你用这个TADOConnection连，

ConnectionString:=Format('Provider=SQLOLEDB.1Password=%sPersist Security Info=TrueUser ID=%sInitial Catalog=%sData Source=%s',[登陆密码,用户名,数据库名,服务器地址])一般用户名是sa,服务器名本地就是一点(.)，远程的就IP，+端口，例如，192.168.1.25,1433，

升级只是对数据库的升级，比如修改表，视图，存储过程，只要让服务器运行这些相关的SQL语句就行了，自动升级这个前面的仁兄已经讲了，就不多讲了。

1、首先点击打开delphi10.0系统程序。

2、其次点击右下角的进行设置按钮。

3、然后找到设置中的进行更新软件，点击就会开始delphi10.0软件的更新工作。

4、最后点击进行安装即可完成升级。

---