Discussion :

[michastro]

Bonjour,
J'ai fait un petit programme pour expliquer mon souci.
J'ai un serveur COM avec une fonction Reset venant de IEnumVariant. Pour des raisons de test d'un programme bien trop gros pour être ici, la fonction renvoie la valeur S_FALSE.
Dans mon petit programme client, quand j'appelle la fonction Reset j'ai systématiquement la valeur S_OK qui revient!!! ??????
Je ne comprends absolument pas comment c'est possible que le résultat de la fonction soit changée.
En attaché le serveur (Server.zip) et le programme de test (TestTest.zip).
Merci de vos idées.

[michastro]

Dans ma recherche de l'erreur de retour S_OK au lieu de S_FALSE (voir post précédent), j'ai fait un tout petit serveur avec juste une méthode qui renvoie S_FALSE (type HResult), malheureusement cela plante au niveau client avec une erreur: Le projet TestTest.exe a déclenché la classe d'exception EOleSysError avec le message 'Type de variable incorrect' (c'est l'instruction Return:=coll.Method qui déclenche ça).
Des idées??

Voici le .ridl


le code dans le serveur:

Code :

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

1
2
3
4
function TTest1.Method: HResult;
begin
  Result:=S_FALSE;
end;

et le code dans le client:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button1Click(Sender: TObject);
var
  coll:variant;
  Return:HResult;
begin
  coll:= CreateOLEObject('Project.Test1');
  Return:=coll.Method;
  if Return=S_FALSE then showmessage('OK') else showmessage('ERROR!!!!!!!!!!!!!!!!');
end;

[tourlourou]

var coll: OleVariant; ??

[michastro]

J'ai essayé aussi c'est pareil. Merci quand même.