Текущий архив: 2005.08.14;
Скачать: CL | DM;

Вниз

Вызов функции из dll   Найти похожие ветки 

← →
Vsr   (2005-07-27 14:28) [0]

Доброго времени суток! В приложении есть две функции: одна сохраняет настройки в реестр, другая их считывает. Решил перенести их в библиотеку.

library cd;
....
function ReadOptionFromRegistry(Option : TRadioButton; SubKey : PChar; Node: PChar) : boolean;
var    R : TRegistry;
      StateInt : byte;
      St : boolean;
begin
   R:=TRegistry.Create;
   try
       result:=R.OpenKey(SubKey,false);
if not result then exit;
       if R.ValueExists(Node) then begin
       StateInt:=R.ReadInteger(Node);
       Move(StateInt,St,1);
       Option.Checked:=St;
       end;
   finally
       R.Free;
   end;
end;
В момент вызова библиотеки на строке LibHandle := LoadLibrary(PChar("cd.dll")); ловлю exception "Cannot create application object in a shared object or library"

procedure TForm2.FormActivate(Sender: TObject);
var ReadOptionFromRegistry: TReadOptionFromRegistry;
begin
try
LibHandle := LoadLibrary(PChar("cd.dll"));
   if LibHandle = 0 then
     raise Exception.Create("Unable to Load   DLL  ...")
   else
   begin
     try @ReadOptionFromRegistry := GetProcAddress(LibHandle, "ReadOptionFromRegistry");
       if @ReadOptionFromRegistry <> nil then
       if ReadOptionFromRegistry(RadioButton1, PChar("Software\CDLibrary\Options"), PChar("CommonName")) then
         begin
           RadioButton1.Checked:=RadioButton1.Checked;
         end;

     except
       on E: Exception do
         ShowMessage("Exception error: " + E.Message);
     end;
   end;
finally
   FreeLibrary(LibHandle);
   end;
end;
Понимаю, что в длл взяться Application неоткуда. А вот как передавать указатель на него, что-то не могу понять. Помогите разобраться.

---

← →
han_malign ©   (2005-07-27 14:53) [1]

uses Forms из DLL убери

---

← →
Vsr   (2005-07-27 15:01) [2]

:-(
не помогло

---

← →
evvcom ©   (2005-07-27 15:04) [3]

> Решил перенести их в библиотеку.

И нафига? Build with runtime packages - галка естественно не стоит?

---

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

Текущий архив: 2005.08.14;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.04 c