| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как заполнить поля в определенном фрейме?

Антон К. ©   (2010-01-03 17:23:00) 

Хотел использовать вот этот код:

function FillFormStr(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
 var
   i, j: Integer;
   FormItem: Variant;
 begin
   Result := False;

 if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
   begin
     Exit;
   end;
 for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
   begin
     FormItem := WebBrowser.OleObject.Document.forms.Item(I);
    for j := 0 to FormItem.Length - 1 do
     begin

       try
       if FormItem.Item(j).Name = FieldName then
         begin
           FormItem.Item(j).Value := Value;
           Result := True;
         end;
       except
         Exit;
       end;
     end;
   end;
 end;

Однако, этот код не работает. Вероятно это связано с тем, что страница, которую я пытаюсь заполнить, состоит из нескольких фреймов. Подскажите плиз как модифицировать указанный код, чтобы заполнить поля в нужном фрейме. Фрейма всего два.

Заранее спасибо.

---

Антон К.   (2010-01-03 21:29:00) [1]

> Там же найти несколько примеров для работы с фреймами, изучить
> (как добраться до нужного фрейма), скрестить с этим примером
> и, наверное, получить правильный результат

Пробовал. :) Не получилось :(
Я для души программированием занимаюсь, поэтому особых знаний нет. Может вы подскажите?

---

TIF   (2010-01-03 21:03:00) [2]

> как модифицировать указанный код

Код взят из DelphiWorld
Там же найти несколько примеров для работы с фреймами, изучить (как добраться до нужного фрейма), скрестить с этим примером и, наверное, получить правильный результат

---

Наверх