Discussion :

[Rayek]

Delphi 2005
Composants : TjvCaptionPanel, TWebbrowser, ScrollBox

Je créés dynamiquement dans une scrollbox, un jvCaptionPanel qui lui même recoit un WebBrowser.
Je gère mes actions et le problème survient lors de la destruction des composants.

EOSError, erreur système. code 5 : Accès refusé

Voici ma procédure de destruction des composants

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
 
procedure DestroyItems(sName : String);
var
  i,j : integer;
  webCompo,panelCompo : TControl;
begin
 
 PanelCompo := TJvCaptionPanel(frmMain.ScrollBox1.FindComponent('jvcn' + sName));
 try
   WebCompo := TWebbrowser(PanelCompo.FindComponent('web'+ sName));
   TWebBrowser(webCompo).OnNavigateComplete2 := nil;
   TOleControl(WebCompo).Free;
 finally
   PanelCompo.Free;
 end;
end;

J'ai essayé avec TOleControl().free, TControl.Free et WebCompo.Free, j'ai toujours une erreur au moment ou je detruis le jvCaptionPanel.

Si quelqu'un voit d'où vient le problème ^^

Tant que j'y suis la procedure de construction

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
 
procedure CreateItems(sName : string;lst : TStringList);
var
  jvcnPanel : TjvCaptionPanel;
  WebB : TWebBrowser;
  Compo : TComponent;
 
  i : integer;
begin
 
  jvcnPanel := TJvCaptionPanel.Create(frmMain.ScrollBox1);
  With jvcnPanel do
  begin
    Align := alTop;
    Buttons := [capRestore];
    CaptionPosition := dpTop;
    Name := 'jvcn' + sName;
    OutlookLook := true;
    Height := 200;
    Parent := frmMain.ScrollBox1;
    Caption := sName;
    Resizable := False;
    Locked := True;
    Visible := True;
  end;
 
  Compo := TJvCaptionPanel(frmMain.ScrollBox1.findComponent('jvcn' + sName));
 
  WebB := TWebBrowser.Create(Compo);
  WebB.align := alClient;
  WebB.Tag := 1;
  WebB.Visible := True;
  WebB.OnNavigateComplete2 := frmMain.WBNavigateComplete2;
   TControl(WebB).Parent := TWinControl(Compo);
   TControl(WebB).Name := 'web' + sName;
end;

[TicTacToe]

je mettrais plutot

TWebCompo.Free au lieu de TOleControl.Free, mais l'erreur n'est pas là je pense, puisque de toute manière le Free le plus jeune (parents/enfants...) est appelé en principe.

Peut-ont voir l'allocation, est-ce que le proprietaire et le parent sont bien défini ?
as-tu vérifié que les FindComponent renvoie un objet, un objet de la bonne classe ?

[TicTacToe]

ah bin entre temps tu as édité ton post

[TicTacToe]

Mets Self.Owner pour les 2 composants comme propriétaire plutot... bien que les parent soit le scrollBox et Compo, c'est souvent préférable sauf cas vraiment particulier

[TicTacToe]

Code :

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

1
2
3
4
 
jvcnPanel := TJvCaptionPanel.Create(Self.Owner); 
 
WebB := TWebBrowser.Create(Self.Owner);

Tes composants seront détruits d'office par le gestionnaire, tu n'as pas besoin de les détruire (je crois bien, j'en suis pratiquement sur, à vérifier m'en souviens plus)


Bin, j'ai révé ou tu as retiré ton dernier post ???

[Rayek]

Problème avec le self ^^ je suis dans une unité et j'ai jamais su laquel il fallait mettre dans les uses

[Rayek]

Code :

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

1
2
3
4
 
jvcnPanel := TJvCaptionPanel.Create(Self.Owner); 
 
WebB := TWebBrowser.Create(Self.Owner);

Tes composants seront détruits d'office par le gestionnaire, tu n'as pas besoin de les détruire (je crois bien, j'en suis pratiquement sur, à vérifier m'en souviens plus)


Bin, j'ai révé ou tu as retiré ton dernier post ???

Oui, oui, j'avais mal lu ^^

[TicTacToe]

Les composants sont bien posés dans une form.
Dans ce cas, il faut transmettre la form en param. et le Owner = Ta forme

[TicTacToe]

ou alors tu peux le récupérer comme ca

Code :

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

frmMain.ScrollBox1.AOwner

[Rayek]

ou alors tu peux le récupérer comme ca

Code :

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

frmMain.ScrollBox1.AOwner

Ca fonctionne pas, le webbrowser n'est plus créer dans le jvcaptionpanel.

[TicTacToe]

Si il peux l'être, il faut définir le bon parent

Le Owner est le conteneur pour la gestion de l'allocation/Dé-allocation
Le parent est le conteneur visuel

Essaye

Code :

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

1
2
jvcnPanel := TJvCaptionPanel.Create(frmMain.ScrollBox1.Owner); 
TJvCaptionPanel( jvcnPanel ).Parent := frmMain.ScrollBox1

et

Code :

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

1
2
WebB := TWebBrowser.Create(frmMain.ScrollBox1.Owner); 
TWebBrowser( WebB ).Parent := Compo;

[Rayek]

Le composant Webbrowser n'est pas créé dans le jvcaptionpanel

[Rayek]

je viens de faire un test.

J'ai créé le jvcaptionpanel + webbrowser à l'aide d'un bouton. Je ne fais aucune action avec le webbrowser.
J'ai mis un deuxieme bouton qui permet de détruire l'ensemble.

Ca fonctionne correctement.

J'ai l'impression que ca bug car mon webbrowser est connecté à une page HTTPS.

[Rayek]

Bon, j'ai trouvé une solution (pas tres propres) qui fonctionne ...

En fait le problème survient quand la page HTTPS n'est pas complètement chargée. Donc j'ai rajouté un timer qui supprime les composants 5s après réception de la réponse (ce qui laisse le temps à la page de se charger)

Si quelqu'un a une meilleure solution je suis preneur

[TicTacToe]

tu n'as pas un évènement sur ton composant qui démarre lorsque la page est entièrement chargée ?
si c'est le cas, tu peux détruire à ce moment, dans le cas ou un indicateur dit qu'il faut détruire (ton bouton...)

[Rayek]

il y a OnDocumentComplete et OnNavigate2Complete

Mais ils ont tous les deux un problème pour mon système.

OnDocumentComplete : Pour un document contenant plusieurs cadres, cet événement se produit une fois pour chaque cadre.

OnNavigate2Complete : L'événement peut se produire avant que le document ne soit entièrement téléchargé

(phrases tirés de l'aide delphi)