Discussion :

[el_diablos]

Bonjour,
Je souhaite créer un TWebBrowser dynamiquement dans un dll. Pour cela je dois utiliser la procédure Create de TWebBrowser. Dans l'aide on trouve cela :
Syntaxe Delphi :
constructor Create(AOwner: TComponent); override;

Avec AOwner la fenêtre qui sera le propriétaire de mon TWebBrowser c'est à dire le composant qui sera chargé de la destruction de celui-ci.
Le problème c'est que ne connais que le THandle de ce futur propriétaire.
Est-il possible de récupérer un TComponent avec un THandle?

[Reisubar]

Cela ne marche pas si tu transmets simplement nil à la place ? (et tu seras chargé de la destruction du composant).

[lil_jam63]

Pourquoi ne pas utiliser TApplication dans ce cas là?

[el_diablos]

Ca à l'air de fonctionner en mettant à nil. Pour ce qui est de TApplication c'est impossible car je développe une dll.Merci

[Reisubar]

Pour ce qui est de TApplication c'est impossible car je développe une dll

En incluant Forms dans ta clauses uses, ça doit être possible

[el_diablos]

Lors de la création dynamique de mon TWebBrowser avec cretae je passe le paramètre nil, l'objet a l'air de bie nse créer. Je passe ensuite le Handle du parent et la ca plante. En fait dès que j'accède en écriture ou en lecture à mon objet la dll plante.
Avec TApplication comme puis je résoudre le problème? Quelle procédure utiliser? Il n'existe pas une fonction pour transformer un Handle en TComponent?

[Thunder_nico]

pourquoi veux tu le handle? si c pour pouvoir detruire la form de la dll qd tu veux il suffit d'ajouter une fonction dans la dll detruisant la form et de libérer la dll!

[el_diablos]

Concrètement voila ce que je veux faire :
Je code une dll qui contient une fonction attendant en paramètre le Handle d'une fenêtre appartenant à une application externe. Le but de la fonction est d'ajouter un TWebBrowser à cette fenêtre en utilisant le Handle passé en paramètre, ce qui donne :

function MaFunction(MonHandle : THandle);sdtcall;
var
ListObjectBrowser : TObjectList;
begin
ListObjectBrowser:= TObjectList.Create;
ListObjectBrowser.Add(TWebBrowser.Create(OwnerTrouvéAvecMonHandle));
TOleControl(ListObjectBrowser.Last).Parent:= OwnerTrouvéAvecMonHandle;
end;

Mon problème est de convertir le Handle passé en paramètre en TComponent ou en un autre Type acceptable par Create et Parent

[el_diablos]

Curieusement dans une application normal le code suivant fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  Form1             : TForm1;
  ListObjectBrowser : TObjectList;
  HSelf             : THandle;
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  HSelf:= self.Handle;
  ListObjectBrowser:= TObjectList.Create;
  ListObjectBrowser.Add(TWebBrowser.Create(TComponent(nil)));
  Windows.SetParent(TOleControl(ListObjectBrowser.Last).Handle, HSelf);
end;

Si maintenant je mes ce code dans une dll et que je remplace le Handle du PArent par celui passé en paramètre à ma fonction le tout compile mais une fois appelé par une application externe cela plante. Une idée?

[Thunder_nico]

as tu essayé en faisant comme la méthode qui marche cad en faisant une fonction dans la dll qui renvoie son handle et ....

[el_diablos]

C'est bon on m'a donné la solution, il faut utiliser la méthode FindControl en lui passant enparamètre le Handle du composant et et il renvoi un Control.