Всем привет!
Ситуация такова:
есть DLL. Из неё импортируются функции. Но проблема в том, что имя DLL (путь) до запуска exe не известно.

Код

procedure Some(); external 'C:\......\......\.....dll';

Относительные пути не пойдут. Как это нужно импортировать в таком случае?

Как так неизвестно? Ты уж определись где она будет лежать или скажи более точно причину, почему неизвестен путь.

<Spawn> Ну например имя библиотеки и путь может передаваться при запуске программы в виде параметров, или указываться в настройках (в одном из клиентбанков видел такой диалог, он назывался "путь к бизнеслогике"), вариантов довольно много...

Причина такова: Это значение будет браться из реестра, куда его записует другая программа. А эта программа может находиться в произвольном месте (но стоять она будет точно).

eof полностью согласен

А ты прочитать это значение реестра не можешь? А если можешь, то в чем тогда проблема?

Это сообщение отредактировал(а) <Spawn> - 3.6.2003, 17:43

Я ем сорри но я вроде как написал, может, эли что не так, то уж простите....
Вопрос такой как динамически подставлять значения вместо 'C:\......\......\.....dll'?

как подгрузить dll во время выполнения проги.

Цитата(altarasjuk @ 3.6.2003, 09:46)

Я ем сорри но я вроде как написал, может, эли что не так, то уж простите.... Вопрос такой как динамически подставлять значения вместо 'C:\......\......\.....dll'?

Что то я не совсем пойму. Но, если ты можешь прочесть данные реестра, то подгружаешь ДЛЛ при помощи LoadLibrary (SafeLoadLibrary) и извлекаешь нужные тебе функции.

Это сообщение отредактировал(а) <Spawn> - 3.6.2003, 17:51

Код

For example, on Windows or Linux: uses Windows, ...; {On Linux, replace Windows with SysUtils } type  TTimeRec = record    Second: Integer;    Minute: Integer;    Hour: Integer;  end;  TGetTime = procedure(var Time: TTimeRec);  THandle = Integer; var  Time: TTimeRec;  Handle: THandle;  GetTime: TGetTime;  ... begin  Handle := LoadLibrary('libraryname');  if Handle <> 0 then  begin    @GetTime := GetProcAddress(Handle, 'GetTime');    if @GetTime <> nil then    begin      GetTime(Time);      with Time do        WriteLn('The time is ', Hour, ':', Minute, ':', Second);    end;    FreeLibrary(Handle);  end; end;

только что нашел в helpe... долго искал

А можно подробнее по поводу SafeLoadLibrary?

То же самое что и LoadLibrary, но выполняет безопасную загрузку ДЛЛ.

Safe and simple library loading.

Unit

SysUtils

Category

Package support routines

Delphi syntax:

On Windows:

function SafeLoadLibrary(const Filename: string; ErrorMode: UINT = SEM_NOOPENFILEERRORBOX): HMODULE;

On Linux:

function SafeLoadLibrary(const FileName: string; Dummy: LongWord = 0): HMODULE;

C++ syntax:

On Windows:

extern PACKAGE HMODULE __fastcall SafeLoadLibrary(const AnsiString Filename, unsigned ErrorMode = SEM_NOOPENFILEERRORBOX);

On Linux:

extern PACKAGE unsigned __fastcall SafeLoadLibrary(const AnsiString FileName, unsigned Dummy = 0);

Description

SafeLoadLibrary loads a Windows DLL or Linux shared object file, as specified by Filename. SafeLoadLibrary preserves the current FPU control word, preventing library initialization code from permanently overwriting precision and exception masks.

так они и перепечатали весь хелп

сенкю

eof

Цитата

так они и перепечатали весь хелп

Не надо издеваться - я уже 2 дня сижу без хелпа, пришлось убить