Реализую трехзвенную архитектуру (DataSnap+ADO). Сервер реализован в виде библиотеки ActivX + Remote Data Modul. В итшге получается DLL. Клиент подключается через DCOMConnection.

ПРОБЛЕМА: В удаленном модуле (Remote Data Modul) у компонента ADOConnection мне необходимо программно формировать свойство ConnectionString. При использовании GetCurrentDir функция возвращает путь НЕ dll-сервера, а клиентского приложения. (Это естественно, т.к. сервер получился внутрипроцессорным и создается в адресном пространстве клиента).

ВОПРОС: Как все-таки узнать путь dll-сервера и написать процедуру в Remote Data Modul по формирования ConnectionString?

Как вариант, можешь хранить путь реестре.

Когда регистрируется dll-сервер, то в реестре итак вместе с GUID записывается путь. Но как среди нескольких локальных компьютеров определить, на каком из них установлен сервер?
(К тому же через реестр не лучший выход, т.к. в разных windows эта информация возможно заносится в разные ветви реестра)

А не может ли сам сервер, т.е. DLL-библиотека, иметь свойство или метод, который возвращает его полный сетевой адрес?

Цитата

При использовании GetCurrentDir

GetCurrentDir тут вообще не в кассу - он, кстати, может и не совпадать с местоположением программы. Тебе нужно использовать GetModuleFileName.

Если можно поподробнее о GetModuleFileName: метод какого класса? и если можно пример.

Это не метода класса, а функция из Windows.pas. Вот пример:

Код

procedure TForm1.Button2Click(Sender: TObject); const  FILE_NAME_SIZE = 256; var  FileName: PAnsiChar; begin  GetMem(FileName, FILE_NAME_SIZE);  try    ZeroMemory(FileName, FILE_NAME_SIZE);    GetModuleFileName(0, FileName, FILE_NAME_SIZE);    ShowMessage(FileName);  finally    FreeMem(FileName, FILE_NAME_SIZE);  end; end;

Это сообщение отредактировал(а) <Spawn> - 14.1.2005, 12:38

Проверил код. Выдает все тот же путь приложения-клиента. Код вставлял и в саму библиотеку (library) и в удаленный модуль (unit).

Цитата

Проверил код. Выдает все тот же путь приложения-клиента. Код вставлял и в саму библиотеку (library) и в удаленный модуль (unit).

Потому что нефига первым параметром (hModule) передавать 0. В этом случае вы всегда получите имя модуля создавшего процесс.


В Delphi в юните SysInit определяется глобальная переменная hInstance, котрая принимает значение handle модуля. Именно ее и надо передавать.

Код

function ModuleFileName:string; const  BUF_SIZE = 1024; var  size:integer; begin  SetLength(Result,BUF_SIZE);  size:=GetModuleFileName(hInstance,pointer(Result),BUF_SIZE);  SetLength(Result,size); end;

Это сообщение отредактировал(а) Fantasist - 14.1.2005, 19:36

Работает! Огромное спасибо Fantasist и всем кто принимал участие в обсуждении.
Последний вопрос: если клиент и сервер стоят на разных машинах, то выведет ли эта функция полное UNC имя? (хотя, наверное, нет)

Цитата

то выведет ли эта функция полное UNC имя

Нет конечно. Хендл модуля не будет валидным на другом компьютере - это же очевидно.

Еще раз спасибо.