Discussion :

[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

[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 ???

[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.

[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 ...

[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

[Paul TOTH]

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 :

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
 
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 :

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
 
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;

[Paul TOTH]

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 :

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
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...