Hallo,
wenn ich mit dem RestDemo (..\RADStudio10.4Demos\Object Pascal\Database\RESTDemo) versuche ein Verbindung zu Google herzustellen,
dann kann ich den Dialog nicht sauber ausführen (Wichtiger Button 'zulassen' ist ausgegraut....)
Das interne Auth-Formular verwendet hier meines Wissens den IE, denn bei Direktaufruf über den IE erhalte ich einen Scriptfehler. Dieses würde das problem zumindest erklären.
Das interne Auth-Formular Tfrm_OAuthWebForm löst nach einem erfolgreichen Redirekt die benötigten Informationen aus der
Url und übergibt diese an das Programm.
Folgender Code führt dieses durch:
Code:
procedure TForm1.OAuth2_GoogleTasks_BrowserTitleChanged(const ATitle: string;
var DoCloseWebView: boolean);
begin
if (StartsText('Success code', ATitle)) then
begin
edt_GoogleTasks_AuthCode.Text := Copy(ATitle, 14, Length(ATitle));
if (edt_GoogleTasks_AuthCode.Text <> '') then
DoCloseWebView := TRUE;
end;
end;
Meine Frage ist nun, ob man diesen Prozess auch mit dem Aufruf des Standard-Browsers (z.B. FF) durchführen kann?
Da habe ich dann jedoch keine Idee, wie man hier an die
Url kommt, um die Parameter dort auszulesen, da der Aufruf ja nicht über TWebBrowser gekapselt ist.
Gibt es ggf. eine Möglichkeit dieses z.B. mit der TEdgeBrowser-Komponente umzusetzen oder eine andere Möglichkeit, um den Auth-Dialog damit durchzuführen?
OS: Win10
Delphi-Version ist: 10.4E