1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal

Ouvrir une page web avec variable dans URL [Résolu]

Signaler
Messages postés
4
Date d'inscription
dimanche 10 mai 2015
Statut
Membre
Dernière intervention
27 juin 2015
 -
Messages postés
4
Date d'inscription
dimanche 10 mai 2015
Statut
Membre
Dernière intervention
27 juin 2015
 -
Bonjour,

Je programme sous Delphi 7 et souhaiterait via un ShellExecute ouvrir une page web, dont l'URL comprendrait une variable. Cette variable correspond à un id récupéré depuis un DBGrid.

Le code est le suivant : 

procedure TForm6.GrilleCellClick(Column: TColumn);
begin
ShellExecute(GetDesktopWindow, 'open', 'PChar(http://monsite.com/'+Grille.Columns[0].Field.Value+'.JPG)', nil, nil, SW_SHOWNORMAL);
end;


Le souci est qu'à la compilation, j'obtiens le message d'erreur suivant : 
Incompatible types : 'Variant' and 'PAnsiChar'


L'un d'entre-vous pourrait-il m'aider s'il vous plait ?

En vous remerciant par avance.
A voir également:

2 réponses

Réponse 1 / 2
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
 42
Bonjour,

je pense qu'un simple "transtypage" explicite devrait suffire ...
procedure TForm6.GrilleCellClick(Column: TColumn);
begin
ShellExecute(GetDesktopWindow, 'open', PChar('http://monsite.com/' + string(Grille.Columns[0].Field.Value) + '.JPG'), nil, nil, SW_SHOWNORMAL);
end;


Attention aussi a placer les apostrophes, qui délimitent la chaine de caractères, correctement.
Réponse 2 / 2
Messages postés
4
Date d'inscription
dimanche 10 mai 2015
Statut
Membre
Dernière intervention
27 juin 2015
Bonjour Cirec,

Cela fonctionne parfaitement. Merci pour la réponse.

Bonne journée.
Répondre Posez votre question