Текущий архив: 2007.06.10;
Скачать: CL | DM;

Вниз

Вопрос о WebBrowser   Найти похожие ветки 

← →
ppcumax ©   (2007-05-21 00:08) [0]

Как в WebBrowser, в открытой странице на ходу изменить значение полей? Например есть поле <input type="text" name="text" value="">, нужно чтоб программа автоматически подставляла мой текст в value. Спасибо

---

← →
ppcumax ©   (2007-05-21 00:40) [1]

гг, уже разобрался

function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
 var
   i, j: Integer;
   FormItem: Variant;
 begin
   Result := False;
   //no form on document
 if WebBrowser.OleObject.Document.all.tags("FORM").Length = 0 then
   begin
     Exit;
   end;
   //count forms on document
 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
         //when the fieldname is found, try to fill out
       if FormItem.Item(j).Name = FieldName then
         begin
           FormItem.Item(j).Value := Value;
           Result := True;
         end;
       except
         Exit;
       end;
     end;
   end;
 end;

---

Страницы: 1 вся ветка

Текущий архив: 2007.06.10;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.025 c