Ok jeg fixede lige dette, og det ser ud til at virke:
function SubmitForm(WebBrowser: TWebBrowser; KnapNavn: 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
try
if FormItem.Item(J).Name = KnapNavn then
begin
FormItem.Item(j).Click;
Result := True;
end;
except
end;
end;
end;
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
try
if FormItem.Item(J).Name = FieldName then
begin
FormItem.Item(j).Value := Value;
Result := True;
end;
except
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate('
http://www.google.com');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
FillForm(webbrowser1, 'q', 'Dette er en test');
SubmitForm(webbrowser1, 'btnG');
end;
"Harald" <swobu@kroning.dk> skrev i en meddelelse
news:3e04b25c$0$217$edfadb0f@dread14.news.tele.dk...
> Hej
>
> Jeg skal lave et program der henter en HTML side med en formular på.
> Programmet skal så udfylde denne formular og "trykke" på send knappen.
Hvad
> skal jeg lede efter?
>
> Jeg kan sagtens hente siden ved at bruge f.eks. TWebBrowser på internet
> fanen, men hvad så?
>
> Jeg bruger Delphi 7 prof.
>
> Mvh
> HK
>
>
>
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com).
Version: 6.0.427 / Virus Database: 240 - Release Date: 06-12-2002