Könntest Du statt des IEs auch den TWebBrowser innerhalb Deiner Anwandung nutzen?
Wenn ja, ließe sich die Eingabe programmintern lösen.
Weiß nicht mehr, wo ich das herhabe:
Delphi-Quellcode:
// ...HTML Formulare mit TWebBrowser automatisch ausfüllen lassen?
function WBFillForm(wb: TWebBrowser; sFieldName: string; sValue: string): Boolean;
var
i, j: Integer;
FormItem: Variant;
begin
Result := False;
//no form on document
if wb.OleObject.Document.all.tags('FORM').Length = 0 then begin
Exit;
end;
//count forms on document
for I := 0 to wb.OleObject.Document.forms.Length - 1 do begin
FormItem := wb.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 AnsiUpperCase(FormItem.Item(j).Name) = AnsiUpperCase(sFieldName) then begin
FormItem.Item(j).Value := sValue;
Result := True;
end;
except
Exit;
end;
end;
end;
end;
Ansonsten schau mal bitte hier:
https://www.delphi-treff.de/tipps-tr...ern-ermitteln/
Dort ist beschrieben, wie Du an eine Instanz vom IE kommen kannst. Die bekommst Du dann als IWebbrowser2 (definiert in SHDocVw). Mit der so erhaltenen Instanz kannst Du dann alles machen, was die Schnittstelle zulässt.
Da der TWebBrowser in der gleichen
Unit definiert ist, würde es mich wundern, wenn Du über einen so "gefundenen" IE nicht das Gleiche anstellen kannst, wie mit 'nem TWebBrowser.