VPF::Проблема с заполнением HTML форм

Binarius

Дата 21.2.2010, 19:52 (ссылка)

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

Загрузка ...

Новичок

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

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

Возникла проблема. Написал программку которая автоматически заполняет текстовые поля на сайте, а как заполнить поле в которое загружается файл?
Заранее спасибо

Magister Y0da

Дата 21.2.2010, 20:31 (ссылка)

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

Загрузка ...

Зелёненький

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

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

а какой компонент ты используешь?
если Indy, то копай в сторону TidMultiPartFormData

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

Binarius

Дата 21.2.2010, 21:00 (ссылка)

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

Загрузка ...

Новичок

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

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

Юзаю популярную функцию заполнения полей FillForm
Спасибо за подсказку , поковыряю
PS Я в области Web'a новичок

Код


function FillForm(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  Exit;
  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;

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