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

Question

Posez votre question Signaler

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

Oeil_de_lynx

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 : Oeil_de_lynx

Messages postés: 4
Date d'inscription: dimanche 10 mai 2015
Dernière intervention: 27 juin 2015

- 16 mai 2015 à 10:48

Delphi / Pascal Posez votre question Signaler

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

A voir également:

Ouvrir une page web avec python
Delphi sw_shownormal - Meilleures réponses
Delphi url - Meilleures réponses
Ouvrir une page web depuis vb - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
Javascript : Ouvrir une page web sans bordure (internet explorer) - CodeS SourceS - Guide
Ouvrir une page web avec mozilla avec python ✓ - Forum - Python
Ouvrir une page web via vb.net + arguments contenu dans une textbox ✓ - Forum - VB.NET
VB 2008 : Ouvrir une page web avec le navigateur par défaut ✓ - Forum - VB.NET

Votre réponse

Répondre au sujet

2 réponses

Votre réponse

Répondre au sujet

Posez votre question

Cirec · Answer 1 · 2015-05-10T18:06:12+0200

Signaler Commenter la réponse de Cirec

Cirec

Messages postés: 4229
Date d'inscription: vendredi 23 juillet 2004
Statut: Modérateur
Dernière intervention: 3 août 2018

39 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.

Oeil_de_lynx · Answer 2 · 2015-05-16T10:48:40+0200

Signaler Commenter la réponse de Oeil_de_lynx

Oeil_de_lynx

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.

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

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

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