Отправка текста в поле TWebBrowser

[Alex Cones]

<input id="ldF1" class="manFlTitle" size="35" style="width: 100%;" name="title" maxlength="140" type="text">

Страница открыта в TWebBrowser, необходимо в это поле отправить 'Some текст'.

Вопрос - как?

[bitSoft]

nu, savetuiu iskati etot component na forme ot TWebBrowser, no ya uveren shto esti ishio mnoghie varianti

[Alex Cones]

Хотелось бы поподробней.

[Виталий Желтяков]

//---------------- Функция заполнения форм на странице Webbrouser ------------//
function FillFormStr(WebBrowser: TEmbeddedWB; 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;
//----------------------------------------------------------------------------//

[bitSoft]

Сообщение от Alex Cones

Хотелось бы поподробней.

Vot Виталий Желтяков uje dal COD,

[Alex Cones]

FillFormStr(WebBrowser1, 'title', 'Test Òåñò');

Еще ругалось на TEmbeddedWB, поменял на TWebBrowser, D7.
P.S.

Vot Виталий Желтяков uje dal COD,

Спасибо, Кэп.

[Alex Cones]

Есть варианты?

[Alex Cones]

Вот нашел похожую функу с TWebBrowser, но выдаёт ту же ошибку

 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;

[Alex Cones]

Удалось выяснить кое-что полезное:
В форму авторизации текст вставляется.

А вот в поле типа имени и текста добавления материала ничего не вставляется и выдает ошибку.

if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then

Я считаю, что здесь необходимо заменить FORM на что-то другое.