Discussion :

[LizardJim]

Bonjour a tous,

J'ai un bout de code VB qui fonctionne mais
je sais pas comment le faire en Delphi
y'as-tu quelqu'un qui a une piste ?

Code vb :

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

1
2
3
4
5
6
 
 
Dim WINDLL As Object
 
Set WINDLL = CreateObject("WINDLL.clsACD")
Status = WINDLL.Setup()

Merci

[Aka Guymelef]

Voici en Delphi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
  WINDLL: OleVariant;
begin
  WINDLL := CreateOleObject( 'WINDLL.clsACD' );
  try
    status := WINDLL.Setup();
  finally
    WINDLL := Unassigned; // détruire l'instance de l'objet COM
  end;
 
end;

Pensez à rajouter l'unité ComObj pour que cela fonctionne.

[LizardJim]

Merci beaucoup