Опять не пойму... сделал вот так:
| Код |
//---------------------------------------------------------------------------
#include <vcl.h>
#include <iostream.h>
#include "md5.h"
#include "md5wrapper.h"
#pragma hdrstop
#pragma comment(lib,"Wininet.lib");
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "IdBaseComponent"
#pragma link "IdComponent"
#pragma link "IdTCPClient"
#pragma link "IdTCPConnection"
#pragma link "IdAntiFreeze"
#pragma link "IdAntiFreezeBase"
#pragma resource "*.dfm"
TForm2 *Form2;
md5wrapper MD5;
/*TStringList *files=new TStringList;
TStringList *hash=new TStringList;
TStringList *urls=new TStringList;
TStringList *cfiles=new TStringList;
TStringList *chash=new TStringList; */
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void TForm2::GetUpdateList()
{
try {
TC->Connect();
if (TC->Connected()) {
int count=0;
count=TC->IOHandler->ReadInt64();
TC->IOHandler->ReadStrings(files,count);
ListBox1->Items=files;
count=TC->IOHandler->ReadInt64();
TC->IOHandler->ReadStrings(hash,count);
ListBox2->Items=hash;
count=TC->IOHandler->ReadInt64();
TC->IOHandler->ReadStrings(urls,count);
ListBox3->Items=urls;
count=TC->IOHandler->ReadInt64();
TC->IOHandler->ReadStrings(size,count);
ListBox4->Items=size;
}
} catch (...) {
Application->MessageBoxA(L"Невозможно соеденится с сервером обновлений!",L"Auto Updater",MB_OK);
Form2->Close();
terminate=true;
Application->ProcessMessages();
}
}
//---------------------------------------------------------------------------
void TForm2::Search(UnicodeString dir)
{
bool updated=false;
ProgressBar1->Position=0;
ProgressBar1->Max=ListBox1->Count;
for (int i=0; i < ListBox1->Count; i++) {
Application->ProcessMessages();
UnicodeString Name=dir;
Name+=ListBox1->Items->Strings[i];
Label2->Caption=L"Текущий файл: "+IntToStr(i)+L" \\ Всего файлов: "+IntToStr(ListBox1->Count);
Label2->Left=Form2->Width/2 - Label2->Width/2;
Label3->Caption=Name;
Label3->Left=Form2->Width/2 - Label3->Width/2;
if (FileExists(Name)) {
string Md5=MD5.getHashFromFile(Name.t_str());
UnicodeString str=Md5.c_str();
if (str!=ListBox2->Items->Strings[i]) {
DeleteFile(Name);
if (!Download(ListBox3->Items->Strings[i],Name,i))
{
UnicodeString tmp=L"Невозможно скачать файл " + ListBox3->Items->Strings[i];
Application->MessageBoxA(tmp.w_str(),L"Auto Updater",MB_OK);
updated=false;
}
else
updated=true;
}
}
else
{
Download(ListBox3->Items->Strings[i],Name,i);
updated=true;
}
ProgressBar1->Position++;
Application->ProcessMessages();
}
ProgressBar1->Visible=false;
Label2->Visible=false;
Label3->Visible=false;
if (updated) {
Application->MessageBoxA(L"Обновления успешно установлены!",L"Auto Updater",MB_OK);
}
else
Application->MessageBoxA(L"Ваш игровой клиент не нуждается в обновлениях.",L"Auto Updater",MB_OK);
Form2->Close();
//Form2->~TForm2();
//URLDownloadToFile
}
//---------------------------------------------------------------------------
bool TForm2::Download(AnsiString url,AnsiString dest,int i)
{
ProgressBar2->Position=0;
ProgressBar2->Max=StrToInt(ListBox4->Items->Strings[i]);
char buf[256];
AnsiString str=dest,agent=0;
int np;
bool err;
err=false;
HINTERNET session,file; //PRE_CONFIG_INTERNET_ACCESS INTERNET_OPEN_TYPE_PRECONFIG
session = InternetOpen(agent.c_str(), PRE_CONFIG_INTERNET_ACCESS, 0, 0, 0);
file = InternetOpenUrl(session,url.c_str(), 0, 0, 0, 0);
DWORD Code = 0,
Size = sizeof( Code );
if (file==NULL)
err=true;
else
if (HttpQueryInfo( file, HTTP_QUERY_STATUS_CODE | HTTP_QUERY_FLAG_NUMBER, ( LPVOID ) &Code, ( LPDWORD ) &Size, NULL ) )
if (Code!=200)
err=true;
else
{
unsigned long len=0,offs=0;
AnsiString buff="";
if (file!=NULL)
{
DWORD Written;
HANDLE hDestFile = CreateFile(str.c_str(), GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
if (hDestFile == INVALID_HANDLE_VALUE)
err=true;
else
do
{
Application->ProcessMessages();
InternetReadFile(file, buf, sizeof(buf), &len);
if (len>=0)
{
offs += len;
buff=buf;
WriteFile(hDestFile, buf, len, &Written, NULL);
ProgressBar2->Position+=len;
Application->ProcessMessages();
}
else
{
int error = GetLastError();
err=true;
InternetCloseHandle(file);
InternetCloseHandle(session);
Application->ProcessMessages();
::Sleep(1000);
Application->ProcessMessages();
session = InternetOpen("Our Agent", PRE_CONFIG_INTERNET_ACCESS, 0, 0, 0);
file = InternetOpenUrl(session, url.c_str(), 0, 0, 0, 0);
InternetSetFilePointer(file, offs, 0, FILE_BEGIN, 0);
}
} while (len);
CloseHandle(hDestFile);
}
InternetCloseHandle(file);
InternetCloseHandle(session);
if (!err)
return true;
else
return false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormDestroy(TObject *Sender)
{
delete files;
delete hash;
delete urls;
delete size;
delete cfiles;
delete chash;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
Action=caFree;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
files=new TStringList;
hash=new TStringList;
urls=new TStringList;
size=new TStringList;
cfiles=new TStringList;
chash=new TStringList;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
Timer1->Enabled=false;
GetUpdateList();
if (terminate) {
return;
}
files->Clear();
hash->Clear();
urls->Clear();
size->Clear();
cfiles->Clear();
chash->Clear();
ProgressBar1->Visible=true;
Label2->Visible=true;
Label3->Visible=true;
Label1->Caption=L"Начата проверка игрового клиента. Пожалуйста дождитесь окончания.";
Application->ProcessMessages();
Search(ExtractFilePath(Application->ExeName));
}
//---------------------------------------------------------------------------
|
После того как происходить Форм Клоус, форм дестрой код в таймере дальше продолжает исполнятся... |
)
). То есть это где то под 1-2 мб оперативки. На скорость я не думаю что будет сильно влиять (спешить то некуда). 
по большому счету там была ссылка из хелпа камрад:
уже всё сделал благодарю! =)