|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
14.09.2010, 13:26 | #1 |
Новичок
Джуниор
Регистрация: 14.09.2010
Сообщений: 4
|
Запуск браузера
Здравствуйте, я в программировании недавно, дали задание: При нажатии кнопки осуществляется подключение к сети интернет через vpn, затем запускается браузер и в него автоматически вводится адресная строка, после чего, в браузере всплывает окно с предложением загрузки файла и также автомтически нажимается кнопка сохранить. Затем, через 5 секунд после начала закачки браузер закрывается и отключается соединение vpn.
В сети нарыл часть кода для открытия браузера: для начала выбрать во вкладке internet >WebBrowser(SchDocVW) Код:
Подскажите, пожалуйста, как прописать остальной кол? Или хотя бы от чего "плясать" дальше? Последний раз редактировалось Stilet; 14.09.2010 в 13:54. |
14.09.2010, 13:56 | #2 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Так используй IdHTTP. Он имхо вполне пригоден для качалки файловой.
I'm learning to live...
|
|
14.09.2010, 14:16 | #3 |
Новичок
Джуниор
Регистрация: 14.09.2010
Сообщений: 4
|
Не, мне не файл сам важен, а процесс: подключение интернет - запуск браузера с адресом - нажатие кнопки "сохранить" - закрытие браузера через 5 секунд - отключение интернета.
|
14.09.2010, 14:27 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
А теперь четко объясни зачем такая морока?
Подсунуть кому-то бяку хочешь?
I'm learning to live...
|
14.09.2010, 14:27 | #5 |
Игрок
Форумчанин
Регистрация: 29.10.2006
Сообщений: 367
|
кнопку нажать в диалоге или на странице?
Жизнь всегда игра. Но смерть - не всегда поражение.
#define true (Math.random()>0.5) //Удачной отладки |
14.09.2010, 14:39 | #6 |
Пользователь
Регистрация: 25.02.2010
Сообщений: 49
|
|
14.09.2010, 14:52 | #7 |
Ещё не
Форумчанин
Регистрация: 04.01.2010
Сообщений: 517
|
Ну тогда почитайте для большего ознокамления
Запуск программ из Delphi Оформил: DeeCo В этой статье вы научитесь применять функцию Windows API ShellExecute. Ее применяют в тех случаях, когда мы, например, хотим открыть файл в соответствии с его расширением, не зная, какая программа ассоциирована с таким файлами. Итак, начнем с простого: - Запустить блокнот (notepad) uses ShellApi; ...ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL); - Открыть текстовый файл c:\text.txt в блокноте ShellExecute(Handle, 'open', 'c:\windows\notepad.exe', 'c:\text.txt', < BR > nil, SW_SHOWNORMAL); - Показать содержимое каталога c:\archive ShellExecute(Handle, 'open', 'c:\archive', nil, nil, SW_SHOWNORMAL); - Открыть файл в соответствии с расширением ShellExecute(Handle, 'open', 'c:\MyDocuments\Letter.doc', nil, nil, SW_SHOWNORMAL); - Открыть html документ в браузере по умолчанию ShellExecute(Handle, 'open', 'http://src.fitkursk.ru', nil, nil, SW_SHOWNORMAL); - Послать сообщение по электронной почте var em_subject, em_body, em_mail: string; begin em_subject := 'This is the subject line '; em_body := ' Message body text goes here'; em_mail := 'mailto:alex@fitkursk.ru?subject=' + em_subject + '&body=' + em_body; ShellExecute(Handle, 'open', PChar(em_mail), nil, nil, SW_SHOWNORMAL); end; - Дожидаемся окончания запущенной программы // фрагмент кода запускает калькулятор и // выдает сообщение, когда он закрываетсяuses ShellApi; ...var SEInfo: TShellExecuteInfo; ExitCode: DWORD; ExecuteFile, ParamString, StartInString: string; begin ExecuteFile := 'c:\Windows\Calc.exe'; FillChar(SEInfo, SizeOf(SEInfo), 0); SEInfo.cbSize := SizeOf(TShellExecuteInfo); with SEInfo do beginfMask := SEE_MASK_NOCLOSEPROCESS; Wnd := Application.Handle; lpFile := PChar(ExecuteFile); {ParamString can contain theapplication parameters.} // lpParameters := PChar(ParamString); {StartInString specifies thename of the working directory.If ommited, the current directory is used.} // lpDirectory := PChar(StartInString); nShow := SW_SHOWNORMAL; end; if ShellExecuteEx(@SEInfo) then begin repeatApplication.ProcessMessages; GetExitCodeProcess(SEInfo.hProcess, ExitCode); until (ExitCode <> STILL_ACTIVE) or Application.Terminated; ShowMessage('Calculator terminated'); end else ShowMessage('Error starting Calc!'); end;
Воображение важнее, чем знания. (Albert Einstein)
|
14.09.2010, 15:02 | #8 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Все это задание совершенно бесперспективное.
I'm learning to live...
|
|
14.09.2010, 15:18 | #9 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,551
|
Видимо, в задании речь шла не об использовании компонента TWebBrowser, а о запуске реального браузера и управления им.
E-Mail: arigato.freelance@gmail.com
|
14.09.2010, 15:53 | #10 |
Пользователь
Регистрация: 25.02.2010
Сообщений: 49
|
dmitriegorovih,
C:\Windows - можно заменить на: Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Запуск exe-файлов из браузера | max38934 | JavaScript, Ajax | 20 | 23.06.2012 05:15 |
Создание браузера | Hausedark | Общие вопросы Delphi | 1 | 07.07.2010 17:08 |
Эмулятор браузера | юни | Фриланс | 10 | 25.03.2010 23:34 |
данные от браузера | Артэс | Общие вопросы C/C++ | 6 | 07.12.2009 18:43 |
Запуск браузера в приложении | MAcK | Общие вопросы .NET | 7 | 07.04.2009 06:07 |