Progmatically oppdage hvilken versjon av ADO er installed.

Med ulike versjoner av MDAC tilgjengelig er det noen ganger nyttig å vite at søknaden ikke vil mislykkes fordi en bruker ikke har fått den nyeste versjonen installedThe følgende funksjonen returnerer ADO versjon installert, må å plassere ComObj i bruk klausul for å bruke denne function.function GetADOVersion: Double; Var ADO: Variant, begynner prøve ADO: = CreateOLEObject ( 'adodb.connection'); Resultat: = StrToFloat (ADO.Version); ADO: = null; bortsett Resultat: = 0,0; end, end, å bruke denne funksjonen prøve noe sånt som: prosedyre TForm1.Button1Click (Sender: TObject); konst ADOVersionNeeded = 2,5; begynne hvis GetADOVersion < ADOVersionNeeded deretter ShowMessage ( 'Trenger du å installere MDAC versjon 2.7') else ShowMessage (Format ( 'ADO versjon% n er OK', [GetADOVersion])); end; regardsSimon CarterOrcka Development



Previous:
Next Page: