TWebBrowser, OAuth y reCaptcha

[dec]

Hola,

Lo primero que yo probaría sería indicar a Windows que nuestro "WebBrowser" ha de emular una versión más o menos "moderna" de Internet Explorer. Por ejemplo, la siguiente unidad (copiada aquí ahora un poco deprisa, creo que funcionará sin cambio alguno) lo que hace es indicar que nuestro "WebBrowser" quiere comportarse como un Internet Explorer 11, si es que este se encuentra instalado en el sistema.

Código Delphi [-]
unit IEBrowserFix;

interface

type
  TIEBrowserFix = class(TObject)
  public
    class procedure Initialize();
    class procedure Uninitialize();
  end;

implementation

uses
  Windows, SysUtils, Registry;

const
  REG_KEY = 'Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION';

  { TIEBrowserFix }

class procedure TIEBrowserFix.Initialize();
const
  // http://msdn.microsoft.com/en-us/libr...wser_emulation
  MAGIC_CONSTANT = 11001;
var
  exeName: string;
begin
  exeName := ExtractFileName(ParamStr(0));
  with TRegistry.Create() do
    try
      RootKey := HKEY_CURRENT_USER;
      if OpenKey(REG_KEY, true) then
      begin
        if not ValueExists(exeName) then
          WriteInteger(exeName, MAGIC_CONSTANT);
        CloseKey();
      end;
    finally
      Free();
    end;
end;

class procedure TIEBrowserFix.Uninitialize();
var
  exeName: string;
begin
  exeName := ExtractFileName(ParamStr(0));
  with TRegistry.Create() do
    try
      RootKey := HKEY_CURRENT_USER;
      if OpenKey(REG_KEY, false) then
      begin
        if ValueExists(exeName) then
          DeleteValue(exeName);
        CloseKey();
      end;
    finally
      Free();
    end;
end;

initialization
  TIEBrowserFix.Initialize();

finalization
  TIEBrowserFix.Uninitialize();

end.

Creo que eso ya podría solucionar el problema, Agustín. Si no es así, tal vez podamos intentar alguna otra cosa.

[[AgustinOrtu]]

David, genio, funciona excelente.

Nunca se me hubiese ocurrido que podria ser eso.

Lo mas probable es que si consigo completar esta biblioteca la publique. Podria incluir esta unidad de codigo en ella? Y adaptarla de acuerdo a mi estilo particular?

[dec]

Hola Agustín,

Me alegro de que funcionase. Por supuesto, puedes adaptar el código a tus necesidades. De hecho la unidad de más arriba lo que hace es añadir en el registro la clave correspondiente al iniciarse el programa, y, borrar dicha clave cuando el programa se cierra. No hay nada de particuar ahí, lo que tenemos que hacer es escribir la clave de marras en el registro.

[[AgustinOrtu]]

Bueno al menos la parte del OAuth ya esta funcionando bien y se puede recuperar facilmente el token

Aca esta el codigo que lo implementa y hay demo para Vcl y FMX

https://github.com/ortuagustin/Delph.../Mercado Libre

Saludos!