Отправлено: 31.05.11 18:02. Заголовок: Как сделать обновление программы из инета ?

Всем привет.
Нужно делать обновление программы из инета. Чтоб пользователь нажал кнопочку "Обновить программу" и она обновилась.
Куда файлы обновления выкладывать ? Завести сайт и т.д ?
Поделитесь опытом, как сделать.

 Отправлено: 31.05.11 19:43. Заголовок: Andrey пишет: Завес..

Andrey пишет:

цитата:

Завести сайт и т.д ?

Сайт не нужен. Нужен статический адрес в инете, за которым будет стоять сервер. На сервере запущена прога, которая слушает какой-то порт. Если на этот порт приходит запрос из вне, прога, после определенной процедуры аутентификации, должна либо разрешить соединение и выдать данные, либо отказать. Как-то так... :)

 Отправлено: 31.05.11 19:59. Заголовок: P.S. Можно попробова..

P.S. Можно попробовать сначала без статического адреса, с помощью сервиса dyndns.com, к примеру. Но возможны глюки. Статический все-таки лучше...

 Отправлено: 31.05.11 20:42. Заголовок: PSP пишет: Нужен ст..

PSP пишет:

цитата:

Нужен статический адрес в инете, за которым будет стоять сервер.

Т.е. мне нужно будет держать свой сервер и иметь постоянный доступ в инет ?

 Отправлено: 31.05.11 21:01. Заголовок: Andrey пишет: Т.е. ..

Andrey пишет:

цитата:

Т.е. мне нужно будет держать свой сервер

Ну да...

цитата:

и иметь постоянный доступ в инет ?

Ну да... :) Можно, конечно, давать доступ по расписанию, но какой в этом смысл? :)

 Отправлено: 31.05.11 21:21. Заголовок: Не хотелось бы иметь..

Не хотелось бы иметь свой сервер. Лучше уж на странице сайта выложить и забыть.
Только как скачать программно файл (обновления программы) со страницы сайта ?

 Отправлено: 31.05.11 21:25. Заголовок: Через FTP..

Через FTP

 Отправлено: 31.05.11 21:54. Заголовок: Andrey пишет: как с..

Andrey пишет:

цитата:

как скачать программно файл (обновления программы) со страницы сайта ?

Вот пример процедуры обновления из исходников HMGS-IDE:

цитата:

