PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » PureBasic - форум » Вопросы по PureBasic » Три вопроса по созданию браузера.


Три вопроса по созданию браузера.

Сообщений 1 страница 17 из 17

1

У меня есть браузер, но есть две проблемы.
1. На каждый сайт, созданный на Joomla 1.5.x он выдает ошибку сценария, в отличии от оперы, лисы, осла и сафари. [РЕШЕНО]
2. Каждая ссылка, которая должна открыться в новой вкладке открывается в осле (И.Е.). Нельзя ли както открытие в новой вкладке и открытие в новом окне привязать к самому браузеру. [ДЛЯ ЭТОГО НАДО СОЗДАВАТЬ НЕ ОБОЛОЧКУ, А ДВИЖОК]
3. Все кнопки у меня сделаны по принципу надпись-на-кнопке. Нельзя ли вобще кнопки заменить рисунками? если да то как. [РЕШЕНО]

Буду вам тщательно признателен, если вы поможете хоть с чем-то.[

:O

Отредактировано Сергей (30.10.2010 11:44:23)

0

2

Сергей
Браузер то какой (телепаты в отпуске)
1-сам написал
2-скомпилировал из чьих то исходников
3-готовый продукт

0

3

сам написал

0

4

Сергей написал(а):

1. На каждый сайт, созданный на Joomla 1.5.x он выдает ошибку сценария

попробуй использовать движок фирефокса

Сергей написал(а):

2. Каждая ссылка, которая должна открыться в новой вкладке открывается в осле

У меня линух, поэтому не подскажу

Сергей написал(а):

3. Все кнопки у меня сделаны по принципу надпись-на-кнопке

Ну это совсем просто, используй ButtonImageGadget вместо ButtonGadget

0

5

lakomet написал(а):

попробуй использовать движок фирефокса

Как я понял, то надо использовать константу

Код:
#PB_Web_Mozilla

Но куда ее вставлять? В

Код:
Flags

или еще куда-то?

0

6

Сергей написал(а):

Но куда ее вставлять? В

В флаг.

В справке ведь все расписано:

Uses the Mozilla ActiveX instead of the IE one (Windows only).

Перевод гугл:

Использование Mozilla ActiveX вместо IE (только для Windows).

0

7

А нужно только константу вставить в флаги или еще прописывать что-то ниже?

0

8

Сергей написал(а):

А нужно только константу вставить в флаги или еще прописывать что-то ниже?

Если ты про WebGadgetPath, то это только для линуха, а для винды, нужен только флаг и установленный фирефокс.

0

9

Сергей написал(а):

А нужно только константу вставить в флаги или еще прописывать что-то ниже?

Вообще да.

Сергей написал(а):

1. На каждый сайт, созданный на Joomla 1.5.x он выдает ошибку сценария, в отличии от оперы, лисы, осла и сафари.

Может из-за плагинов?

0

10

haav написал(а):

Может из-за плагинов?

Нет из-за скрипта JQuery

0

11

Пробовал #PB_Web_Mozilla ничего не получилось.

0

12

Вот тут еще подумал. Нельзя ли как-то создать поиск. Видел в чужих исходниках, но не могу понять принцип работы. Может кто-нибудь объяснить?

Заранее благодарю

0

13

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

Тогда помощь будет конкретней.

0

14

По поводу поиско:
заходиш например на google и смотришь как выглядит запрос поиска
например PureBasic
http://www.google.com/search?&q=PureBasic

меняешь PureBasic на свой запрос.

На своей браузере создаешь поле для ввода запроса и кнопку,
при клике отсылаешь в WebGadget()

SetGadgetText(#Web, "http://www.google.com/search?&q=запрос")

Код:
Enumeration 
 #Window_0
 #Strin   
 #But_1
 #Web      
EndEnumeration

OpenWindow (#Window_0,  0,  0,  400,  200,  "Поиск Google", #PB_Window_MinimizeGadget |#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget) 
 StringGadget(#Strin,10,10,200,20,"PureBasic")
 ButtonGadget(#But_1,220, 10, 50, 20, "поиск")
 WebGadget(#Web,0,40,400,160,"")

Repeat
Event =  WaitWindowEvent() 
Window = EventWindow() 
Gadget = EventGadget()
   Select Event
        Case #PB_Event_Gadget
          Select EventGadget()
             Case #But_1
              zapros.s= GetGadgetText(#Strin)
              zapros="http://www.google.com/search?&q="+zapros
              SetGadgetText(#Web, zapros)
          EndSelect
   EndSelect
If Event = #PB_Event_CloseWindow
Break    
EndIf
ForEver

Отредактировано mirashic (30.10.2010 12:51:18)

0

15

Хорошо.
mirashic, вы молодец.

Видел ваши исходники на purebasic.info

У вас там яндекс и гугл. Я хотел бы добавить и яхо. если бы толкьо понял процесс выбора поисковика. если можно, то объясните.

0

16

Добавляй выпадающий список с выбором сервиса для поиска
и в зависимости от того что выбрал формируй строку запроса.

Код:
Enumeration 
 #Window_0
 #Servis
 #Strin   
 #But_1
 #Web      
EndEnumeration

OpenWindow (#Window_0,  0,  0,  800,  600,  "Поиск", #PB_Window_MinimizeGadget |#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget) 
 StringGadget(#Strin,10,10,200,20,"PureBasic")
 ButtonGadget(#But_1,220, 10, 50, 20, "поиск")
 WebGadget(#Web,0,40,800,560,"")
 
 ComboBoxGadget(#Servis, 290, 10, 90,20)  ; выпадающий список
  AddGadgetItem(#Servis, -1, "Goodle")    ; Добавляет элементы Goodle
  AddGadgetItem(#Servis, -1, "Yandex")    ; Добавляет элементы Yandex
  AddGadgetItem(#Servis, -1, "Wikipedia") ; Добавляет элементы Wikipedia
  AddGadgetItem(#Servis, -1, "Yahoo")     ; Добавляет элементы Yahoo
 SetGadgetState(#Servis, 0)   ; Изменяет текущее состояние
 
Repeat
  Event =  WaitWindowEvent() 
  Window = EventWindow() 
  Gadget = EventGadget()
 Select Event
   Case #PB_Event_SizeWindow  ; растягиваем окно
        ResizeGadget(#Web,#PB_Ignore,#PB_Ignore,WindowWidth(#Window_0),WindowHeight(#Window_0)-40) ; растягиваем гаджет
   Case #PB_Event_Gadget
     Select EventGadget()
       Case #But_1
        zapros.s= GetGadgetText(#Strin) ; наше искомое слово
        ;-----выбор Goodle, Yandex, Wikipedia или  Yahoo-------
         If GetGadgetText(#Servis) = "Goodle"   
           zapros="http://www.google.com/search?&q="+zapros
         ElseIf GetGadgetText(#Servis) = "Yandex"
           zapros="http://yandex.ua/yandsearch?text="+zapros
         ElseIf GetGadgetText(#Servis) = "Wikipedia"
           zapros="http://ru.wiktionary.org/w/index.php?title="+zapros
         ElseIf GetGadgetText(#Servis) = "Yahoo"
           zapros="http://search.yahoo.com/search;_ylt=ArwbaSmT8CqTLP_46JkHI2CbvZx4?p="+zapros
         EndIf
          SetGadgetText(#Web, zapros) ; отсылаем в #Web
     EndSelect
  EndSelect
If Event = #PB_Event_CloseWindow
Break    
EndIf
ForEver

Отредактировано mirashic (31.10.2010 10:21:55)

+1

17

версия 1.1 моего "браузера" готова. Где-то через час залью на файлообменники и выложу ссылку на скачивание.

Выбор поиска должен был изначально присутствовать только в версии 1.2 которую сейчас разрабатываю. Однако возникли проблемы. если кто из вас может помочь, то прошу. код будет чуть позже.

0


Вы здесь » PureBasic - форум » Вопросы по PureBasic » Три вопроса по созданию браузера.