Вверх ↑
Этот топик читают: Гость
Ответов: 28
Рейтинг: 0
#1: 2012-08-14 00:09:27 ЛС | профиль | цитата
Как сделать так, что бы моя программа при нажатии "Проверить обновления" проверяла обновления программы с сайта, в случае определения новой версии, чтоб она выдала окошко "Доступна новая версия по следующей ссылке".
Если не так "Вы используете последнюю версию"
карма: 1

0
Ответов: 1731
Рейтинг: 68
#2: 2012-08-14 00:18:55 ЛС | профиль | цитата
megam, используйте поиск.
HTTP_Get If_else
карма: 1

0
Ответов: 845
Рейтинг: 19
#3: 2012-08-14 00:56:57 ЛС | профиль | цитата
создай тхт где выложишь хэш программы если он отличаца будет то скачиваешь новое можно так
карма: 0

0
Ответов: 519
Рейтинг: 28
#4: 2012-08-14 17:53:04 ЛС | профиль | цитата
или просто в том же тхт, "1.0""1.1" актуальная версия программы, и если текущая версия ниже, ( < ) , выдавать окошко "нужно обновить" или "обновление не требуется", думаю математическими функциями будет проще это сделать. Покрайней мере мне XD
карма: 0

0
Ответов: 28
Рейтинг: 0
#5: 2012-08-14 21:39:10 ЛС | профиль | цитата
не могли бы скинуть код примера я в этом деле начинающий, если вам это не трудно?
карма: 1

0
Ответов: 1731
Рейтинг: 68
#6: 2012-08-14 21:49:12 ЛС | профиль | цитата
megam, используйте поиск.
карма: 1

0
Ответов: 28
Рейтинг: 0
#7: 2012-08-14 22:35:22 ЛС | профиль | цитата
Спасибо за совет, ты мне очень помог.
Если ты знаешь ответ, почему не помогаешь?
------------ Дoбавленo в 22.35:
Сам написал вот такой код

Add(MainForm,2953706,21,105)
{
Width=395
Height=382
}
Add(WebBrowser,2014084,287,147)
{
Left=280
Top=70
Width=30
Height=20
URL="http://chechensoft.ru/m/windows/tvupdate.txt"
link(onTitle,11799522:doText,[(331,160)(331,251)])
}
Add(Button,6243792,112,266)
{
Left=15
Top=20
Width=85
Caption="Обновление"
link(onClick,10550263:doEvent1,[])
}
Add(If_else,15958731,329,308)
{
Type=1
link(onTrue,9947805:doMessage,[(433,314)(433,300)])
link(onFalse,5621746:doMessage,[])
link(Op1,9883455:Caption,[(335,289)(286,289)])
link(Op2,11799522:Caption,[])
}
Add(Label,9883455,280,238)
{
Left=30
Top=275
Width=240
Caption="v 1.6"
}
Add(Label,11799522,336,245)
{
Left=40
Top=160
Width=170
Caption=""
}
Add(Message,5621746,448,315)
{
Message="Вы исползуете самую последнюю версию"
}
Add(Message,9947805,504,294)
{
Message="Доступна новая версия!"
}
Add(Hub,10550263,196,266)
{
InCount=2
link(onEvent1,2014084:doNavigate,[(248,272)(248,153)])
link(onEvent2,15958731:doCompare,[(266,279)(266,314)])
}



карма: 1

0
Ответов: 1173
Рейтинг: 49
#8: 2012-08-14 22:50:12 ЛС | профиль | цитата
[flood]
megam писал(а):
ты мне очень помог
megam писал(а):
почему не помогаешь
[/flood]
------------ Дoбавленo в 22.49:

