udfyldning af HTML form i Delphi

Henter du din side i en twebbrowser ?

Stoney

Næh, men det kan jeg da gøre hvis det gør det nemmere... ;-)

Husk at tilføje mshtml i uses



procedure TForm1.Button1Click(Sender: TObject);
var
TheForm: IHTMLFormElement;
begin
// f er navnet på formen
TheForm := (WebBrowser1.Document as IHTMLDocument2).all.item('f', 0)
as IHTMLFormElement;
if Assigned(TheForm)
then begin
// q er navnet på feltet
(TheForm.item('q', 0) as IHTMLInputElement).value := 'Min tekst i webformular';
TheForm.submit;
end;
end;

Stoney