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
J'ai les messages suivants:
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;
- 21627476
- puis 21012660
Aucun message d'erreur
Partager