Discussion :

[fredo_lefran]

Bonjour,

Je crée un activeX et je voudrais qu'il prenne un parametre. Je sais que dans la page HTML, il faut mettre la balise <PARAM...> mais je ne sais pas comment recuperer ce parametre dans le projet Delphi.

Merci d'avance.


Par exemple prenons, un fichier qui contient

Code :

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

1
2
3
4
5
6
7
8
9
10
11
<OBJECT
	  classid="clsid:D75289A2-ABAD-4D2C-B968-E65C0BD05019"
	  codebase="./ActiveFormProj1.ocx#version=1,0,0,3"
	  width=250
	  height=200
	  align=center
	  hspace=0
	  vspace=0
>
<param name="DataType" value="XMLDATA">
</OBJECT>

Est-ce que je peux récupérer dans delphi la valeur de mon paramètre?

Merci

[PyRoFlo]

Dans une application "classique", les paramètres sont gérés ainsi:

Code :

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

1
2
3
4
5
6
7
8
function ListParam: Integer;
var i: Integer;
begin
  for i := 0 to ParamCount do
    Liste.Add(ParamStr(i));
 
  Result := ParamCount;
end;

Cette petite fonction charge tous les paramètres reçus par l'application dans une TStringList et te retourne le nombre de paramètres.

Utilisation:

Code :

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

1
2
3
4
5
6
7
8
9
10
var i: Integer;Liste: TStringList;
  Liste := TStringList.Create;
 
  ShowMessage(IntToStr(ListParam));
 
  for i := 0 to Liste.Count - 1
    ListBox1.AddItem(Liste.Strings[i],nil);
 
  Liste.Free;
end;

A adapter selon tes besoins

[fredo_lefran]

Salut,

En fait je voudrais savoir à quoi correspondent les balises <param>.

Est-il possible en utilisant ces balises, de mettre une valeur à un paramètre et de récuperer ce parametre sous delphi.

Est-ce tu peux m'aider?

Merci

[Reisubar]

Traduction rapide d'un article sur Usenet :

1. Declare une variable dans ta section private du même nom que celles que tu fais passer en param. Prenons l'exemple ici d'une variable username...

2. Implémente ensuite getters et setters :

Code :

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

1
2
    function Get_Username: WideString; safecall;
    procedure Set_Username(const Value: WideString); safecall;

Code :

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

1
2
3
4
function <>.Get_Username: WideString;
begin
  Result := Username;
end;

Code :

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

1
2
3
4
procedure <>.Set_Username(const Value: WideString);
begin
  Username := Value;
end;

...et teste. Je serais curieux de voi si ca marche...

[fredo_lefran]

Je viens de faire ce que tu m'as dit:

Dans Delphi:
Declaration d'un variable en private (Username)
Definition des methodes Get et Set

Dans mon activeX, j'ai une fiche avec dessus un bouton et une zone de Text Edit

Sur le Clique du bouton, je fais :
Edit1.Text := Get_Username;

Dans ma page HTML :
Appel de l'activeX ...
Appel de la variable : <PARAM name="Username" value="TEST">


Et rien ne s'affiche. Sinon peux-tu me donner l'adresse où tu as trouvé ce que tu m'as dit.

Je te remercie.

[Reisubar]

Voilà l'URL :

http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=7ca1md%24mii11%40forums.borland.com&rnum=4&prev=/groups%3Fq%3Ddelphi%2BactiveX%2Bparam%26hl%3Dfr%26lr%3D%26ie%3DUTF-8%26selm%3D7ca1md%2524mii11%2540forums.borland.com%26rnum%3D4

Bon courage ;-)

[fredo_lefran]

Cela marche mais il ne faut pas définir deux méthodes mais une propriété et Delphi crée les deux accesseurs (Get et Set).

Salut