Add(MainForm,2953706,21,105)
{
}
Add(Button,11912199,84,105)
{
Left=20
Top=10
Caption="Update"
link(onClick,20601:doDownload,[])
}
Add(HTTP_Get,20601,147,105)
{
Wait=0
link(onDownload,10744437:doConvert,[])
link(URL,3521174:Value,[])
}
Add(If_else,1468550,273,112)
{
Type=2
link(onTrue,10285548:doMessage,[])
link(onFalse,11306653:doMessage,[(331,125)(331,160)])
link(Op2,7960664:Value,[])
}
Add(Message,10285548,357,112)
{
Message="Updates are available"
}
Add(Message,11306653,357,154)
{
Message="No updates"
}
Add(Memory,3521174,147,49)
{
@Hint=#5:Адрес|
Default=String(http://forum.hiasm.com/xf/attach/share/up.zip)
AddHint(60,-24,46,13,@Hint)
}
Add(Convertor,10744437,210,112)
{
Mode=11
link(onResult,1468550:doCompare,[])
}
Add(Memory,7960664,280,49)
{
@Hint=#6:Версия|
Default=Integer(11)
AddHint(56,-22,52,13,@Hint)
}
карма: 0

1
Голосовали:megam
Гость
Ответов: 17029
Рейтинг: 0
#9: 2012-08-14 22:55:25 правка | ЛС | профиль | цитата


Редактировалось 6 раз(а), последний 2025-01-20 17:23:23
карма: 0

0
Ответов: 1731
Рейтинг: 68
#10: 2012-08-14 22:56:14 ЛС | профиль | цитата
code_28767.txt
карма: 1

0
файлы: 1code_28767.txt [772B] [211]
Ответов: 28
Рейтинг: 0
#11: 2012-08-14 23:02:06 ЛС | профиль | цитата
Ex_ писал(а):

Спасибо те огромное!
Вот Вам, берите с него пример!
------------ Дoбавленo в 23.01:
Спасибо всем, я знал что вы молодцы!!!
карма: 1

0
Ответов: 1173
Рейтинг: 49
#12: 2012-08-14 23:16:11 ЛС | профиль | цитата
Cosinus писал(а):
code_28767.txt
Не замечаю приципиальных отличий от моей схемы
карма: 0

0
Ответов: 1731
Рейтинг: 68
#13: 2012-08-14 23:19:04 ЛС | профиль | цитата
Ex_, у меня тема была открыта на посте
megam писал(а):
Сам написал вот такой код

карма: 1

0
Ответов: 28
Рейтинг: 0
#14: 2012-08-14 23:26:55 ЛС | профиль | цитата
Ex_твой пойдет
карма: 1

0
Ответов: 519
Рейтинг: 28
#15: 2012-08-15 02:45:59 ЛС | профиль | цитата
[flood]
почему я весь текст !ваших! схем вижу кракозяброй?
[/flood]
Cхема, как вижу её я..
файл html на веб сервере (www.page.ru/vers.html) с актуальной версией , "1" к примеру.

Add(Shape,14776413,77,168)
{
Width=270
Height=116
Transparent=0
PColor=32896
}
Add(PointHint,10332934,154,182)
{
Info=#26:Получаем актуальную версию|0:|
Width=190
Height=18
}
Add(PointHint,4560836,21,91)
{
Info=#48:Не стала заморачиваться с форматированием строки|
Width=393
Height=67
}
Add(Label,5249550,35,105)
{
Left=10
Top=25
Width=41
Height=17
Caption="Версия"
}
Add(MainForm,2953706,154,308)
{
Width=507
Height=322
link(onCreate,3697947:doCompare,[])
}
Add(WebBrowser,9841226,112,182)
{
Left=10
Top=275
Visible=1
URL="www.page.ru/vers.htm;"
}
Add(If_else,3697947,315,322)
{
Type=2
link(onTrue,2399387:doMessage,[])
link(onFalse,7969165:doMessage,[(377,335)(377,377)])
link(Op1,4656593:Value,[(321,296)(125,296)])
link(Op2,5113154:Caption,[(328,310)(398,310)])
}
Add(Label,5113154,392,252)
{
Left=60
Top=25
Width=10
Height=17
Caption="1"
}
Add(Message,7969165,434,371)
{
Message="Обновитесь
"
}
Add(Message,2399387,434,322)
{
Message="Актуальная версия
"
}
Add(Memory,4656593,119,245)
{
Point(Data)
link(Data,9841226:Page,[])
}
Add(Shape,12544451,357,189)
{
Width=207
Height=116
Transparent=0
PColor=65280
}
Add(PointHint,4536581,364,203)
{
Info=#29:Версия используемой программы|0:|0:|
Width=183
Height=18
}
Add(Shape,7720609,413,315)
{
Width=382
Height=116
Transparent=0
PColor=-16777215
}
Add(PointHint,12171604,483,350)
{
Info=#24:Сообщения о действиях в |26:результате проверки версии|0:|0:|
Width=302
Height=46
}
Add(Shape,972805,231,315)
{
Width=158
Height=116
Color=255
Transparent=0
PColor=16711935
}
Add(PointHint,2027392,245,371)
{
Info=#16:Сравнение версий|0:|
Width=106
Height=46
}
Add(PointHint,15188675,154,210)
{
Info=#25:В поле URL компонента |41:"веб-браузер" вписываем адресс html файла|
VAlign=0
Width=190
Height=67
}


memory возможно даже лишнее...
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)