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

Messages postés
4
Date d'inscription
dimanche 10 mai 2015
Dernière intervention
27 juin 2015
- 10 mai 2015 à 14:39 - Dernière réponse :
Messages postés
4
Date d'inscription
dimanche 10 mai 2015
Dernière intervention
27 juin 2015
- 16 mai 2015 à 10:48
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.
Afficher la suite 

Votre réponse

2 réponses

Messages postés
4229
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
3 août 2018
- 10 mai 2015 à 18:06
0
Merci
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.
Commenter la réponse de Cirec
Messages postés
4
Date d'inscription
dimanche 10 mai 2015
Dernière intervention
27 juin 2015
- 16 mai 2015 à 10:48
0
Merci
Bonjour Cirec,

Cela fonctionne parfaitement. Merci pour la réponse.

Bonne journée.
Commenter la réponse de Oeil_de_lynx

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.