Скачать картинку - C++ - Ответ 17282449

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cgauges"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
  RichEdit->Text = HTTP2->Get("http://gunsleader.narod2.ru/");
  int I, PosReturn;
  for (I = 0; I < RichEdit->Lines->Count; I++)
  {
    PosReturn = RichEdit->Lines->Strings[I].Pos("download");
    if (PosReturn) //found!
      break;
  }
  Label2->Caption = MidStr(RichEdit->Lines->Strings[I], PosReturn+19, RichEdit->Lines->Strings[I].Pos("\">")-PosReturn-19);
  ThreadHTTP(0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::HTTPWork(TObject *ASender, TWorkMode AWorkMode,
      int AWorkCount)
{
  ProgressBar1->Position = AWorkCount;
  CGauge1->Progress = 100*AWorkCount/ProgressBar1->Max;
  Label1->Caption = " Прогресс загрузки, байт: " + FormatFloat("### ### ###", ProgressBar1->Position) + " / " + FormatFloat("### ### ###", ProgressBar1->Max);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::HTTPWorkBegin(TObject *ASender, TWorkMode AWorkMode,
      int AWorkCountMax)
{
  ProgressBar1->Position = 0;
  CGauge1->Progress = 0;
  Label1->Caption = " Прогресс загрузки, байт: 0 / 0";
  ProgressBar1->Max = AWorkCountMax;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::HTTPWorkEnd(TObject *ASender, TWorkMode AWorkMode)
{
  if (CGauge1->Progress >= 100)
  {
    MessageBox(FindWindow("TForm1", "Ban Poster Updater"), "Загрузка успешно завершена.\n\nЗакройте Updater для запуска бан постера.", "Сообщение", MB_OK + MB_ICONINFORMATION + MB_TASKMODAL);
  }
  else
  {
    MessageBox(FindWindow("TForm1", "Ban Poster Updater"), "Загрузка прервана.\n\nЗакройте Updater и попробуйте повторить операцию либо скачайте обновление вручную.", "Ошибка", MB_OK + MB_ICONERROR + MB_TASKMODAL);
    ProgressBar1->Position = 0;
    CGauge1->Progress = 0;
    Label1->Caption = " Прогресс загрузки, байт: 0 / 0";
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  ShellExecute(NULL, "open", "SNGHLRBanPoster.exe", NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
#include "Unit1.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
 
//   Important: Methods and properties of objects in VCL can only be
//   used in a method called using Synchronize, for example:
//
//      Synchronize(&UpdateCaption);
//
//   where UpdateCaption could look like:
//
//      void __fastcall ThreadHTTP::UpdateCaption()
//      {
//        Form1->Caption = "Updated in a thread";
//      }
//---------------------------------------------------------------------------
__fastcall ThreadHTTP::ThreadHTTP(bool CreateSuspended)
    : TThread(CreateSuspended)
{
}
//---------------------------------------------------------------------------
void __fastcall ThreadHTTP::Execute()
{
    //---- Place thread code here ----
  char szPath[MAX_PATH];
  GetModuleFileName(NULL, szPath, MAX_PATH);
  SetCurrentDir(ExtractFilePath(szPath));
  TFileStream* fs = new TFileStream("SNGHLRBanPoster.exe", FileCreate(""));
  Form1->HTTP->Get(Form1->Label2->Caption, fs);
  delete fs;
}
//---------------------------------------------------------------------------
void __fastcall ThreadHTTP::UpdateCaption()
{
//  no need to fill
}
//---------------------------------------------------------------------------