VPF::Перевод кода из Delphi на C++ - Форум программистов

mego4el

Дата 29.12.2012, 20:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 19.9.2010

Репутация: нет
Всего: нет

Доброго вечера. Пожалуйста, помогите портировать код с Delphi на C++. Его не очень много, но есть некоторые компоненты, которых не могу найти и сам код в некоторых моментах не понятен(.

Пишу в Embarcadero RAD 2010 C++. Эта программа представляет из себя небольшой авто-апдейтер файлов с сервера. Никак не могу найти нормальной статьи по созданию апдейтера на C++, по коду подходит больше этот, но с делфи плохо дружу =(

Код


procedure GetIntetFile(URL, SavetoFile: string);
var
 TM: TMemoryStream;
begin
 try
  TM:= TMemoryStream.Create;
  Form1.idhttp1.Get(URL,TM);
  finally
  TM.SavetoFile(SavetoFile);
  end;
  TM.Free;
end;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
GetIntetFile('http://ваш_сайт/wh.dll','c:\wh.dll');
end;
 
form1.Memo1.Lines.Add('Файл загружается');
 form1.ProgressBar1.Position:=form1.ProgressBar1.Position+25;
  sleep(300);
  form1.ProgressBar1.Position:=form1.ProgressBar1.Position+25;
form1.ProgressBar1.Position:=form1.ProgressBar1.Position+50;
  form1.ProgressBar1.Position:=0;
form1.Memo1.Lines.Add('Загрузка завершена, ищите файл в c:\wh.dll');
 
procedure GetIntetFile(URL, SavetoFile: string);
var
 TM: TMemoryStream;
begin
 try
  TM:= TMemoryStream.Create;
  Form1.idhttp1.Get(URL,TM);
  form1.Memo1.Lines.Add('Файл загружается');
  form1.ProgressBar1.Position:=form1.ProgressBar1.Position+25;
  sleep(300);
  form1.ProgressBar1.Position:=form1.ProgressBar1.Position+25;
  finally
  TM.SavetoFile(SavetoFile);
  form1.ProgressBar1.Position:=form1.ProgressBar1.Position+50;
  form1.ProgressBar1.Position:=0;
    form1.Memo1.Lines.Add('Загрузка завершена, ищите файл в c:\wh.dll');
  end;
  TM.Free;
end;
 
var
version:string;
begin
version:='1.0';//наша версия
memo1.Lines.Add('Ваша версия updater = '+version);
GetIntetFile2('http://ваш_сайт/versionupdater.txt','c:\windows\upd.txt');
memo2.Lines.LoadFromFile('c:\windows\upd.txt');
if memo2.Text<>version then    //Если версия другая то
begin
memo1.Lines.Add('обнаружена новая версия updater  = '+memo2.Text);
memo1.Lines.Add('Для закачки нажмите на кнопку обновить updater');
end   //Если версия такая же
else memo1.Lines.Add('обновлений не обнаружено');
end;
 
procedure GetIntetFile2(URL, SavetoFile: string);
var
 TM: TMemoryStream;
begin
 try
  TM:= TMemoryStream.Create;
  Form1.idhttp1.Get(URL,TM);
  finally
  TM.SavetoFile(SavetoFile);
form1.Memo1.Lines.Add('Успешно');
  end;
  TM.Free;
end;
 
var
version:string;
begin
version:='1.0';//наша версия
memo1.Lines.Add('Ваша версия updater = '+version);
GetIntetFile2('http://ваш_сайт/versionupdater.txt','c:\windows\upd.txt');
memo2.Lines.LoadFromFile('c:\windows\upd.txt');
if memo2.Text<>version then    //Если версия другая то
begin
memo1.Lines.Add('обнаружена новая версия updater  = '+memo2.Text);
memo1.Lines.Add('Закачка производится в c:\updaternew.exe');
GetIntetFile2('http://ваш_сайт/updater.exe','c:\updaternew.exe');
end   //Если версия такая же
else memo1.Lines.Add('обновлений не обнаружено');
end;

Dem_max

Дата 30.12.2012, 06:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1780
Регистрация: 12.4.2007

Репутация: 4
Всего: 39

Заюзай этот класс
azHTTP

Код


azHTTP http;
std::string sUrl = "http://ваш_сайт/versionupdater.txt";
http << sUrl.c_str();
char *hstr;
if(http.Length() > 0)
{
     hstr = http.c_str(); // результат
}

Остальной код работы с интерфейсом переведешь сам

Это сообщение отредактировал(а) Dem_max - 30.12.2012, 06:32

--------------------

Американские программисты долго не могли понять, почему русские при зависании Windоws всё время повторяют "Твой зайка написал" ("Yоur bunnу wrоte")

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C/C++: Общие вопросы \| Следующая тема »