archivo html como recurso

[danielmj]

Hola, buscando información encontré lo que buscaba en la web de ian marteens según su codigo que es este...

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject); 
begin
   WebBrowser1.Navigate('res://ResourceTest.exe/principal'); 
end;

Cargaría un archivo html en un navegador siendo su archivo .rc este...

principal   HTML  principal.htm
secundaria  HTML  secundaria.htm
imagen      JPEG  imagen.jpg

Según esto, se cargaría la web "principal.htm" en un navegador. Bien, yo he intentado hacer lo propio y no me funciona. Mi código...

Código Delphi [-]
...
web.Navigate('res://gestor.exe/pag');
...

Y mi archivo .rc:

pag      html    "D:\proyectos delphi\gestor\default.html"

El archivo .rc lo he agregado al proyecto con lo que se supone que delphi se encargará de convertirlo a .res. El resultado es que el navegador dice que no se puede cargar la página por que no existe.

¿alguna idea? un saludo y gracias.

[ecfisa]

Hola danielmj.

Seguí exáctamente los pasos sugeridos por Ian Marteens y no tuve problemas, te adjunto la prueba para que la puedas cotejar (cualquier dificultad por favor avisame).

Saludos

[danielmj]

hola ecfisa,

He mirado tu codigo y lo he copiado tal cual, cambiando en el .rc el nombre de la pagina web por la que quiero mostrar en mi caso, he probado a encerrarla entre comillas dobles o sin ellas y sigue sin funcionarme...


Como ves justo arriba de la ventana capturada está la linea del archivo de recursos y lo que tengo en codigo delphi es esto:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
      web.Navigate('res://'+Application.ExeName+'/principal');
end;

Aprovecho para preguntar una cosa, delphi usa por defecto IE, ¿no hay forma de usar otro navegador como firefox o chrom? he intentado registrar la librería mozctl.dll pero me da error y no me deja registrarla ni haciendolo como administrador ¿hay forma de usar otro navegador?

Un saludo y gracias

[ecfisa]

Hola danielmj

Empezado por danielmj

hola ecfisa,

He mirado tu codigo y lo he copiado tal cual, cambiando en el .rc el nombre de la pagina web por la que quiero mostrar en mi caso

¿ Pero probaste si funcionaba antes de cambiar el nombre de la pagina web ? Por que de no ser así, tal vez pueda ser la versión de Delphi, S.O, navegador...

Saludos

[danielmj]

Hola, si, si que probe tu codigo antes de nada y si, funciona correctamente tanto en la version trial de xe7 como en delphi 7 (ambos bajo win7). Así que no sé donde está el error por cierto, también probe mi linea de codigo en delphi 7 y tampoco funciona.

Un saludo.

[ecfisa]

Hola danielmj.

Que extraño... Otra consulta, ¿ Guardaste en disco la página que intentas ver y no muestra ?

Saludos

[danielmj]

hola ecfisa, si, de echo visto que no funcionaba, copie el archivo html donde mismo está el ejecutable. En el trial de xe7 (no sé en otras versiones) el ejecutable está dentro de win32\Debug o win64\Debug y a parte de eso, tambien existe el archivo html en la carpeta o directorio con el resto de archivos del proyecto, *.pas, *.dfm... etc pero no hay forma. Y como te dije anteriormente, en delphi 7 tampoco funciona aunque insisto, tu ejemplo va perfectamente, es tal como yo lo hago que no va bien.

No sé si podría enviarte un archivo zip con todo para que tu lo vieras, si es así ¿donde puedo subir ese archivo? ¿al ftp del foro?

Un saludo y gracias por tu tiempo.

[ecfisa]

Hola danielmj.

No lo subas al FTP, comprime fuentes + .htm + carpeta y usa las opciónes de adjuntar del mismo editor de mensajes.

Opción 1:


Opción 2:


Saludos

[danielmj]

Hola, gracias espero que se haya adjuntado bien. Ahora mismo estoy probando esta vez con d7 y nada, no lo consigo, ya por probar he usado un archivo con extension "htm" en lugar de "html" pero sigue sin funcionar.

Un saludo

[ecfisa]

Hola danielmj.

Si te fijas, Mozilla Firefox tampoco puede habrir la página desde el archivo "default.html". Pienso que un problema es como guardas la página desde Mozilla Firefox.
En el ejemplo que te adjunté realicé el guardado del siguiente modo: Archivo -> Guardar página como...(Ctrl+S) -> Tipo: Página web, completa (*.htm;*.html). Al finalizar el guardado deberías tener una carpeta similar a: "default_archivos".

Puder ver esto:

Tu archivo .rc es:

DEFINE #23 HTML
pagina html default.html

Y debería ser:

#define HTML 23
default html default.html

Y también que incluiste en el proyecto a default.html.

Saludos

[danielmj]

Hola ecfisa,

uhmm no termino de captarlo, veras, he cambiado mi .rc a esto:

#DEFINE  HTML   23
pagina  html default.html

Y delphi me dice esto a la hora de pulsar F9

[BRCC32 Error] default.rc(1): Expecting resource name or resource type name

En cuanto al html lo he sacado del proyecto y solo se carga desde el archivo de recursos. No consigo que corra.
Sobre Firefox, en mi caso si puede abrirlo, ten encuenta que es un html creado por mi, sin imagenes ni nada que solo avisa en caso de error en la conexion a internet, este es el codigo html:

<html>
<head>
<body><font face="courier" size=4 color= black><center>
PSRGestor. No se ha detectado conexi&oacute;n a internet, <br>
comprueba el estado de esta y vuelve a intentarlo.
</body></head>
</html>

Un saludo y gracias.

[ecfisa]

Hola danielmj.

Empezado por danielmj

...
Sobre Firefox, en mi caso si puede abrirlo, ten encuenta que es un html creado por mi, sin imagenes ni nada que solo avisa en caso de error en la conexion a internet, este es el codigo html:

<html>
<head>
<body><font face="courier" size=4 color= black><center>
PSRGestor. No se ha detectado conexi&oacute;n a internet, <br>
comprueba el estado de esta y vuelve a intentarlo.
</body></head>
</html>

Ha, pensé que era una página guardada... En este caso tendría que revisar nuevamente, cualquier avance te aviso.

Saludos

[danielmj]

gracias por tu interes ecfisa. un saludo

[danielmj]

Hola,

Ya lo conseguí, el error estaba al omitir la definición del html, el código debe ser así:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  web.Navigate('res://'+Application.ExeName+'/html/web');
end;

Y el archivo .rc tal que este:

web     html    "default.html"

Bueno, ahora puedo seguir adelante, un saludo y gracias por tu tiempo ecfisa.