Discussion :

[frenchsting]

Bonjour,

Il y a fort longtemps, j'ai fait du Turbo Pascal sous Windows pour un projet (écriture d'une DLL pour faire le lien entre une carte d'acquisition et un programme vb 3.0). Bien après, j'ai fait un tout petit peu de Delphi (7). Aujourd'hui, je fais essentiellement du dév sur Windev. J'ai décidé de me lancer dans un projet qui nécessite d'écrire une DLL. Je me lance donc sur lazarus que Je ne connais pas du tout excepté que c'est un cousin (une cousine) de Delphi.

Je me lance pour expliquer mon souci : Pour ne pas partir d'une page blanche, j'ai fait des recherches sur le web pour essayer de trouver des infos. J'ai récupéré un projet Delphi que j'ai voulu importer dans lazarus.
Tout s'est bien passé mais lorsque j'ai voulu compiler, outre quelques warnings, j'ai droit à un message d'erreur :

InfoTipImpl.pas(30,36) Fatal: Impossible de trouver StdVcl utilisé par InfoTipImpl de l'inspecteur de projet.

Ma question est double :
- Peut-on trouver / installer cette VCL ?
- Sinon, comment "contourner" son utilisation dans lazarus ?

Merci pour vos lumières,

Claude

[jurassic pork]

hello,
ce que tu peux faire :
1 - mettre en commentaire l'unité stdvcl et voir ce qui ne se compile pas sans cette unité et mettre en commentaire au fur et à mesure le code en erreur.
Il semble que la stdvcl définit des interfaces pour quelques objets VCL comme les IStrings.
sinon si ce n'est pas confidentiel montrer le code ou le mettre en pièce jointe.
Ami calmant, J.P

[frenchsting]

Bonjour JP,

Merci pour ton retour.

Non, rien de confidentiel dans mon histoire. Le projet d'origine se trouve ici : http://www.agnisoft.com/delphi/dfminfotip.zip. C'est un projet de d'infobulle dans l'explorateur Windows. J'ai supprimé la déclaration et voici les messages d'erreur :

Code :

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

1
2
3
4
5
6
7
Compilation du projet - Cible : lib\x86_64-win64\DFMInfoTip.dll : Code de sortie 1 - Erreurs : 6
InfoTipImpl.pas(52,38) Error: Identifier not found "TCLSID"
InfoTipImpl.pas(33,17) Error: No matching implementation for interface method "GetInfoFlags(var LongWord):LongInt; StdCall;" found
InfoTipImpl.pas(33,17) Error: No matching implementation for interface method "GetClassId(out TGuid):LongInt; StdCall;" found
InfoTipImpl.pas(33,17) Error: No matching implementation for interface method "Load(PWideChar;LongWord):LongInt; StdCall;" found
InfoTipImpl.pas(33,17) Error: No matching implementation for interface method "GetClassId(out TGuid):LongInt; StdCall;" found
InfoTipImpl.pas(64,14) Error: There is no method in an ancestor class to be overridden: "GetProgID:AnsiString;"

Le code concerné :

Code :

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

1
2
TDFMInfoTip = class(TAutoObject, IDFMInfoTip, IQueryInfo, IPersistFile, IPersist )
procedure UpdateRegistry(Register: Boolean); override;

[jurassic pork]

hello,
Désolé mais c'est typiquement le type de projet difficile à convertir en lazarus car il fait appel à des classes contenues dans un fichier propriétaire delphi (stdvcl) dont on a pas toujours les sources et en plus le projet est spécifique à windows ( presque impossible à convertir pour linux). Cela peut être plus simple de repartir de zéro. Et en plus le projet est fait pour lire des fichiers Delphi :

Info Tip display for DFM files in Windows 2000 and Windows 98

In this ZIP file, you will find an Infotip file extension for Delphi Forms (DFM Files). Source code in Delphi 5 is included.

Ami calmant, J.P

[frenchsting]

Hello JP,

Je vais regarder comment je peux faire ça. Ca va m'occuper un moment

Je passe en résolu.

Encore merci pour tes infos.