Discussion :

[franckcl]

Oui le fait d'assigner le propriété "command" provoque le message d'erreur:
"Le projet a déclenché la classe d'eception EOleSysErrir avec le message 'Classe non enregistrée, ClassID: {4217208C-3198-4688-B05A-8015294CED16}'

L'exception se trouve dans la fonction CreateComObject de l'unité System.Win.ComObj


Dans la base de registre, une recherche sur "SQS242" donne ceci :
HKEY_CLASSES_ROOT\WOW6432Node\CLSID\{4217208C-3198-4688-B05A-8015294CED16}\ProgID et en donnée il y a: "SQS242X.cComm242"


Je retrouve bien ce GUID dans l'unité SQS242X_TLB :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TcComm242.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{4217208C-3198-4688-B05A-8015294CED16}';
    IntfIID:   '{6E481EF2-CD76-405B-88D1-55D4394B3BF6}';
    EventIID:  '{15D72DE9-788F-47F2-A418-A120C0158788}';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

Je viens d'essayer le code

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm3.BtnConnectClick(Sender: TObject);
begin
 // cComm2421.Connect;
  ShowMessage(IntToStr(NativeInt(CocSQS242Comm.Create())));
  ShowMessage(IntToStr(NativeInt(CocSQS242Comm.Create().SQS242Comm)));
  CocSQS242Comm.Create().SQS242Comm.Command := 'toto';
end;

J'ai les messages suivants:
- 21627476
- puis 21012660
Aucun message d'erreur

[franckcl]

et rien non plus dans les évènements OnResponsEvent et OnCommandEvent. Ils ne sont pas appellés
En revanche si je fais cComm2421.Command:='@QM;21;00'; j'ai la même exception que précédemment.

[ShaiLeTroll]

Si CocSQS242Comm.Create().SQS242Comm retourne un _cComm242 valide on peut donc essayer ceci

Code :

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

1
2
3
4
5
procedure TForm3.BtnConnectClick(Sender: TObject);
begin
  cComm2421.ConnectTo(CocSQS242Comm.Create().SQS242Comm); // faut une Interface _cComm242 en paramètre, peut importe la façon de la créer
  cComm2421.Command := '@QM;21;00';
end;

Mais cela me fait penser que "_cSQS242Comm" est la classe enregistrée qui sert de factory à une instance de "_cComm242"
On ne peut pas instancier directement une "_cComm242" qui doit être instanciée par l'activeX (SQS242X.exe) que l'on récupère via "_cSQS242Comm"

[franckcl]

Ca marche !
ShaiLeTroll, je ne sais comment te remercier.
ll y a des gens dont les compétences m'étonnent et tu en fais partie.
Bravo et merci pour l'investissement que tu fais dans ce forum.

[ShaiLeTroll]

Je me suis battu avec des ActiveX VB dès ma 3ème année d'apprentissage, c'était il y a longtemps

J'ai bcp appris quand j'ai fait mon dernier COM, il y a bien 10 ans.
J'ai maintenu du DCOM mais sans vraiment devoir m'y intéresser (surtout que cela a été traduit en DataSnap)
Je me dis que cela fait longtemps que je n'en ai pas fait ... et je constate que la technique du tâtonnement pour trouver la bonne CoClasse fonctionne encore