Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 09-06-2006
chavetaz chavetaz is offline
Miembro
 
Registrado: oct 2003
Ubicación: Buenos Aires, Argentina
Posts: 29
Poder: 0
chavetaz Va por buen camino
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]
__________________
Delphi fan
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Progreso de del browser jorge1987 Internet 4 19-05-2005 04:01:35
Problemas al abrir una sesion dentro de un frame manitoba PHP 13 06-09-2004 11:02:24
¿Como iniciar una sesión en equipos remotos de una LAN? jpep Internet 2 31-03-2004 21:53:37
Sobre Web Browser igest2000 Internet 5 03-11-2003 15:56:40


La franja horaria es GMT +2. Ahora son las 14:17:02.


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