如何使用bcb制作在线升级程序

[netAntNT]

请给出一个正确的思路。。
最好提供示例源代码

[smartrosesun]

我做过,我是用TNWFTP控件做的,就是从FTP上先下载一个INI文件,和本地的INI文件比较里面的版本号,如版本号高,则按照刚下载的INI文件下载要升级的文件,我这有源码,想要留个邮箱吧

[youngzi]

我也想要，[e-mail],我会开帖相谢

[wolf_z]

[e-mail]

[Rex_love_Burger]

俺也想要
[e-mail]

[fancyfay]

大哥,我也要[e-mail]

[chinabh]

me too ,[e-mail]

[a2290757]

我也想要，先谢谢高手了 [e-mail]

[seeyou1997]

[e-mail]
高手多谢了！！

[smartrosesun]

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include <inifiles.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int CurrVsion,DownVsion,dFilesCnt;


if(ConnectFtp("192.168.1.30","public"))
{
NMFTP1->Nlist() ;

CurrVsion = curentversn();
HostIp->Text = IntToStr(CurrVsion);
DownVsion = NewVersn() ;
Edit2->Text = IntToStr(DownVsion);
if(DownVsion>CurrVsion)
{

//改文件名字
/* TFileStream *OldFile = new TFileStream(GetCurrentDir() + "\\downupdt.ini", fmOpenRead);
TFileStream *NewFile = new TFileStream(GetCurrentDir() + "\\UpdateTab.ini", fmCreate);
NewFile->CopyFrom(OldFile, OldFile->Size);
NewFile->Free();
OldFile->Free(); */
/* FreeAndNil(NewFile);
FreeAndNil(OldFile); */
DeleteFile(GetCurrentDir() + "\\UpdateTab.ini");
RenameFile(GetCurrentDir() + "\\downupdt.ini",GetCurrentDir() + "\\UpdateTab.ini");



AnsiString updatelist(GetCurrentDir() + "\\UpdateTab.ini");
TIniFile *ini;
ini = new TIniFile(updatelist);


dFilesCnt = NewFilesCnt();
UserId->Text = IntToStr(dFilesCnt);
for(int i=0;i<dFilesCnt;i++)
{
AnsiString tmp=ini->ReadString( "filelist", IntToStr(i+1),"" );
Edit4->Text =tmp;

int j;
AnsiString dir;
bool t=false;

for(j=1;j<tmp.Length();)
{
dir+=tmp[j];
if(tmp[++j]=='\\')
{ t=true;
break;
}
}
if (!DirectoryExists(GetCurrentDir() + "\\"+dir)&&t)
{
if (!CreateDir(GetCurrentDir() + "\\"+dir))
throw Exception("Cannot create " + GetCurrentDir() + "\\f");
}




NMFTP1->Download("fsbupdate\\"+tmp,GetCurrentDir()+"\\"+tmp);
}

}
}





}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{

int versionum=0;
AnsiString updatelist(GetCurrentDir() + "\\UpdateTab.ini");

TIniFile *ini;
ini = new TIniFile(updatelist);
versionum = ini->ReadInteger("version","number",0);

}
//---------------------------------------------------------------------------


bool TForm1::ConnectFtp(AnsiString FtpIP,AnsiString UserID)
{
//TODO: Add your source code here
NMFTP1->Host = FtpIP;
NMFTP1->UserID =UserID;
NMFTP1->Connect();
if( NMFTP1->Connected )
return true;
else
return false;


}

int TForm1::curentversn() //得到当前的版本号
{
//TODO: Add your source code here
int versionum=0;
AnsiString updatelist(GetCurrentDir() + "\\UpdateTab.ini");

TIniFile *ini;
ini = new TIniFile(updatelist);
versionum = ini->ReadInteger("version","number",0);
ini->Free() ;

return versionum;
}

int TForm1::NewVersn()
{
//TODO: Add your source code here
AnsiString downupdt(GetCurrentDir() + "\\downupdt.ini");
NMFTP1->Download("fsbupdate\\UpdateTab.ini",downupdt);

int downupdtvernum=0;
TIniFile *ini;

ini = new TIniFile(downupdt);
downupdtvernum = ini->ReadInteger("version","number",0);

return downupdtvernum;

}

int TForm1::NewFilesCnt() //得到要下载的更新文件个数
{
//TODO: Add your source code here

int FilesCnt=0;
AnsiString downupdt(GetCurrentDir()+"\\UpdateTab.ini");
Edit4->Text = downupdt;
TIniFile *ini;
ini = new TIniFile(downupdt);

FilesCnt = ini->ReadInteger("filescount","number",0);

return FilesCnt;
}




int TForm1::CreatDirN(AnsiString tmp)
{
//TODO: Add your source code here
int i;
AnsiString dir;
bool t=false;

for(i=1;i<tmp.Length()+1;)
{
dir+=tmp[i];
if(tmp[++i]=='/')
{ t=true;
break;
}
}
if (!DirectoryExists(GetCurrentDir() + "\\"+dir)&&t)
{
if (!CreateDir(GetCurrentDir() + "\\"+dir))
throw Exception("Cannot create " + GetCurrentDir() + "\\f");
}
}

[linuxghs]

我是这样实现的：
用的http里的一个控件，让他去读取网上的一个ini文件，这个文件里包括了你要升级的文件以及创建日期，然后和你本地的这些文件相比较，如果时间比本地的新我们就提示有新版本，然后提供下载。
具体的现在我没有bcb环境，回到家里给你写。
[e-mail]联系我

[netAntNT]

特别感谢smartrosesun(seast)给出了实际例子
尽管我知道实现的基本原理,但我同样也要感谢 linuxghs() 就他一句:回到家里给你写. 我就给分他