Интересное в сети
Форум happy-hack.ru
Мы Вконтакте
Посетители

Сейчас на сайте: 16
Пользователей: 0
Гостей: 15

Пользователи онлайн: 


- отсутствуют

Гости (20 последних): 



Роботы: 

Статистика




Чат

Чтобы оставлять сообщения - зарегистрируйтесь
  • Kvakowski
    23 сен 2021, 01:47
    *Gogol, теряйся. Сайт легенда, сотворенная гением
    • Gogol
      22 сен 2021, 21:13
      сайт превратился в днище
      • Gogol
        22 сен 2021, 21:07
        привет, есть бруты акк WOT
        • admin
          20 сен 2021, 10:01
          *lencik123456789, привет.
          • lencik123456789
            19 сен 2021, 20:42
            всем привет мужики
            • lencik123456789
              19 сен 2021, 20:42
              почти 10 лет меня тут не было
              • admin
                7 сен 2021, 20:06
                *Redstar, нечего жалеть. Сайту уже 10 лет и страна другая и законы. Я не могу выкладывать посты которые выкладывал раньше. Спасибо Путину и закону Яровой.
                • Redstar
                  11 авг 2021, 15:57
                  Дэ, жалко конечно, что форум забросили
                  • YadrenBaton
                    11 авг 2021, 12:36
                    ебаюю колотить меня тут не было около 4-5 ти лет Вайс как делишки? Где этот ненормальный експлоит Хоть где то что то не изменилось, только одно что народу публики не стало.
                    • ArtComa
                      19 июл 2021, 22:52
                      Мужики, помощь нужна забыл секретный код от block.io есть варианты как-то его восстановить?
                      • ArtComa
                        19 июл 2021, 22:51
                        Есть живые?
                        • cranky
                          17 июн 2021, 19:17
                          я так понял, что людей не много...
                          • cranky
                            17 июн 2021, 19:16
                            та же фишка, всем привет))
                            • Marko2la
                              11 июн 2021, 15:01
                              *Wolfgang74651, только что зарегался
                              • Wolfgang74651
                                1 июн 2021, 02:32
                                Просто я вижу что сайт по постам мертвый
                                • Wolfgang74651
                                  1 июн 2021, 02:28
                                  Увидел живой чат и удивился, на сайт не заглядывал где года три, как раньше тут писал семья и т.д. вот и я пропал на три года. Ну что сайт оживет?
                                  • Wolfgang74651
                                    1 июн 2021, 02:27
                                    Сайт живой еще? всем хелл)
                                    • admin
                                      27 мая 2021, 23:01
                                      Stock нравится это
                                      • Stock
                                        25 мая 2021, 23:39
                                        а многие форумы и сайты по таким тематикам уже "все" , где и куда делись их обитатели хз уже , может семья может еще что то
                                        • Stock
                                          25 мая 2021, 23:37
                                          Сколько лет ,сколько зим. Решил позаходит на сайты на которых давно сидел , а помнится ради рофла я тут лайкал "недоверительные" коменты,и это учетка тоже не моя была , когда то давно спиздил когда слили базу
                                          • byShiz0
                                            17 мая 2021, 19:07
                                            Ура
                                            • Eclipst
                                              15 мая 2021, 01:00
                                              Ураа! Сайт ожил)))))
                                              • admin
                                                10 мая 2021, 05:12
                                                Цитата: stasgorr
                                                Раньше было как то лучше)

                                                • stasgorr
                                                  9 мая 2021, 21:12
                                                  Раньше было как то лучше)
                                                  • stasgorr
                                                    9 мая 2021, 21:12
                                                    Пиздец что с сайтом сделали
                                                    • admin
                                                      30 апр 2021, 19:50
                                                      *RUSLAN19860808, кароче поступаешь учиться, становишся студентом, PROFIT!! У тебя проездной. Не благодари.
                                                      • RUSLAN19860808
                                                        28 апр 2021, 09:23
                                                        Привет. Подскажите как проездной сделать в МСК на метро, чтоб был как студенческий
                                                        • Pavlentii
                                                          27 апр 2021, 18:08
                                                          хз...думал фабрика
                                                          • admin
                                                            27 апр 2021, 16:28
                                                            *Pavlentii, у меня что, завод что ли?
                                                            • Pavlentii
                                                              27 апр 2021, 15:09
                                                              Ясно, а рабочие нужны?
                                                              Опрос на сайте
                                                              Как Вы нашли нас?

                                                              Лаунчер обновлений для своей программы(Updater)

                                                              Автор: Mavgic | Дата: 25-04-2013, 11:50 | Комментариев: 0 | Просмотров: 9 704
                                                              Лаунчер обновлений для своей программы(Updater)


                                                              Всем привет!Сегодня я научу делать вас UPADTER на Delphi .


                                                              Итак :
                                                              1)Создаем новый проект.(File->New->Application).
                                                              2)Кидаем на форму progressbar из вкладки win32
                                                              3)Memo из вкладки standart.
                                                              4)Кнопку из вкладки standart.
                                                              Должно получиться примерно так:

                                                              Лаунчер обновлений для своей программы(Updater)


                                                              5)Теперь начнем кодить.
                                                              Для загрузки файла из интернета есть замечательная процедурка=)
                                                              Вот ее код:

                                                              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}


                                                              6)Теперь два раза нажмем на кнопку и у нас появится процедура нажатия на button.
                                                              Давайте сделаем так , чтобы по нажатию на кнопку наш файл закачался в c:\ под именем Wh.dll(можно любой файл - для exe - 1.exe и тд).
                                                              Должно получиться примерно так :

                                                              procedure TForm1.Button1Click(Sender: TObject);
                                                              begin
                                                              GetIntetFile('http://ваш_сайт/wh.dll','c:\wh.dll');
                                                              end;


                                                              7)Чтобы все это заработало нужно кинуть на форму компонент idhhtp из вкладки indyclients.
                                                              Можно тестить!загрузка работает.
                                                              8)Теперь давайте добавим визульно закачку файла;
                                                              В нашу процедуру getinetfile добавим:

                                                              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;


                                                              Теперь остановимся на вопросе :Как сделать так , чтобы updater сначала проверял , есть ли у него обновления?
                                                              Если у вас нет своего сайта/ftp/хостинга , то лугче всего зарегистрировать себе сайт на http://narod.yandex.ru/?ncrnd=630
                                                              Эту процедуру сможет пройти любой homo sapiens=)
                                                              НУ вот , за 5 минут вы создали сайт и уже сидите в админке.
                                                              Заходим в управление файлами и загружаем туда , например wh.dll(то,что будет качать ваш упдатер),updater.exe(новая версия updater'a и versionupdater.txt.
                                                              Опишу алгоритм работы updater'a:
                                                              1)Программа идет на ваш сайт и качает versionupdater.txt.Если версия будет другой(в программе) ,
                                                              то она выводит в memo 'Есть обновление , для закачки нажмите кнопку обновить updater'.
                                                              Если нету , то выводит 'Обновлений updater'a не обнаружено'.
                                                              2)Тоже самое с wh , только файл версий будет - versionwh.txt
                                                              Алгоритм мы написали , теперь будем кодить)
                                                              Чтобы при запуске программы она проверила свою версию , нужно
                                                              1)Поместить на форму второй memo и сделать его visible:=false(невидимым),поместить вторую кнопку(по ней будет обновляться updater.
                                                              2)Заходим в events формы и на событие onshow(программа показалась) прописываем следующий код:

                                                              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.Textversion 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;

                                                              Чтобы это работало , нужно залить на сайт versionupdater.txt (в нем строчка , например 1.0).
                                                              Версия программы меняется в исходе .
                                                              Теперь по нажатию на кнопку пихаем этот код:
                                                              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.Textversion 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;


                                                              Пароль на все архивы: hh


                                                              Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь.
                                                              Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.
                                                              • Написал: juteex
                                                              • Дата: 25 апреля 2013 11:51
                                                              • Новостей: 2
                                                              • Комментариев: 85
                                                              Ого! Давно искал! Спасибо... + ct

                                                              --------------------
                                                              • Написал: alaksion
                                                              • Дата: 25 апреля 2013 12:15
                                                              • Новостей: 1
                                                              • Комментариев: 36
                                                              Цитата: Mavgic
                                                              {$R *.dfm}
                                                              DFM trollface

                                                              --------------------
                                                              • Написал: admirativ
                                                              • Дата: 25 апреля 2013 14:33
                                                              • Новостей: 0
                                                              • Комментариев: 2
                                                              лучше бы написал как сделать update при использовании xml, когда нужно обновить больше 20 файлов например
                                                              • Написал: Эдис001
                                                              • Дата: 25 апреля 2013 14:56
                                                              • Новостей: 0
                                                              • Комментариев: 128
                                                              Ого! Давно искал! Спасибо... +

                                                              Ну это если только прога чисто твоя,а если твоя с установкой,можешь сразу при установке спросить,нужно авто обновление или нет,так же в других,не сделанных вами программах

                                                              --------------------
                                                              • Написал: dimanBMW
                                                              • Дата: 25 апреля 2013 18:17
                                                              • Новостей: 14
                                                              • Комментариев: 91
                                                              У меня другой способ лучше, кому интересно:

                                                              Скачать Яндекс Диск

                                                              --------------------
                                                              • Написал: Mr.Makkk
                                                              • Дата: 25 апреля 2013 18:44
                                                              • Новостей: 0
                                                              • Комментариев: 0
                                                              Можно загрузить файл на сервер, где писать версию продукта.
                                                              Например, вы сделали версию 1.0, следовательно вписываем код провкерки текста с файла на сервере, и если текст равен 1.0 - запускам по стандарту. А если нет - выводим текст из другого файла на сервере.
                                                              • Написал: Unique
                                                              • Дата: 25 апреля 2013 20:58
                                                              • Новостей: 0
                                                              • Комментариев: 16
                                                              Спасибо помог
                                                              • Написал: Hypnotica
                                                              • Дата: 3 мая 2013 02:52
                                                              • Новостей: 0
                                                              • Комментариев: 23
                                                              idhhtp из вкладки indyclients (как? я не я не могу найти indyclients)
                                                              • Написал: Sam_Hilton
                                                              • Дата: 6 мая 2013 21:14
                                                              • Новостей: 0
                                                              • Комментариев: 14
                                                              А исходник нельзя было в архиве кинуть? cap
                                                              • Написал: Voron.ua
                                                              • Дата: 6 мая 2013 21:17
                                                              • Новостей: 19
                                                              • Комментариев: 223
                                                              Цитата: Sam_Hilton
                                                              А исходник нельзя было в архиве кинуть? cap

                                                              пожевали, в рот положили.. наверное глотать трудно?? ponimaete

                                                              --------------------
                                                              • Написал: ha4ik
                                                              • Дата: 6 мая 2013 22:53
                                                              • Новостей: 5
                                                              • Комментариев: 59
                                                              у меня способ без сохранения на комп файла с версией

                                                              через get получаем файл с сервера с версией и сверяем, профит

                                                              на форму IdHTTP
                                                              в кнопку или в OnCreate на форме, вообщем куда хотите

                                                              var
                                                              ServerVersion: string;
                                                              begin
                                                              ServerVersion := IdHTTP1.Get('ссылка на файл с версией');
                                                              if ServerVersion <> 'версия проги' then
                                                              begin
                                                              // что делать при обновлении
                                                              end;
                                                              end;

                                                              PS, писал по памяти

                                                              --------------------
                                                              • Написал: Not3KZ
                                                              • Дата: 5 ноября 2013 14:18
                                                              • Новостей: 1
                                                              • Комментариев: 12
                                                              dj Спасибо.

                                                              --------------------
                                                              Добавление комментария
                                                              Имя:*
                                                              E-Mail:
                                                              • bowtiesmilelaughingblushsmileyrelaxedsmirk
                                                                heart_eyeskissing_heartkissing_closed_eyesflushedrelievedsatisfiedgrin
                                                                winkstuck_out_tongue_winking_eyestuck_out_tongue_closed_eyesgrinningkissingstuck_out_tonguesleeping
                                                                worriedfrowninganguishedopen_mouthgrimacingconfusedhushed
                                                                expressionlessunamusedsweat_smilesweatdisappointed_relievedwearypensive
                                                                disappointedconfoundedfearfulcold_sweatperseverecrysob
                                                                joyastonishedscreamtired_faceangryragetriumph
                                                                sleepyyummasksunglassesdizzy_faceimpsmiling_imp
                                                                neutral_faceno_mouthinnocent
                                                              Вопрос: Напишите слово happy-hack с вопросительным знаком на конце
                                                              Ответ:*
                                                              Введите два слова, показанных на изображении: *