************************************************* PROCEDURE DownloadFromWWW( cURL, cLocalFileName ) ************************************************* LOCAL oCon, oUrl, i cLocalFileName := alltrim(cLocalFileName) nresp := isinternet() if nresp = .f. msgbox('Internet is not connected. Update is aborted') return endif oUrl := TURL():New( cUrl ) oCon := TipClientHttp():New( oUrl ) oCon:nConnTimeout := 20000 //MsgBox("Connecting with "+ oUrl:cServer) //msgbox('localfile= ' +clocalfilename) IF oCon:Open( cUrl ) //MsgBox("Connection established." +chr(10)+"Press OK to retrieve " + oUrl:cPath +oUrl:cFile) oCon:WriteAll(cLocalFileName) //MsgBox("Downloaded...") oCon:Close() FORM() ELSE MsgBox("Can't connect with "+ oUrl:cServer) IF oCon:SocketCon == NIL MsgBox("Connection not initiated") ELSEIF hb_InetErrorCode( oCon:SocketCon ) == 0 MsgBox("Server sayed: "+ oCon:cReply) ELSE MsgBox("Error in connection: " + hb_InetErrorDesc( oCon:SocketCon )) ENDIF ENDIF RETURN **************** PROCEDURE FORM() **************** DEFINE WINDOW Form_2 ; AT 0, 0 ; WIDTH 400 HEIGHT 215 ; TITLE "Extracting sources of HMGS_IDE to \Updates folder" ; NOMAXIMIZE NOSIZE ; FONT "Arial" SIZE 9; ON INIT UNZIPFILE() DEFINE PROGRESSBAR ProgressBar_1 ROW 60 COL 45 WIDTH 310 HEIGHT 30 RANGEMIN 0 RANGEMAX 10 VALUE 0 FORECOLOR {0,130,0} END PROGRESSBAR DEFINE LABEL Label_1 ROW 100 COL 25 WIDTH 350 HEIGHT 20 VALUE "" FONTNAME "Arial" FONTSIZE 10 TOOLTIP "" FONTBOLD .T. TRANSPARENT .T. CENTERALIGN .T. END LABEL ON KEY ESCAPE ACTION Form_2.Release END WINDOW CENTER WINDOW Form_2 ACTIVATE WINDOW Form_2 RETURN ********************* PROCEDURE UnzipFile() ********************* cCurDir := getstartupfolder() cArchive := cCurDir +"\ide.zip" //MSGBOX('CCURDIR= ' + CCURDIR) Form_2.ProgressBar_1.RangeMin := 1 Form_2.ProgressBar_1.RangeMax := Len( HB_GetFilesInZip(cArchive) ) - 1 RENAME ( cCurDir+'\IDE.EXE' ) TO ( cCurDir+'\IDEOLD.EXE' ) UNCOMPRESS cArchive ; EXTRACTPATH cCurDir + "\Updates" ; BLOCK {|cFile, nPos| ProgressUpdate( nPos, cFile, .T. ) } ; CREATEDIR COPY FILE ( cCurDir +'\UPDATES\BIN\IDE.EXE' ) TO ( cCurDir +'\IDENEW.EXE' ) EXECUTE FILE ( cCurDir +'\IDENEW.EXE' ) adata[ _DISABLEWARNINGS ] := '.T.' EXIT() RETURN ******************************************************* Function ProgressUpdate( nPos , cFile , lShowFileName ) ******************************************************* Default lShowFileName := .F. Form_2.ProgressBar_1.Value := nPos Form_2.Label_1.Value := cFileNoPath( cFile ) DO EVENTS if lShowFileName INKEY(.1) endif Return Nil ********************* Function IsInternet() ********************* LOCAL nEstado, cConexion := "" nEstado := InternetGetConnectedStateEx(0, @cConexion, 0, 0) Return (nEstado == 1) ******************************************************************************************* function InternetGetConnectedStateEx(lpdwFlags, lpszConnectionName, dwNameLen, dwReserved ) ******************************************************************************************* local uResult local hInstDLL := LoadLibrary("WININET.DLL") local nProcAddr := GetProcAddress(hInstDLL,"InternetGetConnectedStateEx") uResult := CallDLL(hInstDLL, nProcAddr,, 4, 4, lpdwFlags, 10, lpszConnectionName, 3, dwNameLen, 4, dwReserved ) FreeLibrary(hInstDLL) return uResult

Надеюсь, что идея понятна...

 Отправлено: 31.05.11 23:53. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Вот пример процедуры обновления из исходников HMGS-IDE:

Спасибо большое !

 Отправлено: 02.06.11 06:49. Заголовок: Что-то с теорией не ..

Что-то с теорией не все понятно.....
Допустим на странице сайта http://www.hmgextended.com/files/CONTRIB/ есть несколько обновлений:
hmg-1.9-96-setup.zip
hmg-1.9-95-setup.zip
hmg-1.9-89-setup.zip

Как на хХарборе или Харборе получить список обновлений и скачать последнее обновление ?

 Отправлено: 02.06.11 09:33. Заголовок: Andrey пишет: Как н..

Andrey пишет:

цитата:

Как на хХарборе или Харборе получить список обновлений и скачать последнее обновление ?

Вот рабочий пример на харбор обновления баз для программы по законодательству, дополнительно использую wget (при обрыве есть докачка), может кому пригодится:

nau.ini
-------------------------------------------------
# кусок имени файла
str_nau = nau9
# опция для wget докачка
str_opt = -c
# где расположен wget
str_run = c:\sbin\wget\wget
# откуда качать
str_url = http://updates.nau.kiev.ua/

[FILES]
# последний номер закач. обновления
sud=1981
ukr=1770

# end of nau.ini

Дальше сама ф-я
FUNC main()

LOCAL hIni := hb_IniRead( "nau.ini" ), ckey, asect, str_cmd, str_nau
LOCAL arj_file, ifile, str1 := ""

str_nau := hini["MAIN"]["str_nau"]
str_cmd := hini["MAIN"]["str_run"] + " " + ;
hini["MAIN"]["str_opt"] + " " + ;
hini["MAIN"]["str_url"] + ;
str_nau + "/"

asect := hini["FILES"]
for each ckey in asect:keys
if ! hb_direxists("."+ckey)
makedir(ckey)
endif
next
for EACH ckey in asect:keys
arj_file := 1
WHILE .T.
nnFile := AllTrim( Str( Val(asect[ckey] ) + arj_file ) )
xFile := str_cmd + ckey + "/" + str_nau + SubStr( ckey, 1, 1 ) + nnfile + "."
/* 1st step - try to get the arj*/
IF hb_processRun( xFile + "arj"+" -P ./"+cKey,,@str1 ) == 0
/* 2nd step - try to get the a01, a02, ...*/
ifile := 1
WHILE .T.
IF hb_processRun( xFile + "a" + StrZero( ifile, 2 )+ " -P ./"+cKey ) == 0
ifile ++
ELSE
aSect[ckey] := nnfile
EXIT
ENDIF
ENDDO
ELSE
EXIT
ENDIF
ENDDO
next
hb_IniWrite( "nau.ini", hIni )
RETURN nil

 Отправлено: 02.06.11 14:46. Заголовок: AlexMyr пишет: може..

AlexMyr пишет:

цитата:

может кому пригодится:

Конечно пригодиться. Спасибо большое.

Не нашел функции в хХарборе hb_processRun ! Чем можно заменить ? Или перетащить из Харбора ?

 Отправлено: 02.06.11 15:10. Заголовок: Andrey пишет: Чем м..

Andrey пишет:

цитата:

Чем можно заменить ?

Я так думаю, что можно прикрутить __run, взял с misc.txt

/* $DOC$
* $FUNCNAME$
* __RUN()
* $CATEGORY$
* DOS
* $ONELINER$
* Run an external program.
* $SYNTAX$
* __RUN( <cCommand> )

 Отправлено: 02.06.11 16:28. Заголовок: AlexMyr пишет: Я та..

AlexMyr пишет:

цитата:

Я так думаю, что можно прикрутить __run

Уж лучше тогда ShellExecute(GetDeskTopWindow(), 'open',cRunBatFile, "", "" , SW_SHOWNORMAL) !

 Отправлено: 01.09.11 16:05. Заголовок: С технолигией скачки..

С технолигией скачки обновления программы разобрался.
Спасибо всем БОЛЬШОЕ !

Теперь дальше вопрос: скачал я допустим MyUpdate-012.zip c инета, распаковал и заменил нужные мне файлы.
А ехе-ник то мой в памяти, как мне его заменить НОВЫМ ?

Т.е. запущена программа MyProga.EXE, мне нужно её завершить, скопировать из другой папки новую программу MyProga.EXE и запустить ее. Так можно сделать или нет ?
Ручками то просто получается, а юзера то не разбираются в этом.

 Отправлено: 01.09.11 19:48. Заголовок: Пример: твоя MyProga..

Пример: твоя MyProga.exe обнаруживает обновление. Информирует юзера, что нужно обновиться. Юзер соглашается. Прога завершается, а последняя выполненная строка - вызов MyProgaUpdate.exe (к примеру). Последняя копирует все, что нужно обновить, и завершается. А последняя строка в ней - вызов MyProga.exe

 Отправлено: 01.09.11 22:30. Заголовок: PSP Спасибо. :sm36..

PSP
Спасибо.
А как нибудь по хитрому нельзя, выгрузиться (завершить) работу и запусть временный бат-ник с копированием и запуском нового уже ехе-ника ?

 Отправлено: 01.09.11 23:16. Заголовок: Andrey По хитрому д..

Andrey
По хитрому думаю можно включая перезагрузку компа и доработку проги в этом плане (не большую)

 Отправлено: 02.09.11 05:40. Заголовок: Замена проги

Вариант не временного, а постоянного батника- для однопользовательского режима
( когда не занят EXE-файл другими процессами)
При обновлении - MyProga.exe создает новый EXE - NewMyProga.exe
который переименуется внутри батника
---------------MyProga.cmd----------
if exist NewMyProga.exe goto 2
:1
MyProga.exe
if not exist NewMyProga.exe goto 3
:2
ren NewMyProga.exe MyProga.exe
goto 1
:3

 Отправлено: 02.09.11 12:15. Заголовок: Andrey пишет: выгру..

Andrey пишет:

цитата:

выгрузиться (завершить) работу и запусть временный бат-ник с копированием и запуском нового уже ехе-ника ?

Перед завершением MyProga.exe создает этот самый батник сама, запускает его. Батник все копирует, запускает MyProga.exe. Она уже при старте удаляет батник.

 Отправлено: 02.09.11 15:27. Заголовок: Спасибо большое всем..

Спасибо большое всем.
Это явное решение. В принципе нормальное.

А кто знает как другие программы делают эту операцию обновления ???

 Отправлено: 05.09.11 14:36. Заголовок: Набрел тут в поиске:..

Набрел тут в поиске:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1138

Модуль просто подключается к проекту. В секции инициализации запускаем поток. В потоке делаем следующее:

Проверяем наличие bak файла, который мог остаться от предыдущего обновления и если находим - удаляем.
Сравниваем дату изменения локального файла и файла, находящегося на сервере.
Если необходимо обновление - копируем файл с сервера в файл "bak1". Еще один промежуточный файл используется для уменьшения вероятности нарваться на сбой в программе, когда у нас не окажется в папке файла с оригинальным названием.
Переименовываем оригинал в файл с расширением "bak" .
Восстанавливаем оригинал из файла "bak1"

Далее - на любителя. Можно попытаться предупредить пользователя и заставить его перезапустить программу. Или оставить все, как есть. Этот способ проверен на WinNt4 и Win2000. Прав особых пользователям не надо.

Самая интригующая фраза: "В секции инициализации запускаем поток. В потоке делаем следующее:"
Кто пользовался потоками ? Надежно ли это для хХарбора ?

 Отправлено: 05.09.11 21:02. Заголовок: Andrey пишет: Кто п..

Andrey пишет:

цитата:

Кто пользовался потоками ? Надежно ли это для хХарбора ?

В Harbour использую , нормально работает. Юзаю 2 потока.

В одном потоке архивирую базу данных через определенные промежутки времени.
Во втором....ну там целая кучка всего. Прием заявок , отправка зявок по мылу и фтп и кучка
всего другого.
Тема о потоках на форуме есть.

 Отправлено: 05.09.11 21:15. Заголовок: Dima пишет: В одном..

Dima пишет:

цитата:

В одном потоке архивирую базу данных через определенные промежутки времени.

А быстро делает архив ? В смысле, сколько вемени затрачивается через поток и напрямую ?

Dima пишет:

цитата:

Во втором....ну там целая кучка всего. Прием заявок , отправка зявок по мылу и фтп и кучка всего другого.

Не падает ничего ? Надежно работает ?

Dima пишет:

цитата:

Тема о потоках на форуме есть.

Читал. Пока мало понял. Пока разбираюсь. Спасибо большое, что эту тему развил.
Может сделаешь небольшое руководство с примером по этой теме ?

 Отправлено: 05.09.11 21:49. Заголовок: Andrey пишет: А быс..

Andrey пишет:

цитата:

А быстро делает архив ? В смысле, сколько вемени затрачивается через поток и напрямую ?

Не важно. Время одинаково.

Andrey пишет:

цитата:

Не падает ничего ? Надежно работает ?

я же вроде писал , все хорошо ;)


Andrey пишет:

цитата:

Может сделаешь небольшое руководство с примером по этой теме ?

Там же есть пример что Петр показал. Думай. Если что спрашивай.

 Отправлено: 06.09.11 00:19. Заголовок: Andrey пишет: Самая..

Andrey пишет:

цитата:

Самая интригующая фраза: "В секции инициализации запускаем поток. В потоке делаем следующее:"

Андрей, в приведенном описании нет особо ничего, что отдельного потока бы требовало. Это так просто в примере. Делай, просто как обычно, в основном потоке, да и все... А то "наступишь" на все что- можно наступить

 Отправлено: 06.09.11 06:43. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

А то "наступишь" на все что- можно наступить

Ну а как же без этого !!!
Нужно держаться лозунга: Мы не ищем простых путей ....

 Отправлено: 06.09.11 08:28. Заголовок: hb_ThreadStart() - з..

hb_ThreadStart() - запускает поток. В сборке Harbour есть примеры. Про xX не скажу, не знаю.

 Отправлено: 30.01.12 10:22. Заголовок: Сделал обновление пр..

Сделал обновление программы из Инета.
Начал пробовать, и облом....
У меня нормально считывается, а в другом городе нет.

Возвращает что интернет не доступен ???
Хотя скайп и TeamViewer работает.

Использую функцию IsConnectedInet() возвращает .F.
Код брал здесь на форуме:
Скрытый текст

/////////////////////////////////////////////////////////// #define DC_CALL_STD 0x0020 #define INTERNET_CONNECTION_MODEM 1 #define INTERNET_CONNECTION_LAN 2 #define INTERNET_CONNECTION_PROXY 4 #define INTERNET_RAS_INSTALLED 16 #define INTERNET_CONNECTION_OFFLINE 32 #define INTERNET_CONNECTION_CONFIGURED 64 // Flag for InternetCheckConnection #define FLAG_ICC_FORCE_CONNECTION 1 FUNCTION IsConnectedInet() local nFlags := 0 local lRet := .f. if DllCall( "WININET.DLL", DC_CALL_STD, "InternetGetConnectedState", @nFlags, 0 ) == 1 if DllCall( "WININET.DLL", DC_CALL_STD, "InternetCheckConnection", "http://www.google.com", FLAG_ICC_FORCE_CONNECTION, 0 ) == 1 lRet := .t. endif endif Return lRet

Как такое может быть - один и тот же код работает по разному ?

 Отправлено: 30.01.12 10:27. Заголовок: Что-то блокирует дос..

Что-то блокирует достут твоей программе в интернет. К примеру, фаервол.
Нужно разрешить ей доступ.

Andrey пишет:

цитата:

Хотя скайп и TeamViewer работает

Эти программы обычно принимаются фаерволами как доверенные.

цитата:

Как такое может быть - один и тот же код работает по разному ?

Он работает одинаково. Система реагирует по-разному.

 Отправлено: 13.02.12 13:32. Заголовок: Andrey пишет: Возвр..

Andrey пишет:

цитата:

Возвращает что интернет не доступен ??? Хотя скайп и TeamViewer работает.

PSP пишет:

цитата:

Он работает одинаково. Система реагирует по-разному.

Точно. На компе стоит ПРОКСИ.
Т.е. в IE стоит:


Как (или чем) можно определить что ИНЕТ работает через ПРОКСИ ?
Есть ли на хХарборе такая возможность ?
И как определить мне какой адрес прокси используется ?

 Отправлено: 13.02.12 14:48. Заголовок: Andrey пишет: И как..

Andrey пишет:

цитата:

И как определить мне какой адрес прокси используется ?

Раздел реестра

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]

параметр

ProxyServer

 Отправлено: 13.02.12 15:05. Заголовок: Добавлю: ProxyEnable..

Добавлю: ProxyEnable в этом же разделе будет установлен в 1, если прокси используется.

 Отправлено: 13.02.12 15:27. Заголовок: PSP пишет: Добавлю:..

PSP пишет:

цитата:

Добавлю: ProxyEnable в этом же разделе будет установлен в 1, если прокси используется.

Спасибо БОЛЬШОЕ !

Где прокси стоит, даже скайп обновиться не смог !

 Отправлено: 27.02.12 23:49. Заголовок: Народ, помогите опре..

Народ, помогите определить работоспособность кода.
Может что забыл....
У меня прокси нет...

Скрытый текст

//-------------------------------------------------------------------- /* Registry related values Winreg.ch */ /* Help for xHarbour */ #define HKEY_LOCAL_MACHINE 0 #define HKEY_CLASSES_ROOT 1 #define HKEY_CURRENT_USER 2 #define HKEY_CURRENT_CONFIG 3 //#define HKEY_LOCAL_MACHINE 4 #define HKEY_USERS 5 FUNCTION MAIN() LOCAL lWinNT := IsWinNT(), nRet, cError := "" SETCOLOR("15/1") CLEAR SCREEN ? " Test functions ProxyServer for [x]Harbour." ? " Verchenko A.G., Dmitrov an e-mail:verchenkoag@gmail.com is written" ? PADC("",70,"-") ? " " + Version() + " - " + hb_compiler() ? ; ? cError := "" nRet := MyIsProxyServer(@cError) IF nRet == 1 ? "Proxy - Yes ! Adres - "+cError IEXPLORER("http://www.xharbour.org") ELSEIF nRet == 0 ? "Proxy - Not...." ELSE ? "Proxy - error: "+cError ENDIF ? wait RETURN NIL //-------------------------------------------------------------------- Function MyIsProxyServer(cError) LOCAL lWinNT := IsWinNT(), nFlag, nRet := 0, cKey IF lWinNT nFlag := GetRegistry( HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable" ) IF nFlag > 0 cKey := GetRegistry( HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer" ) IF cKey == NIL cError := "Not key ProxyServer for " + OS_MyVersion() nRet := -2 ELSE cError := Ltrim( cKey ) nRet := 1 ENDIF ELSE cError := "0" nRet := 0 ENDIF ELSE cError := "None ProxyServer for " + OS_MyVersion() nRet := -1 ENDIF return nRet //-------------------------------------------------------------------- Function IsWinNT() RETURN OS_ISWINNT() //-------------------------------------------------------------------- FUNCTION OS_MyVersion() // Какая Платформа Windows LOCAL cRet := "None" IF OS_ISWIN95() ; cRet := "WIN95" ; ENDIF IF OS_ISWIN98() ; cRet := "WIN98" ; ENDIF IF OS_ISWINME() ; cRet := "WINME" ; ENDIF IF OS_ISWINNT351() ; cRet := "NT351" ; ENDIF IF OS_ISWINNT4() ; cRet := "NT4" ; ENDIF IF OS_ISWIN2000() ; cRet := "WIN2000" ; ENDIF IF OS_ISWINXP() ; cRet := "WINXP" ; ENDIF IF OS_ISWIN2003() ; cRet := "WIN2003" ; ENDIF IF OS_ISWINVISTA() ; cRet := "VISTA" ; ENDIF //IF OS_ISWIN7() ; cRet := "WIN7" ; ENDIF // Not function for xHarbor 1.0.0 RETURN cRet //-------------------------------------------------------------------- STATIC PROCEDURE IEXPLORER(cURL) LOCAL oIE TRY oIE := GetActiveObject( "InternetExplorer.Application" ) CATCH TRY oIE := CreateObject( "InternetExplorer.Application" ) CATCH Alert( "ERROR! IExplorer not avialable. [" + Ole2TxtError()+ "]" ) RETURN END END oIE:Visible := .T. oIE:Navigate( cURL ) RETURN //--------------------------------------------------------------------

 Отправлено: 28.02.12 14:41. Заголовок: Привет Андрей. У ме..

Привет Андрей.

У меня работает. Проверяет активен ли прокси, если да, то запускает експлорер.

Кажется всё гуд :)

 Отправлено: 28.02.12 20:29. Заголовок: santy Спасибо большо..

santy Спасибо большое !
Значит работает...

 Отправлено: 03.02.14 00:52. Заголовок: PSP пишет: Добавлю:..

PSP пишет:

цитата:

Добавлю: ProxyEnable в этом же разделе будет установлен в 1, если прокси используется.

Поставили сервер Windows 2008 R2 Server 6.01.7601 Service Pack 1
У меня задача стала падать при обновлении...

Переменная nFlag - неопределенная - т.е. возвращает U
nFlag := GetRegistry( HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable" )

Что делать ?
Как еще 2012 сервер в будущем определяться будет ?

 Отправлено: 03.02.14 11:27. Заголовок: Andrey Руками в рее..

Andrey
Руками в реестре смотрел на предмет этой ветки и параметра ?

 Отправлено: 03.02.14 14:44. Заголовок: Dima пишет: Руками ..

Dima пишет:

цитата:

Руками в реестре смотрел на предмет этой ветки и параметра ?

Да нет такого параметра:


Скорей всего, изменения в реестре произошли.
Т.е. по умолчанию, если не настраивался ПРОКСИ, то и параметров никаких нет.

 Отправлено: 03.02.14 14:54. Заголовок: Andrey Тогда гуглит..

Andrey
Тогда гуглить надо скажем такой строкой Windows 2008 R2 Server ProxyEnable и выяснить
куда мелкие его заныкали

 Отправлено: 03.02.14 15:03. Заголовок: похоже в микрософте ..

похоже в микрософте ответа тоже не знают

http://social.technet.microsoft.com/Forums/en-US/bfb19e1d-6227-4ec0-b79d-d0849f4f8258/gpo-?forum=ws2008r2ru

 Отправлено: 03.02.14 15:16. Заголовок: Dima пишет: похоже..

Dima пишет:

цитата:

похоже в микрософте ответа тоже не знают

Как всегда...

 Отправлено: 03.02.14 17:17. Заголовок: Андрей, возьмите и п..

Андрей, возьмите и протестируйте появление Proxy, зайдите в настройки IE и установите Proxy и пропишите его руками. Потом посмотрите в ветку в реестре.
У нас стоят несколько серверов 2008R2 на одном установлен прокси на другом нет, и там и там параметр ProxyEnable есть просто установлен в 1 и 0 соответсвенно.

 Отправлено: 03.02.14 23:21. Заголовок: santy пишет: возьми..

santy пишет:

цитата:

возьмите и протестируйте появление Proxy, зайдите в настройки IE и установите Proxy и пропишите его руками. Потом посмотрите в ветку в реестре.

Это понятно, что можно сделать ручками. Разговор шел об том что если такого параметра нет, то прога вылетает по ошибке.
Т.е. нельзя оказывается рассчитывать что параметр ProxyEnable будет всегда присутствовать в реестре !
Это у меня доступ к этому серверу есть, а если не будет, то клиент не сможет обновиться...

 Отправлено: 03.02.14 23:24. Заголовок: Andrey пишет: Т.е. ..

Andrey пишет:

цитата:

Т.е. нельзя оказывается рассчитывать что параметр ProxyEnable будет всегда присутствовать в реестре

тогда в проге сделай нужную проверку

 Отправлено: 04.02.14 18:50. Заголовок: Dima пишет: тогда в..

Dima пишет:

цитата:

тогда в проге сделай нужную проверку

Сделал !
И в будущем не буду надеяться, что такой ключ есть !