VPF::browser - Форум программистов

DeViLMaster

Дата 9.9.2008, 18:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 9.9.2008

Репутация: нет
Всего: нет

привет всем , я пишу браузер. я запнулся на том что незнаю как сделать так, чтобы при нажатии enter или speedbutton, combobox открывал web страницу. недавно мне посоветовали такой код:

Код



procedure TForm3.ComboBox1Change(Sender: TObject);
begin
combobox1.Items.Add('http://');
end;

procedure TForm3.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = 13 then
  if Key = VK_RETURN then
    WebBrowser1.Navigate(ComboBox1.Text);
 webbrowser1.GoSearch;
end;

procedure TForm3.FindAddress;
var
 Flags: OLEVariant;
begin
 Flags := 0;
 webbrowser1.Navigate(wideString(combobox1.Text), Flags, Flags, Flags, Flags);

помогите, что не так в этом коде. combobox показывает например [URL=http://google.ru]http://google.ru[/URL]
но при нажатии ENTER ничего не происходит. заранее благодарен за вашу помощь!
end;

Это сообщение отредактировал(а) Alexeis - 13.9.2008, 11:28

THandle

Дата 9.9.2008, 19:10 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Модератор: пользуйтесь кнопкой "код", пожалуйста

DeViLMaster, бредовый какой то код smile

Цитата(DeViLMaster @ 9.9.2008, 19:10

)

combobox1.Items.Add('http://');

Это зачем? Сколько же там будет строчек 'http://', аж подумать страшно...

Цитата(DeViLMaster @ 9.9.2008, 19:10

)

if Key = 13 then
if Key = VK_RETURN then

а зачем два одинаковых сравнения?

В общем, думаю, этого хватит:

Код


procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    WebBrowser1.Navigate(ComboBox1.Text);
end;

Poseidon

Дата 9.9.2008, 19:31 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Цитата(THandle @ 9.9.2008, 19:10

)

а зачем два одинаковых сравнения?

Это знаешь как... если нажали ентер, то проверить, а действительно нажали ентер smile

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Данкинг

Дата 9.9.2008, 20:04 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

А что такое "Flags, Flags, Flags, Flags"? smile

--------------------

There's nothing left but silent epitaphs.

Inbox

Дата 20.9.2008, 10:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 3.6.2007

Репутация: нет
Всего: нет

DeViLMaster Привет, а можешь мне помочь? я тоже решил написать браузер под себя.
Появились куча вопросов, как ты соорудил кнопку назад вперед (если можно код)???
Я мутил с Undo Redo, но чувствую что иду не втом направлении.
И как сделать что бы url страницы загружалось в адресную строку??

Данкинг

Дата 20.9.2008, 10:35 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(Inbox @ 20.9.2008, 11:27

)

Появились куча вопросов, как ты соорудил кнопку назад вперед (если можно код)???

Мне кажется, следует поинтересоваться методами TWebBrowser, к примеру, GoForward. smile

Это сообщение отредактировал(а) Данкинг - 20.9.2008, 10:35

--------------------

There's nothing left but silent epitaphs.

Inbox

Дата 20.9.2008, 10:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 3.6.2007

Репутация: нет
Всего: нет

Код


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
WebBrowser1.GoForward(????);
end;

Начало понял, куда двигаться, а дальше?
Спасибо!

Inbox

Дата 20.9.2008, 11:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 3.6.2007

Репутация: нет
Всего: нет

как погасить кнопку, как сделать неактивной именно тогда когда возвраты закончились и тем самым не допустить ошибку.....??

Данкинг

Дата 20.9.2008, 11:26 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(Inbox @ 20.9.2008, 11:54

)

Начало понял, куда двигаться, а дальше?

Да вроде там ничего больше не требуется.

Цитата(Inbox @ 20.9.2008, 12:13

)

Зачем её делать неактивной, ты в реальном браузере это видел? Сделай лучше try...except.

Это сообщение отредактировал(а) Данкинг - 20.9.2008, 11:26

--------------------

There's nothing left but silent epitaphs.

Inbox

Дата 20.9.2008, 15:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 3.6.2007

Репутация: нет
Всего: нет

Извиняйте за не достаток мозгов, но что можно дописать после except?
Этот код не работает, что здесь не то?

Код


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
try
WebBrowser1.GoBack
except
break
end;

Это сообщение отредактировал(а) Inbox - 20.9.2008, 16:13

Данкинг

Дата 20.9.2008, 17:33 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Да нормально здесь всё. Попробуй запустить получившийся исполняемый файл.

--------------------

There's nothing left but silent epitaphs.

Inbox

Дата 20.9.2008, 17:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 3.6.2007

Репутация: нет
Всего: нет

Да действительно все впорядке, спасибо.........

Poseidon

Дата 21.9.2008, 01:18 (ссылка)

(голосов:1)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Цитата(Inbox @ 20.9.2008, 10:27

)

я тоже решил написать браузер под себя.

Я извеняюсь за оффтоп, но меня всегда интересовал вопрос, зачем писать браузер "под себя" на основе готового браузера (в случае в с Webrowser, на основе IE)? Если уж писать "под себя", то разрабатывать свой парсер. А так что будет уметь ваш браузер, чего не будет уметь IE?

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Данкинг

Дата 21.9.2008, 10:49 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(Poseidon @ 21.9.2008, 02:18

)

зачем писать браузер "под себя" на основе готового браузера

Для тренировки в основах программирования - самое оно: и просто, и программа что-то делает. Я на "билдере" тоже браузер, помню, писал. smile

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »