[D7] Dll, bibliothèque de type et NHibernate
Bonjour,
J'ai un petit problème avec une bibliothèque de type que l'on m'a passé pour piloter un autre logiciel.
Mon problème est plus de savoir si le problème viens de moi ou de la dll.
Donc j'ai 2 dll avec un fichier .tlb, j'installe le tout en passant par projet/ importer une bibliothèque de type.
tout ce passe bien et une fiche Lucrece_COM_TLB se créé.
dedans, j'ai bien mon objet
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
|
type
// *********************************************************************//
// Déclaration Forward des types définis dans la bibliothèque de types
// *********************************************************************//
_Luc = dispinterface;
// *********************************************************************//
// Déclaration de CoClasses définies dans la bibliothèque de types
// (REMARQUE: On affecte chaque CoClasse à son Interface par défaut)
// *********************************************************************//
Luc = _Luc;
// *********************************************************************//
// DispIntf : _Luc
// Flags : (4096) Dispatchable
// GUID : {C27FB7C2-E332-32A4-BC03-8D3F24E17590}
// *********************************************************************//
_Luc = dispinterface
['{C27FB7C2-E332-32A4-BC03-8D3F24E17590}']
procedure Init(const connectionString: WideString); dispid 1;
procedure Save(const serie: WideString; dates: {??PSafeArray}OleVariant;
valeurs: {??PSafeArray}OleVariant); dispid 2;
end; |
et derrière je l'utilise
Code:
1 2 3 4 5 6 7 8 9 10 11
|
var
MonLuc: Luc;
begin
InitStr1:='<?xml version="1.0"?><configuration><nhibernate><add key="hibernate.show_sql" value="false"/>'+'<add key="hibernate.connection.provider" value="NHibernate.Connection.DriverConnectionProvider"/><add key="hibernate.dialect" value="NHibernate.Dialect.MsSql2000Dialect"/>';
InitStr2:='<add key="hibernate.connection.driver_class" value="NHibernate.Driver.SqlClientDriver"/><add key="hibernate.connection.connection_string" value="Server=PPAR079243;initial catalog=Lucrece3;Integrated Security=true;"/></nhibernate></configuration>';
MonLuc:=CoLuc.Create;
MonLuc.Init(InitStr1+InitStr2); |
bon je vous fait pas le dessin de ce que ça fait
mon problème est que ma fonction init se lance bien, mais en plein milieu, tout se coupe, nada, plus rien mon logiciel que je suis sensée piloter et mon appli delphi. Tout se coupe au lancement de nhibernate par l'appli pilotée.
Par ailleurs, j'ai testé mes dll et tlb avec excel en vba, et là! oh miracle! tout fonctionne.
Je reconnais que le problème me dépasse, je n'arrive pas à voir d'ou viens le problème. J'ai été fouiner sur google et les forums mais je n'ai trouvé aucun problème correspondant.
Quelqu'un aurai une idée, au moins pour expliquer à mon chef pourquoi je ne peux pas finir mon travail...
Merci dans tout les cas de l'avoir au moins lu