Tworzę prostą aplikację konsolową.Pierwszą linijką jest:
query := TADOQuery.Create(nil);
Oczywiście wcześniej jest deklaracja zmiennej query jako TADOQuery.
Aplikacja się prawidłowo kompiluje. Ale po uruchomieniu otrzymuję komunikat:
Exception EOleSysError in module Project1.exe at 0000000000144BAB.
Funkcja CoInitialize nie została wywołana.
O co tutaj chodzi? Wcześniej napisałem aplikację konsolową w ten sam sposób i normalnie działa.
Chodzi o to, że przed zabawą z OLE nie wywołałeś funkcji CoInitialize. 
Hmmm. Szczerze, to przyznam, że nie rozumiem tego. Wcześniej pisałem tak samo i aplikacja normalnie działała. Faktem jest, że wykorzystywała jeszcze funkcje do Subiekta GT (Sfera). Może w nich była zaszyta ta funkcja. Ale dopisałem CoInitializeEx i zadziałało. Aczkolwiek ciekawe.
Buster napisał(a):
Faktem jest, że wykorzystywała jeszcze funkcje do Subiekta GT (Sfera). Może w nich była zaszyta ta funkcja.
Raczej właśnie tak było, dlatego nie musiałeś tego robić samodzielnie.
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.
Delphi