Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Abrir una pagina con delphi (https://www.clubdelphi.com/foros/showthread.php?t=43880)

Muchachin 23-05-2007 01:22:18

Abrir una pagina con delphi
 
Hola, quisiera ver si me pueden ayudar, estuve revisando y no se si esto sea posible:

Abrir una pagina de la intranet de mi empresa. La pagina en si, es un script de php, no se si esto sea posible, y si es posible me gustaria saber en que forma hacerlo.

Estuve revisando y probe con la funcion ShellExecute y no me funciono, use el codigo que ponen en este link http://www.clubdelphi.com/foros/showthread.php?t=27140

Gracias de Antemano

dec 23-05-2007 01:52:48

Hola,

Dices "no me funcionó", pero no dices si obtienes un mensaje de error, qué mensaje de error, etc. Cuanta más información proporciones más sencillo resultará intentar echarte una mano, ¿no te parece?

En todo caso,... supongo que será cuestión de proporcionar una URL válida... vamos, digo yo:

Código Delphi [-]
const
  URL = 'http://www.clubdelphi.com/index.php';
begin
  ShellExecute(Handle,'open',URL,nil,nil,SW_NORMAL);
end;

¿Qué URL utilizas para entrar a la página Web de tu empresa cuando la escribes en un navegador?

Esa es la URL que, probablemente, tengas que utilizar en la función "ShellExecute".

Muchachin 24-05-2007 22:30:05

Oye probe el codigo que pusiste y ese si me funciono... mira este es el que tenia antes y no me servia, no marcaba error ni nada, simplemente no hacia nada

Código:

ShellExecute(Self.Handle, PCHar('open'), PChar('iexplorer.exe'),PChar('http://www.clubdelphi.com/index.php'), nil, SW_SHOWNORMAL)
probe con el ejemplo que colocaste y si se me abrio la pagina, pero la abrio encima de una ventana ya abierta... hay forma de que lo abra en una nueva ventana de ie??

//Lo edite para cambiar la pagina del ejemplo, era una lista de patrocinadores.

dec 24-05-2007 22:52:49

Hola,

Código Delphi [-]
uses
  ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
const
  URL = 'http://www.clubdelphi.com/index.php';
begin
  ShellExecute(Handle,'open','iexplore.exe',URL,nil,SW_NORMAL);
end;

En mi sistema no existe el programa "iexplorer"... pero sí "iexplore". :)

Muchachin 31-05-2007 00:44:57

gracias, no me habia fijado que tenia puesto iexplorer.exe XD...

claro que copie el ejemplo del tema que puse en el primer post...creo que ese igual esta mal. Y al cambiarlo por iexplore.exe me abrio la pagina en otra ventana, justo como queria XD


La franja horaria es GMT +2. Ahora son las 01:13:33.

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