Главная страница
    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.44 MB
Время: 0.007 c
6-95476
Сатир
2002-05-16 18:52
2002.07.29
Получение файла из сервера


1-95437
Labutin
2002-07-16 21:31
2002.07.29
QuickReport


8-95459
novom
2002-03-09 23:09
2002.07.29
Эквалайзер.


6-95481
DikobraZ
2002-05-11 18:18
2002.07.29
Socket erro 10057


7-95590
VJar
2002-05-12 12:50
2002.07.29
Скрытие значков рабочего стола





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский