VBNet - Форум - Визуализация процесса

Вопрос: Визуализация процесса Добавлено: 15.05.10 17:29

Автор вопроса: VbStarter | Web-сайт: moscowdevils.ru | ICQ: 357911808

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
     ByVal hWnd As Long, _
     ByVal lpOperation As String, _
     ByVal lpFile As String, _
     ByVal lpParameters As String, _
     ByVal lpDirectory As String, _
     ByVal nShowCmd As Long) As Long
Public Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Dim appPath As String

Sub UPDATE_Start()
DownLoadFile "http://svufbi.progects.smtp.ru/DBClient2/New.exe", "c:\SVUFBI_Temp\Update.exe"
End Sub

Public Sub DownLoadFile(sUrl As String, sFile As String)
Dim DL As Long
On Error GoTo errHandler
If sUrl$ = "" Then sUrl$ = strUrl$
If strUrl$ = "" Then strUrl$ = sUrl$
If Left(strUrl$, 4) <> "http" Then strUrl$ = "http://" & strUrl$
If Right$(strUrl$, 1) <> "/" Then strUrl$ = strUrl$ & "/"
If Left$(sFile$, 1) = "/" Then sFile = Mid$(sFile$, 2)
DL& = DoFileDownload(StrConv(strUrl$ & sFile$, vbUnicode))
Exit Sub
errHandler:
Debug.Print "Error Source:", Err.Source
Debug.Print "Error Description:", Err.Description
Debug.Print "Error Number:", Err.Number
MsgBox "An error has occured attempting to start download to " & sUrl & sFile$ & ".", vbApplicationModal + vbCritical + vbDefaultButton1, "Error"
appPath = App.Path
ShellExecute frmUpdate.hWnd, "Open", "c:\SVUFBI_Temp\Update.exe", "", appPath, SW_SHOWNORMAL
End Sub

вот код загрузки. как мне её визуализировать как в ie? (используя стандартный ProgressBar и тп.)
Ответить

Ответы Всего ответов: 57

Номер ответа: 1 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #1	Добавлено: 15.05.10 20:38
	никак с это api функцией. нужно загрузку своими методами делать, с помощью сокетов. Ответить

Номер ответа: 2 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #2	Добавлено: 15.05.10 20:54
	как, в сокетак ни[sensored] ни шарую Ответить

Номер ответа: 3 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #3	Добавлено: 15.05.10 20:55
	а может есть апи с этим внутри уже? интересно эксплорер ктото ковырял на предмет мехонизмов? Ответить

Номер ответа: 4 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #4	Добавлено: 16.05.10 15:58
	я такого не знаю. что значит "ковырял"? Декомпилил и смотрел код? Ответить

Номер ответа: 5 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #5	Добавлено: 16.05.10 16:51
	Учись пользоваться интернетом. http://msdn.microsoft.com/en-us/library/ms775123(VS.85).aspx Ответить

Номер ответа: 6 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #6	Добавлено: 16.05.10 17:02
	По поводу того, как это использовать, потрудись поискать в интернете или подумать. Ответить

Номер ответа: 7 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #7	Добавлено: 16.05.10 17:04
	Есть еще один забавный вариант. Проверять размер локального файла по таймеру. Но как-то глупо выходит Ответить

Номер ответа: 8 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #8	Добавлено: 16.05.10 19:54
	Executioner, ты имел ввиду это: lpfnCB Указатель к интерфейсу IBindStatusCallback, вызывающей стороны. С помощью OnProgress, абонент может получить статус загрузки. URLDownloadToFile вызывает методы OnProgress и OnDataAvailable, при получении данных. Операции загрузки может быть отменено, возвращая E_ABORT из любого обратного вызова. Этот параметр может быть присвоено значение NULL, если статус не требуется. Спасибо, понял! Ответить

Номер ответа: 9 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #9	Добавлено: 16.05.10 20:10
	Воть, правда ожидаемый максимум это что? Размер файла, или как максимум в ProgressBar (смысл такой же?)? Параметры ulProgress [в] Долго целое число без знака, содержащий текущий ход операции привязки относительно ожидаемых максимум, который был указан в параметре ulProgressMax. ulProgressMax [в] Долго целое число без знака, содержащий ожидаемое максимальное значение параметра ulProgress в течение вызовы IBindStatusCallback::OnProgress для этой операции привязки. Обратите внимание, что это значение может изменить через вызова этого метода. Нулевое значение означает, что максимальное значение ulProgress неизвестно; например, в IMoniker::BindToStorage метод, когда размер файла данных неизвестна. ulStatusCode [в] Целое число без знака длиной что дополнительная информация о ходе операции привязки. Это может быть любое из значений BINDSTATUS. szStatusText [в] Адрес строковое значение, содержит текстовую информацию, которая показывает текущий ход выполнения операции привязки. Текст отражает BINDSTATUS значение параметра ulStatusCode и подходит для отображения в пользовательском интерфейсе клиента. Ответить

Номер ответа: 10 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #10	Добавлено: 16.05.10 20:39
	[Проснулся] Визуализация процесса чего? Ответить

Номер ответа: 11 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #11	Добавлено: 16.05.10 21:04
	код прочитай Ответить

Номер ответа: 12 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #12	Добавлено: 16.05.10 21:55
	кстати, как там узнать размер файла, который я закачиваю? Ответить

Номер ответа: 13 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #13	Добавлено: 16.05.10 22:27
	и как реализовать метод IBindStatusCallback.OnProgress токо под дельфи в нете есть... там оно (IBindStatusCallback) определяется как класс, и декларируються функции , включая OnProgress. Ни фига в дельфи не понял. что это за функция (из девилоперс нетворк узнал что параметр IpfnCB это указатель на IBindStatusCallback в котором есть это онпрогресс.) но разобраться немогу. а библия - urlmon , правильно? Ответить

Номер ответа: 14 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #14	Добавлено: 16.05.10 22:29
	и как вообще получить данные от онпрогресс? Ответить

Номер ответа: 15 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #15	Добавлено: 16.05.10 22:42
	как мне её визуализировать как, в сокетак ни[sensored] ни шарую ожидаемый максимум это что? как там узнать размер файла, который я закачиваю? как реализовать метод IBindStatusCallback.OnProgress как вообще получить данные от онпрогресс? Попроси админов создать отдельную ветку для тебя, чтоб весь форум не засирал своими как да почему.. Блин, ну хоть кто нибудь, дайте ему ссылок на книги из серии "Для чайникофф" чтоб он больше моцк не выносил.. Ответить

Страница: 1 | 2 | 3 | 4 |