Charger un background !

**cincap** · 17/06/2009, 14h01

Bonjour à toutes et à tous,

J'ai une application qui crée une page Web et qui charge une image comme fond de cette page web.

Cela fonctionne correctement si je respecte le chemin de cette image dans l'installation avec InnoSetup.

Code dans Delphi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
'<BODY ms_positioning="gridlayout" leftMargin=0 background="file:///C:/Program Files/mondossier/Background/nature2.jpg">'

Mais si à l'installation, l'utilisateur décide de changer l'emplacement initial de l'application, forcément lors du chargement de l'image par la page web, elle ne sera pas chargée puisque le code écrit dans le module de cette application ne sera pas changé.

Cette image se trouve dans le dossier Background qui lui se trouvera toujours dans le même dossier que l'application.

Y a t'il une solution soit inclure cette image dans le projet Delphi et la charger ou...

Merci pour l'aide éventuelle.

@+,

Cincap

**Linkin** · 17/06/2009, 14h24

Normalement le chemin relatif suffit, non? (vu que la page est dans le même dossier que le dossier Background)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
<BODY ms_positioning="gridlayout" leftMargin=0 background="Background/nature2.jpg">'

sinon tu peux avoir le chemin de l'image à partir de l'application si tu génères ta page à la volée dans un autre répertoire.

**cincap** · 17/06/2009, 16h05

@ Linkin, merci de m'avoir répondu, logiquement oui au niveau du chemin si je crée une page htlm normalement, mais comme je crée une page htlm dynamique avec Delphi, mon code doit être celui du 1er topic en utilisant le caractère ', par acquit de conscience, j'ai encore essayé (car je l'avais déjà fait) directement ta suggestion mais sans résultat.

@+,

Cincap

**Linkin** · 17/06/2009, 16h22

Dans ce cas plutôt quelque chose du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
<BODY ms_positioning="gridlayout" leftMargin=0 background="'+ApplicationPath+'Background/nature2.jpg">'
 
 
function ApplicationPath: String
begin
  Result := 'file:///'+AnsiReplaceStr(ExtractFilePath(Application.ExeName),'\','/');
end;

Il doit y avoir une fonction qui transforme un chemin de fichier clasique vers un chemin de type file:/// (et donc qui gère correctement les espaces, etc.).

**cincap** · 17/06/2009, 17h33

@ Linkin, cela doit être cela car pour récupérer la valeur de mon hint sur ma page Web je mets ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
alt= "'+pchar(PVignette1.hint)+'"

Sinon avec ton idée, je suis en Delphi 6 et à la compilation j'ai l'erreur suivante identificateur non déclaré "AnsiReplaceStr".

Je continue aussi à chercher.

Ok j'ai vu, il faut que je mette l'unité "StrUtils"

Je te tiens au courant

@+,

Cincap

**cincap** · 17/06/2009, 17h44

@ Linkin, Superbe, cela fonctionne correctement avec ta solution, dire que je cherchais depuis un certain moment.

Encore merci de ta patience au service des autres.

@+,

Cincap

Charger un background !

Delphi

Discussions similaires

Partager

Partager