Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-02-2007
Avatar de jorgegetafe
jorgegetafe jorgegetafe is offline
Miembro
 
Registrado: dic 2006
Posts: 238
Poder: 18
jorgegetafe Va por buen camino
Exclamation Enlaces a pagina web con IE7

Saludos, quiero hacer en mi programa unos accesos directos a paginas web, tengo internet explorer 7 y no me funciona ninguno de estos procedimientos en mi form pongo:


uses UrlMon

procedure TForm1.Button1Click(Sender: TObject);
begin
HlinkNavigateString(Nil,'http://www.google.es/');
end;


Y tambien el otro, que es el que yo he usado cuando me ha hecho falta:

Con uses ShellApi:

procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(Form1.Handle,nil,PChar('http://www.google.es/'),'','',SW_SHOWNORMAL);
end;

El error que me aparece es: "[Error] Unit1.pas(735): Statement expected, but expression of type 'HRESULT' found" )

Creo que es por una inconpatibilidad con IE7, ¿alguien sabe como hacerlo de otra forma?

¿o me tengo que aguantar y no puedo poner enlaces a paginas de internet?

muchas gracias.
Responder Con Cita
  #2  
Antiguo 05-02-2007
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
No creo que sea eso. Es más, el error que dices parace que te da en compilación, por lo tanto ni siquiera "ha entrado" en escena el Explorer.

Ambas líneas funcionan perfectamente en XP+IE7 (compilado con Delphi 6).
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 05-02-2007
Avatar de jorgegetafe
jorgegetafe jorgegetafe is offline
Miembro
 
Registrado: dic 2006
Posts: 238
Poder: 18
jorgegetafe Va por buen camino
Cita:
Empezado por Neftali
No creo que sea eso. Es más, el error que dices parace que te da en compilación, por lo tanto ni siquiera "ha entrado" en escena el Explorer.
Ambas líneas funcionan perfectamente en XP+IE7 (compilado con Delphi 6).
Wueno y que hago? como veras esta todo bien escrito, he añadido sus unidades correspondientes y nada.

¿Alguna idea?

gracias.
Responder Con Cita
  #4  
Antiguo 05-02-2007
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Exactamente qué línea es la que te está dando error.
¿Tienes componentes o librerías externas que estés utilizando en ese programa?

A veces me ha pasado que una línea que estaba bien, me estaba dando errores de compilación y era debido a que en otra unit había otra función con el mismo nombre y otro tipo de parámetros.

Sabiendo la línea que da el error, para asegurarte, puedes hacer las llamadas a las funciones añadiendo delante la unit a la que pertenecen, para evitar confusiones...

Código Delphi [-]
  // por ejemplo...
  URLMon.HlinkNavigateString(Nil,'http://www.google.es/');
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #5  
Antiguo 05-02-2007
Avatar de Ñuño Martínez
Ñuño Martínez Ñuño Martínez is offline
Moderador
 
Registrado: jul 2006
Ubicación: Ciudad Catedral, Españistán
Posts: 6.000
Poder: 25
Ñuño Martínez Tiene un aura espectacularÑuño Martínez Tiene un aura espectacular
Creo que lo tengo. Prueba esto a ver:
Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject); 
VAR
  Foo: HINSTANCE;
begin 
  Foo := ShellExecute(Form1.Handle,nil,PChar('http://www.google.es/'),'','',SW_SHOWNORMAL); 
end;
Ten en cuenta que lo he pueso de memoria y no he comprobado nada, pero me ha llegado la inspiración.
__________________
Proyectos actuales --> Allegro 5 Pascal ¡y Delphi!|MinGRo Game Engine
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Buscar y recorrer enlaces desde una página... raxsys Internet 1 04-10-2004 17:49:06
enlaces en QReport jymy788 Varios 1 28-09-2004 11:45:34


La franja horaria es GMT +2. Ahora son las 14:06:32.


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