VDL_Ini

VDL_Ini
(Groupe vdlExplorer : Init)

Initialise les accès à la base de données

Cette fonction affiche un message donnant l'identification de la base ouverte et signalant la fraîcheur ou la péremption des données. Lorsque la date de péremption est atteinte ou dépassée, un message avertit de la prochaine non disponiblité de la base.

Cet avertissement est donné pendant 9 mois avant la date de fin d'exploitation.

A partir de cette date, la base ne peut pas être initialisée.

la licence d'utilisation est également dans un onglet de ce message.

Cette fenêtre de message, de même que la licence d'utilisation peuvent être modifiées sans préavis de la part de Vidal.

Syntaxe

VisualBasic	`Declare Function VDL_Ini Lib "VIDAL32.dll" ( ByVal pszChemin As String ) As Long`
Delphi	`const DLL_TVS = 'VIDAL32.dll'; ... function VDL_Ini( pszChemin: string ): PChar; stdcall; external DLL_TVS;`
C/C++	`__declspec(dllexport) long WINAPI VDL_Ini( char *pszChemin );`

Point d'entrée obsolète

OVP_ini

Input

Argument	Type	Description
pszChemin	string	Ancienne méthode : Cette chaîne contient le nom complet du fichier OVP.INI qui contient le chemin de la base de donnée. Nouvelle méthode : Cette chaîne indique le nom de la base à ouvrir : TVS pour la base TVS VCD pour la base VCD VDE pour la base VIDALDentaire (voir dans les définitions de constantes)

Il est conseillé d'utiliser la nouvelle méthode, plus simple.

Output

Argument	Type	Description
Status	long	Status d'ouverture de la base (Cf. tableau ci-dessous)

Valeur	Description
0	La base est corrompue
1	Version TVS monoposte
2	Version TVS monoposte expert (Cette ancienne version n'est plus distribuée)
3	Version TVS réseau simple
4	Version TVS réseau expert (Cette ancienne version n'est plus distribuée)
5	Version TVS réseau simple : le nombre d'accès au réseau est dépassée
6	Données inadaptées à cette version de la librairie
7	Version VIDALDentaire
8	Version VidalCD
9	Version TVS réseau à jeton : réponse normale
-1003	Version TVS réseau à jeton : Aucun serveur de licences n'a été trouvé
-1004	Version TVS réseau à jeton : Nombre maximal d'utilisateur atteint
-1008	Version TVS réseau à jeton : Code de la licence incorrect
-1014	Version TVS réseau à jeton : Serveur introuvable
-1015	Version TVS réseau à jeton : Connexion avec le serveur de licence impossible
-1016	Version TVS réseau à jeton : Lecture du fichier de licences impossible
-1030	Version TVS réseau à jeton : Lecture du fichier de licences impossible
-1057	Version TVS réseau à jeton : Connexion avec le serveur impossible
< -1000	Version TVS réseau à jeton : Erreur inconnue

Erreurs

Un résultat négatif indique que la date de fin de droit d'accès aux données est atteinte ou dépassée.

Les fonctions de la DLL ne répondent plus au-delà de cette date.

Exemples

vdlExplorer :

--->VDL_Ini('TVS')
1
--->VDL_GetDataBasePath()
1 -> 0 -> C:\Program Files\Havas Medimedia\TVS\Data -> C:\Program Files\Havas Medimedia\TVS\Index
---> VDL_NbOfCip()
102894
---> VDL_GetIntruder()
28/02/2004
---> VDL_Close()
35890496

Visual Basic :

' To be added

Delphi :

(* To be added *)

C/C++ :