![]()  | 
	
 
  | 
		
			
  | 	
	
	
		
		|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны | 
![]()  | 
	
	
| 
		 | 
	Опции темы | Поиск в этой теме | Опции просмотра | 
| 
		 
			 
			#1  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 Добрый день. Есть следующая ситуация: 
		
	
		
		
		
		
		
	
		
		
	
	
	- форма на форме ТВебБраузер - в Твебраузер загружается страница поисковика (Яндекс например) - в поисковике вводится поисковый запрос и нажимается кнопка "Найти" (это все веб-страница, элементы ХТМЛ-кода типа ФОРМ, ввводится и нажимается все вручную) - поисковик выдает ответ, все как обычно Необходимо: при нажатии кнопки "Найти" на веб-странице данные из окна ввода на веб-странице перенести в строковую переменную (чтоб не потерялись) конечно можно сделать все наоборот: в ЕДИТ на форме программы ввести текст запроса, нажать на кнопку на форме программы и передать данные в Твебраузер, но исходя из эргономики это нецелесообразно, снижает удобство работы с программой Вопрос: - подскажите в какую сторону искать, информация в инете в основном как передать данные или управление в браузер а не наоборот  | 
| 
		 
			 
			#2  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Искать в сторону работы с DOM-моделью и событиям TWebBrowser. 
		
	
		
		
		
		
			
		
		
		
		
	
		
		
	
	
	 | 
| 
		 
			 
			#3  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 попробовал использовать BeforeNavigate2 и сразу полезли исключения на код ( ИДЕ = ХЕ3) 
		
	
		
		
		
		
		
	
		
		
	
	
	E2171 Variable 'I' inaccessible here due to optimization E2171 Variable 'Src' inaccessible here due to optimization E2171 Variable 'Temp' inaccessible here due to optimization (недоступные здесь за счет оптимизации) - это в модуле ComObj procedure GetIDsOfNames сам код Код: 
	procedure TMain.Wbbr_SMBeforeNavigate2(ASender: TObject; const pDisp: IDispatch;
  const URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
  var Cancel: WordBool);
var
I,J:integer;
begin   (*действия перед перезагрузкой страницы*)
  if Wbbr_SM.OleObject.Document.all.tags('FORM').Length = 0 then
    begin
      Exit;
    end;
end; |