Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Вниз

MS ADO. Как определить установлено ли ?   Найти похожие ветки 

 
UnDISCOvery   (2002-07-08 14:15) [0]

Как мне узнать установлено ли АДО и какой версии на компьютере юзера ? С какими версиями работают компоненты АДО в пятой Дельфе ?


 
SEM   (2002-07-08 18:19) [1]

Можно попытаться получить интерфейс какого-нибудь объекта ADO.
Например:
function Check_ADO: Boolean;
const
CLSID_DATALINKS: TGUID = "{2206CDB2-19C1-11D1-89E0-00C04FD7A829}"; {DataLinks}
var
hr: HRESULT;
pUnk: IUnknown;
OleInit: Boolean;
begin

OleInit:= OleInitialize(nil) = S_OK;

hr:= CoCreateInstance(
CLSID_DATALINKS,
nil,
CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER,
IUnknown,
pUnk);

pUnk:= nil;

if OleInit then OleUnInitialize;

Result:= hr = S_OK;

end;

Данная функция не сможет определить ADO версии < 2.5, т.к.
там нет объекта DataLinks (Вроде нет).



 
UnDISCOvery   (2002-07-09 15:59) [2]

Я тут в реестре порыскал .... нашел кучу ссылок на АДО, но именно на то которое установлено, что-то типа версии нифига нет !
но что означает: HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{00000100-0000-0010-8000-00AA006D2EA4} ... я не знаю :-/
может быть просто проверять наличие файла dao360.dll ?


 
sniknik   (2002-07-09 16:54) [3]

Не там искал наверное

procedure TForm1.Button7Click(Sender: TObject);
function ADO_and_Jet40:String;
var con:TADOConnection;
begin
try
con:=TADOConnection.Create(nil);
con.LoginPrompt:=False;
con.ConnectionString:="Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Text;Data Source=.\";
con.Open;
Result:=con.Version;
con.Free;
except
on E:Exception do Result:=E.Message;
end;
end;

begin
ShowMessage("ADO версия : "+ADO_and_Jet40);
end;



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.021 c
1-95437
Labutin
2002-07-16 21:31
2002.07.29
QuickReport


14-95497
tovSuhov
2002-07-01 07:21
2002.07.29
Единый госэкзамен (ЕГЭ)


1-95418
MAxiMum
2002-07-15 10:20
2002.07.29
Как узнать о том, что в RichEdit был вставлен текст???


3-95187
GSVMaster
2002-07-05 04:21
2002.07.29
Please help for beginer developer in database!!!


8-95451
I/O
2002-03-20 17:52
2002.07.29
MP3





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский