Discussion :

[Malone]

Bonjour,

Je suis sur un petit projet composé d'un client delphi et d'une appli php.
Le client à besoin de construire une partie de son menu en requetant l'appli php, pour afficher des liens web définis dans le portail php.
Le client recupere un flux xml de l'appli php, et le parse pour créer son menu, jusqu'a present je faisais ça au lancement du client, mais si le serveur web est long à repondre cela "bloque" l'appli.
J'ai donc voulu faire ça dans un thread, en suivant la faq delphi.

Je bloque sur l'ajout de l'item dans le menu qui me génere une violation d'accés....
voici la partie de création du menu:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    for j:=0 to xmldoc.ChildNodes.Nodes[I].ChildNodes.Count-1 do
      begin
        if xmldoc.ChildNodes.Nodes[I].ChildNodes.nodes[j].nodename='link' then
         begin
            //construit l'item menu lien web
            ItemMenu:=TMenuItem.Create(Application);
            ItemMenu.Caption:=xmldoc.ChildNodes.Nodes[I].ChildNodes.nodes[j].AttributeNodes['name'].text;
            ItemMenu.Hint:=xmldoc.ChildNodes.Nodes[I].ChildNodes.nodes[j].AttributeNodes['url'].text;
            ItemMenu.OnClick:=FicMain.Link_Browser;     
            ficmain.Menu_links.Insert(ficmain.Menu_links.Count,ItemMenu);// <= violation d'accés
            ficmain.Menu_main.MenuAdded;
         end;
       end;

Apparement quand on touche a un objet vcl il faut sortir le code qui le modifie dans une methode appelée par synchronise, donc j'ai tenté :

Code :

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

1
2
3
4
5
6
7
8
9
 
      procedure MenuThread.Updatemenu;
  var
  ficmain:Tf_main;
    begin
 
            ficmain.Menu_links.Insert(ficmain.Menu_links.Count,ItemMenu_org);
            ficmain.Menu_main.MenuAdded;
    end;

et remplacé les lignes

Code :

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

1
2
3
 
            ficmain.Menu_links.Insert(ficmain.Menu_links.Count,ItemMenu);
            ficmain.Menu_main.MenuAdded;

par Synchronize(Updatemenu) (ItemMenu_org est une variable de la classe du thread, que j'initialise avec ItemMenu avant d'apeller le Synchronize).

Donc si quelqu'un peut m'aiguiller merci beaucoup, je suis aussi preneur d'une eventuelle solution plus adapté à cette problematique de creation du menu au lancement

merci d'avance.

[Clorish]

je ne suis pas expert en creation ed menus dynamique mais je te conseille d'abort de tester ton processus de creation des menus directement depuis la form, en chargeant par exemple, un XML sur le HDD.
Si cela marche, tu peux delocaliser l'appel (initialiement fait dans le create) a la fonction de creation du menu dans un thread, via la methode synchronise.
La dessus aucun doute : Tout appel a la VCL doit se faire dans le thread principal donc via une procedure synchromise.

D'autre aprt, il faut egalemetn s'assurer que le thread n'est pas executé avant la creation complete de la fiche, sinon tu risque d'avoir des problemes de parentees ...

[Malone]

La creation du menu marche parfaitement avec l'ancienne methode, donc directement sur la form de base.
Tu me conseille donc de laisser la methode de construction sur la form principale, et de delocaliser uniquement son appel dans le thread?

[Clorish]

tout a fait
mais en passant par une methode d'appel specialisée si ta fonction n'ets pas compatible avec le parametre de la fonction synchronize.
Sinon directement via synchronise.

[Malone]

J'avoue ne pas tout comprendre sur le Synchronize...
J'ai essayé de faire appel dans le executre du thread a ma methode de construction du menu (qui est dans la form principale) avec un Synchronize:

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure MenuThread.Execute;
  var
  ficmain:Tf_main;
            begin
  { Placez le code du thread ici }
  Self.Synchronize(ficmain.Xml_Menu_Construction);
  {fin thread}
end;

Toujours la violation d'accés...
Si qqun à une doc expliquant en profondeur le fonctionnement des threads, vu que sur la faq c'est relativement court, merci ^^

[Clorish]

je pense que ca ne viens pas du thread mais de ta fonction ...
Normalement ca devrais marcher.