Discussion :

[KRis]

bonjour à tous,
je travaille avec un activeX duquel je souhaite utiliser une fonction.
cette fonction prend en paramètre d'entrée un pointer sur un tableau d'entiers.
(pBorders Pointer to an array of longs of distances(m)/durations(sec) )

par contre, la fonction attend pour ce paramètre du type "Integer"... et mon pointeur n'est un pas un entier ?

voici mon code (j'utilise pour mes tests un tableau avec 1 seule valeur):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  TTabIsochrons=array[0..0] of longInt;
  pTabIsochrons=^TTabIsochrons;

procedure TMainForm.bCalcIsochronClick(Sender: TObject);
var unPoint : tagPoint;
    unArray : pTabIsochrons;
begin

  unPoint.x := 823458;
  unPoint.y := 4900143;

  unArray^[0]:=1000;

  if S_OK <> m_RouteLister.CalcIsochrons(m_Route,unPoint,eitDistHorizon,eifNone,unArray,1) then
  begin
    ShowMessage('isochrons calculation failed.');
  end;
end;

La ligne en gras ne passe pas, car elle attend de l'entier pour le paramètre "unArray"....
tout conseil est le bienvenu !

merci,
Christophe

[ShaiLeTroll]

Oh, c'est de la bidouille, c'est pas très conforme, faudrait utiliser une Interface implémentant une Liste ou alors un Tableau Variant
bon, c'est du tableau d'entier, cela fonctionne (Delphi sur C++\VB), je l'ai vu faire avec des TPanel (mais uniquement en Delphi sur Delphi)

Il suffit de caster unArray en Integer

Code :

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

... eitDistHorizon,eifNone, Integer (unArray),1) then ...