Работа с интернетом в Delphi

[Levhik]

Кто знает каким образом можно сделать программку на Dephi чтобы при нажатии кнопки, на загруженный в окно компонента WebBrowser сайт, в текстовые поля login и password вставлялся нужный текст?

[Пепел Феникса]

поиском пользоваться не пробывали?

понимаю лень, повезло что я случайно наткнулся на него, вот:

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;

[Levhik]

Т.е. эта ф-я должна будет вставлять значение
FormItem.Item(j).Value := Value;
в поле FormItem.Item(j).Name = FieldName при загрузке странички?

[Пепел Феникса]

когда ты её вызовешь тогда и заполнит
не забудь проверь загрузилась страница или нет

[Levhik]

Отлично! На удивление все работает именно так как я хотел. Огромное спасибо!