Probleme appel fonction objet COM

Version imprimable

19/12/2008, 11h33
dd16

Probleme appel fonction objet COM

Bnjouro

J'ai 2 erreur qui se produise lorsque je fais appel à des fonctions de mon objet COM :

J'ai une première erreur m'indiquant que CoInitialize n'a pas été appelé donc j'ai rajouté CoInitialize(nil) avant mon appel de fonction malgr le fait que j'ai le code

initialization
CoInitialize(nil);

dans mon unité .

Et maintenant j'ai l'erreur suivante ;
L'application a appelé une interface qui était maintenue en ordre pour une thread différente.

Auriez-vous une idée du problème.

Le but de cet objet COM est de partagé un contexte de fonctionnement entre plusieurs appli. Je n'ai bien sur pas les sources de cet objet.

Merci
19/12/2008, 12h27
ShaiLeTroll

Partager un contexte entre plusieurs threads d'un même processus, oui c'est faisable ! Déjà il faut jouer avec du ClassInstancing et du ThreadingModel (dans le code de l'objet)

Partager un contexte entre plusieurs processus, ça me semble fort délicat, ... est-ce au moins possible ???
19/12/2008, 12h42
dd16

A priori, j'ai une exemple en VB qui utilise cet objet COM et cela fonctionne en lançant plusieurs fois l'appli VB.
Le problème est vraiment lié à l'utilisation de l'objet COM.
19/12/2008, 14h19
ShaiLeTroll

On ne peut pas t'aider plus sans connaitre cet objet COM,

Pourquoi ne pas utiliser CreateFileForMapping\MapViewOfFile pour créer des zones mémoires partageables, c'est standard au système windows et cela ne nécessite pas l'utilisation d'un composant tiers ...
22/12/2008, 12h32
dd16

J'ai enfin trouvé, j'ai fait la bétise d'appeler les propriétés de l'objet com au sein d'un httpservercommandget (composant idhttp).
Or il semble que les composants Indy travaillent ans un thread différent du thread de l'appli principal et donc l'objet COM n'est plus défini dans le thread idhttp.
Il suffit de faire un timer et de le faire declencher par la procédure servercommandget pour que la procédure s'execute dans le thread principal et que tout fonctionne.

Tordu et pas très joli mais bon

Citation:

Envoyé par dd16

Bnjouro

J'ai 2 erreur qui se produise lorsque je fais appel à des fonctions de mon objet COM :

J'ai une première erreur m'indiquant que CoInitialize n'a pas été appelé donc j'ai rajouté CoInitialize(nil) avant mon appel de fonction malgr le fait que j'ai le code

initialization
CoInitialize(nil);

dans mon unité .

Et maintenant j'ai l'erreur suivante ;
L'application a appelé une interface qui était maintenue en ordre pour une thread différente.

Auriez-vous une idée du problème.

Le but de cet objet COM est de partagé un contexte de fonctionnement entre plusieurs appli. Je n'ai bien sur pas les sources de cet objet.

Merci

je suis tombé sur ce problème récemment en jouant sur le multithreading.

et j'ai trouvé une solution :)

voici ce que ça donne :
Code:

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 type TMyThread = class(TThread) private FStream : IStream; FMonObjet : IMonObjet; public constructor Create(AMonObjet: IMonObjet); procedure Execute; override; end; constructor TMyThread.Create(AMonObjet : IMonObjet); begin // marshalling de l'objet dans un IStream CoMarshalInterThreadInterfaceInStream(IMonObjet, AMonObjet, FStream); // lancer le thread (non suspendu) inherited Create(False); end; procedure TMyThread.Execute; begin CoInitialize(nil); // depuis le thread, on récupère l'objet marshallé :) CoGetInterfaceAndReleaseStream(FStream, IMonObjet, FMonObjet); // attention ! FStream ne doit pas être libéré par Delphi ! // on force sa valeur à nil en transtypant pour que Delphi n'invoque pas Release. pointer(FStream) := nil; // maintenant on peut utiliser FMonObjet sans problème ... end;
Par contre je rencontre un autre problème :(

Si dans un Syncrhonize() de mon Thread je fais appel à l'interface de mon thread principal je tombe sur une erreur "An outgoing call cannot be made since the application is dispatching an input-synchronous call.". Et ça c'est très chiant !

exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 type TMyThread = class(TThread) private FStream : IStream; FMonObjet : IMonObjet; public constructor Create(AMonObjet: IMonObjet); procedure Execute; override; procedure MainThread; end; procedure TMyThread.Execute; begin // ... voir ci-dessus ... Synchronize(MainThread); end; procedure TMyThread.MainThread; begin Form1.FMonObjet.MaMethode; // -> bing j'ai l'erreur ! end;

bon j'ai compris mon problème :) c'est Delphi 5 !

la méthode Synchronize de Delphi 5 utilise un SendMessage vers le thread principal, à partir de Delphi 7 je pense, c'est un Event qui est utilisé.

Voici une version simplifiée du mécanisme :

Code:

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
type
  TSyncRecord = record
    Event  : THandle;
    Method : TThreadMethod;
  end;
 
var
  gLock : TRTLCriticalSection; // doit être initilisé avec InitializeCriticalSection
  gList : TList = nil;
 
procedure MySynchronize(AMethod: TThreadMethod);
var
  cSyncRecord : TSyncRecord;
begin
  if GetCurrentThreadID = MainThreadID then
    AMethod
  else
  begin
    cSyncRecord.Event := CreateEvent(nil, True, False, '');
    cSyncRecord.Method := AMethod;
    EnterCriticalSection(gLock);
    try
      if not Assigned(gList) then
        gList := TList.Create;
      gList.Add(@cSyncRecord);
    finally
      LeaveCriticalSection(gLock);
    end;
   // force Application.OnIdle qui doit invoquer ExcuteSynchronizeProcs
    PostMessage(Application.Handle, WM_NULL,0, 0);
    WaitForSingleObject(cSyncRecord.Event, INFINITE);
    CloseHandle(cSyncRecord.Event);
  end;
end;
 
// doit être invoqué périodiquement...par exemple sur Application.OnIdle
function ExcuteSynchronizeProcs: Boolean;
var
  cList : TList;
  i : Integer;
begin
  EnterCriticalSection(gLock);
  try
    cList := gList;
    gList := nil;
  finally
    LeaveCriticalSection(gLock);
  end;
  Result := Assigned(cList) and (cList.Count > 0);
  if not Result then
    Exit;
  for i := 0 to Pred(cList.Count) do
  begin
    with TSyncRecord(cList[i]^) do
    begin
      Method;
      SetEvent(Event);
    end;
  end;
  cList.Free;
end;

Ceci dit, je recontre un nouveau problème que je n'ai pas encore identifié...pour mes tests je fais un ShowMessage('...') dans ma procédure synchronisée qui a été invoquée via le OnIdle...et là, de temps en temps, mon, appli se gèle...