Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Iniciar sesion y abrir un browser (https://www.clubdelphi.com/foros/showthread.php?t=32585)

chavetaz 09-06-2006 21:37:25

Iniciar sesion y abrir un browser
 
Hola a todos:
Necesito hacer el siguiente embrollo:
Tengo un programa que chequea si llegaron nuevos mails a una casilla, ademas esta casilla tiene acceso por web, asi que mi idea es mostrar un dialogo informando que hay nuevos mails y mediante un boton ir a la casilla por web y loguearla automaticamnete, o sea, hacer click, que se abra el navegador y ya este logueado a la casilla.
Yo uso shellexecute para arrancar el navegador, le agregue la siguiente informacion al url "?username=usuario&password=clave", obviamente tan facil no es la solucion, aparentemente los parametros van codificados de alguna manera....

Encontre este codigo en un hilo anterior y parece que es lo que necesito ( mas o menos) pero esto funciona para el navegador integrado en delphi:
Código Delphi [-]
function VarArrayFromString(const S: String): Variant;
begin
  Result := Unassigned;

  if S <> '' then
  begin
    Result := VarArrayCreate([0, Length(S) - 1], varByte);
    Move(Pointer(S)^, VarArrayLock(Result)^, Length(S));
    VarArrayUnlock(Result);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  PostData: OleVariant;
  Headers: OleVariant;

begin
  PostData := VarArrayFromString('campo1=valor1&campo2=valor2');
  Headers := 'Content-Type: application/x-www-form-urlencoded'#13#10;

  Browser.Navigate('http://tu/pagina/web.html', EmptyParam, EmptyParam, PostData, Headers);
end;
[FONT=verdana,geneva,lucida,'lucida grande',arial,helvetica,sans-serif]

Como hago para abrir un navegador (externo a delphi) y pasarle la informacion de login?

Espero haberme expresado en forma clara.
Gracias por su tiempo a todos.[/font]


La franja horaria es GMT +2. Ahora son las 19:54:51.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi