RestDemo - Verbindung zu Google funktioniert nicht mehr

[lowmax_5]

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

[mjustin]

Ist die INI Datei mit den Einstellungen vorhanden? (diese wird in procedure Tfrm_Main.LoadConnectionData benötigt)

Ich nehme an es ist dieses Demo: https://github.com/Embarcadero/RADSt.../master/Object Pascal/Database/RESTDemo

[lowmax_5]

Ja, dieses Demo ist es:

https://github.com/Embarcadero/RADSt...abase/RESTDemo

Die ini ist bei der Exe dabei und hat auch die richtigen Werte.

[hoika]

Hallo,
das gleiche Problem habe ich gerade auch mit einer alten TMS-Komponente.
Die haben das jetzt umgebaut, es wird der Standardbrowser benutzt.
Die umgebaute/neue Komponente habe ich gekauft ...
Das war mir sonst zu aufwendig.