Zitat von
n000b:
Danke für die antwort leider habe ich es nicht geschafft die paar codes die ich dort gefunden habe zum arbeiten zu bringen^^
if FormItem.Item(iItems).Name = FeldName then
kannst du mir bitte weiter helfen? vll etwas mit "assignet"?
Mfg
ungetestet:
if WB_SubmitFormByElement(Webbrowser1, 'submit') then // "submit" gefunden, abgeschickt;
Delphi-Quellcode:
uses
MSHTML;
function WB_SubmitFormByElement(WB: TWebbrowser; ElementName: string): boolean;
var
IDoc3: IHTMLDocument3;
Inputs: IHTMLElementCollection;
IElement: IHTMLElement;
begin
if Assigned(WB.Document) and
(Succeeded(WB.Document.QueryInterface(IHTMLDocument3, IDoc3))) then
begin
Inputs := IDoc3.getElementsByName(ElementName);
if Assigned(Inputs) then
begin
IElement:= Inputs.item(0, '') as IHTMLElement;
if Assigned(IElement) then
(IElement as IHTMLInputElement).click;
end;
end;
end;