Discussion :

[davels]

Bonjour, j'utilise la fonction EnumChildWindows dans une class que j'ai créé. (j'en suis au début de l'apprentissage POO)

Grace à la fonction suivante, je récupère le Handle du CommandLine AutoCAD (EnumChildWindows se trouve dans la function InitialiseAutoCAD de la même class)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TOfmlArray.InitialiseAutoCAD;
var
  pConAcadFile, DwgTemplate, ArxPath : String;
begin

      ...

      EnumChildWindows(AutoCadOle.Application.HWND, @GetCommandLineHandle, 0);
      ...
end;

function GetCommandLineHandle. La variable CommandLineHandle est de type Handle et déclaré en public dans ma class

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
function TOfmlArray.GetCommandLineHandle(H:HWND; L: Integer): Bool; stdcall;
var WText,ClassName      : Array[0..255] of Char;

begin

      GetClassName(H, ClassName, SizeOf(ClassName));
      GetWindowText(H, WText, SizeOf(WText));
      if (WText = 'Headlands') then
      begin
        Result := False;
        CommandLineHandle := H;
      end
      else Result := True;
end;

Voici ma class (en bref)

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
TOfmlArray = class
    ...
  public
    CommandLineHandle : HWND;
    vpConConfHandle : HWND;
    AutoCadOle : variant;

    function GetCommandLineHandle(H:HWND; L: Integer): Bool; stdcall;
    procedure DelphiMsgToAutoCAD(CadHwnd : HWND; Cmd : String);
    procedure StartAutoCadConfigurator;
    procedure HideAutoCadConfigurator;
    procedure InitialiseAutoCAD;

    constructor Creation();

  end;

Mon problème est le suivant, si j'exécute le EnumChildWindows hors de ma class, tout fonctionne nickel!
Dès que je l'intègre (avec la fonction qui lui est associée "GetCommandLineHandle" ) rien ne va plus, j'ai une erreur du compilateur m'indiquant "Variable requiered" et je ne sais pas pourquoi étant donné que j'ai juste adapté le tout dans ma class sans modification du code!

[ShaiLeTroll]

C'est un problème de pointer de procédure, qui est différent entre un pointeur procédure standard et celui d'une méthode, sur le forum ce fut un sacré truc à étudier (il est passé en FAQ, la recherche ne marche plus trop bien depuis la maintenance de tout à l'heure), c'est assez sportif de convertir l'un vers l'autre, donc le plus simple est de mettre son code en non objet, dans les unités delphi, cela arrive, ...

[davels]

J'avoue ne pas bien comprendre ton explication mais mes connaissances en pointer sur a peu près ... nulle

Merci, je vais laisser comme c'était alors

[anapurna]

salut

c'est normale la premiere fois tu utilise une methode dites "statique"
alors que le methode objet sont dite "dynamique"
leur traitement en memoire et differrente

en fait la methode dymamique est un pointer
du fait que la class le contenant est elle meme un pointer

tu est obliger de te servir de ta methode statique

interface

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
TOfmlArray = class
    ...
  public
    CommandLineHandle : HWND;
    vpConConfHandle : HWND;
    AutoCadOle : variant;
 
    procedure DelphiMsgToAutoCAD(CadHwnd : HWND; Cmd : String);
    procedure StartAutoCadConfigurator;
    procedure HideAutoCadConfigurator;
    procedure InitialiseAutoCAD;
 
    constructor Creation();
 
  end;
 
 function TOfmlArray.GetCommandLineHandle(H:HWND; L: Integer): Bool; stdcall;
inplementation
 
function GetCommandLineHandle(H:HWND; Lb:Tlist): Bool; 
var WText,ClassName      : Array[0..255] of Char;
 
begin
   GetClassName(H, ClassName, SizeOf(ClassName));
   GetWindowText(H, WText, SizeOf(WText));
   if (WText = 'Headlands') then
   begin
       Result := False;
       lb.AddObject(Tobject(H));
     end
     else Result := True;
end;
 
procedure TOfmlArray.InitialiseAutoCAD;
var
  pConAcadFile, DwgTemplate, ArxPath : String;
begin
     ...
     lst := Tlist.create;
      EnumChildWindows(AutoCadOle.Application.HWND, @GetCommandLineHandle,integer(lst));
    if lst.count > 0 Then 
      CommandLineHandle := integer(lst.[0])
    Lst.free;
      ...
end;

@+ Phil

[davels]

Hou la ... c'est encore plus compliqué à comprendre

Merci quand même mais afin de comprendre ce que je code je pense que je vais laisser tel quel et continuer mon apprentissage petit à petit

[anapurna]

salut

pour compliqué les chose tu peut rendre une méthode statique en methode dynamique

faites une recherche sur tmethode

@+ Phil