VPF::Вставить строку в HTML-форму - Форум программистов

DragonFire

Дата 19.11.2006, 10:28 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

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

Вообщем вопрос такой - как программно вставить строку символов в Edit на HTML страничке?
И как собственно определить в какой Edit вставлять если их несколько, а мне нужно скажем в первый сверху, или около которого написано Name...

Заранее спасибо :)

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

http://dragonfire.cimanu.ru/

Sunvas

Дата 19.11.2006, 23:25 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Думаю это невозможно, потому что едиты и формы там не окна, а графические элементы, следовательно им невозможно послать сообщение нажатия клавиши.
Мне большей уверенности в этом дает еще и тот факт, что над этой проблемой бьються и разработчики программы PuntoSwitcher.

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Matematik

Дата 20.11.2006, 00:35 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

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

Цитата(DragonFire @ 19.11.2006, 10:28

)

как программно вставить строку символов в Edit на HTML страничке?

Для IE

Код


//uses MSHTML, SHDocVw
procedure FillYandex;
var
 ShellWindow: IShellWindows;
 WB: IWebbrowser2;
 spDisp: IDispatch;
 IDoc1: IHTMLDocument2;
 k: Integer;
 Edit : IHTMLInputElement;
 col  : IHTMLElementCollection;
begin
 ShellWindow := CoShellWindows.Create;
 for k := 0 to ShellWindow.Count do
 begin
   spDisp := ShellWindow.Item(k);
   if spDisp =nil then Continue;
   if spDisp.QueryInterface(iWebBrowser2, WB)=S_OK then
   begin
     if WB.Document.QueryInterface(IHTMLDocument2, iDoc1)=S_OK then
     begin
       if Pos('Яndex',iDoc1.title)<>0 then
       begin
         spDisp := IDoc1.all.tags('INPUT');
         if (spDisp<>nil) and (spDisp.QueryInterface(IHTMLElementCollection, col)=S_OK) then
         begin
           spDisp := col.item('text',0);
           if (spDisp<>nil) and (spDisp.QueryInterface(IHTMLInputElement, Edit)=S_OK) then
             edit.value := '123';
         end
       end
     end;
   end;
 end;
end;

Для Своего WebBrowser проще, не надо окна передирать

Цитата(DragonFire @ 19.11.2006, 10:28

)

И как собственно определить в какой Edit вставлять если их несколько, а мне нужно скажем в первый сверху, или около которого написано Name...

По имени например

Это сообщение отредактировал(а) Matematik - 20.11.2006, 00:36

DragonFire

Дата 20.11.2006, 08:54 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

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

Цитата(Sunvas @ 19.11.2006, 23:25

)

Мне большей уверенности в этом дает еще и тот факт, что над этой проблемой бьються и разработчики программы PuntoSwitcher.

Ну у меня PuntoSwitcher в браузере спокойно все переводит... Где угодно переводит, даже в игрухах, где уж точно графические интнрфейсы...

Цитата(Matematik @ 20.11.2006, 00:35

)

Для IE

Ща буду пробовать))

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

http://dragonfire.cimanu.ru/

December

Дата 20.11.2006, 15:55 (ссылка)

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

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

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

DRKB!

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

Для друзей с винграда - скидки на разработку сайтов

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