Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.16;
Скачать: CL | DM;

Вниз

Ошибка при обращении к компонентам из разных Unit-ов в DLL   Найти похожие ветки 

 
DelphiN! ©   (2004-12-28 06:48) [0]

В ДЛЛ обращаюсь к свойствам и методам компонентов из разных Юнитов, и при обращении выскакивает Access Voluition. Почему AV выскакивает при обращении к компонентам только в Длл, и как этого избежать ?


 
Digitman ©   (2004-12-28 08:45) [1]


> DelphiN! ©   (28.12.04 06:48)  


покажи код


 
DelphiN! ©   (2004-12-28 09:06) [2]

Да вообще любое обращение из разных модулей к компонентам в Длл. Например:
Данные Unit-ы находятся в Длл
Unit1
...
class TForm1 ...
Button1: TButton;

Unit2
...
Implimination
uses Unit1
...
begin
 Form1.Button1.Caption := "a"; //AV
end;


 
Digitman ©   (2004-12-28 09:09) [3]

а ты форму-то создал ? прежде чем обращаться к ней ?


 
DelphiN! ©   (2004-12-28 09:10) [4]


>  [3] Digitman ©   (28.12.04 09:09)


Конечно.


 
DelphiN! ©   (2004-12-28 09:12) [5]

Данная проблемма встречается только в Длл ...


 
Digitman ©   (2004-12-28 09:12) [6]


> DelphiN! ©   (28.12.04 09:10) [4]


из приведенного кода это неочевидно
показывай, где и как ты ее создаешь ..


 
DelphiN! ©   (2004-12-28 09:14) [7]


library ClubAdmin;

uses
 SysUtils,
 Classes,
 forms,
 pluginloader,
 Unit1 in "Unit1.pas" {Main},
 Settings in "Settings.pas" {frmSettings},
 DATAMOD in "..\..\..\..\..\xgh II\server\plugins\DATAMOD.pas" {DATA: TDataModule},
 ChangeSeanse in "ChangeSeanse.pas" {frmSeanse};

{$E plu}

{$R *.res}

Function xGhost_server(NewOwner:TPluginLoader):Tplugins;
begin
 result:=PluginLoader.EnumPlugins(application,newowner);
 result.Caption :="Управление клубом";
 result.Version :="0.1";
 result.Author :="Delphin / ACS inc.";
 result.Key :="234pt3253df35";
end;

exports
xGhost_server;

var
 Main: TMain;

begin
 application.Initialize;
 Application.CreateForm(TDATA, DATA);
 application.Run;
 Application.CreateForm(TMain, Main);
 Application.CreateForm(TfrmSettings, frmSettings);
 Application.CreateForm(TfrmSeanse, frmSeanse);
end.


TMAIN - это Unit1
TfrmSeanse - это Unit2


 
Digitman ©   (2004-12-28 09:47) [8]

вот теперь видно, что ни Main, ни frmSettings, ни frmSeanse ты не создаешь, ибо до этого даже дело не доходит - в application.Run "скрыт" бесконечный цикл ожидания/выборки/диспетчеризации win-сообщений

вызов application.Run в ходе иниц-ции ДЛЛ вообще недопустим

library ClubAdmin;

uses
SysUtils,
Classes,
forms,
pluginloader,
Unit1 in "Unit1.pas" {Main},
Settings in "Settings.pas" {frmSettings},
DATAMOD in "..\..\..\..\..\xgh II\server\plugins\DATAMOD.pas" {DATA: TDataModule},
ChangeSeanse in "ChangeSeanse.pas" {frmSeanse};

{$E plu}

{$R *.res}

procedure Init(App: TApplication; Scr: TScreen);
begin
 Application := App;
 Screen := Scr;
 Application.CreateForm(TDATA, DATA);
 Application.CreateForm(TMain, Main);
 Application.CreateForm(TfrmSettings, frmSettings);
 Application.CreateForm(TfrmSeanse, frmSeanse);
end;

Function xGhost_server(NewOwner:TPluginLoader):Tplugins;
begin
result:=PluginLoader.EnumPlugins(application,newowner);
result.Caption :="Управление клубом";
result.Version :="0.1";
result.Author :="Delphin / ACS inc.";
result.Key :="234pt3253df35";
end;

exports
Init,
xGhost_server;

var
Main: TMain;

procedure DllMain(dwReason: DWord);
begin
 case dwReason of
   DLL_PROCESS_ATTACH:
     begin
...
     end;

   DLL_PROCESS_DETACH:
     begin
       //перед выгрузкой библ-ки разрушим формы, если они еще существуют
       DATA.Free;
       Main.Free;
       frmSettings.Free;
       frmSeanse.Free;
     end;
 end;
end;

begin
 DllProc := @DllMain;
 DllMain(DLL_PROCESS_ATTACH);
end.

первым делом после загрузки хост-приложением библиотеки ты должен вызвать ее эксп.процедуру Init(Application, Screen), где Application - это объект класса TApplication, а Screen - объект класса TScreen .. оба эти объекта уже созданы в контексте хост-приложения, и вызовом этой процедуры ты устанавливаешь ссылки на эти объекты в контексте ДЛЛ .. и тут же создаешь нужные формы - теперь их владельцем становится объект Application хост-приложения


 
DelphiN! ©   (2004-12-28 10:07) [9]


>  [8] Digitman ©   (28.12.04 09:47)


А я даже и не думал что после Run управление не передается ...

Большое спасибо !


 
DelphiN! ©   (2004-12-28 10:10) [10]

А как оно может не передаваться ? Ведь главная форма создается и выполнение кода вней проходит, вторая форма показывается тоже, и отлично выполняется ее код, если она не обращается к первой ...


 
Digitman ©   (2004-12-28 10:35) [11]


> DelphiN! ©   (28.12.04 10:10) [10]


> А как оно может не передаваться ?


а это зависит от метода сборки обоих проектов .. в случае их сборки с Build With Run-Time Package объекты Application и Screen и у хост-пр-я и у ДЛЛ единые


> главная форма создается и выполнение кода вней проходит,
> вторая форма показывается тоже


оперируй названиями классов форм, а не "первая, вторая" .. иначе непонятно ..


> А я даже и не думал что после Run управление не передается


заглянем в код этого метода :

procedure TApplication.Run;
begin
 FRunning := True;
 try
...
   if FMainForm <> nil then
   begin
...
//вот он, тот самый бесконечный цикл !
//в него мы попадаем, если св-во MainForm объекта Application не пустое
//!!!!!!!!!!
     repeat
       try
         HandleMessage;
       except
         HandleException(Self);
       end;
     until Terminated;
//!!!!!!!!!!
   end;
 finally
   FRunning := False;
 end;
end;


 
DelphiN! ©   (2004-12-31 06:29) [12]

Application.Run;
Вообще убрал(длл у меня как плагин, а ядру это не нужно).
Однако проблемма осталась всеравно, например, если вызываю из Unit1 ф-ию, которая находится в DataModul-e, вылетает AV.

Unit1
...
procedure TMain.CompListCellClick(Sender: TObject; ACol, ARow: Integer);
begin
 CurStolb := ACol;
 CurStr := ARow;

 if DATA.GetField(ACol,IMG,CompList) = "0" then//Вот тут вылетает AV
 begin
   Message.MessageDlg("Данный компьютер не отвечает на запросы от сервера, возможно он выключен или на нем не работает сеть, либо же не установлен клиент xGhost Club Admin !",mtError,[mbOk],0);
   Exit;
 end;
...

DATAMOD
...
function TDATA.GetField(num: Integer; Field: Integer; CompList: TGridView): String;
var
 i: Integer;
begin
 i := num - Main.CompList.RowCount;
 Main.CompList.AddRow(i+1);

 case Field of
   Comp:      Result := Main.CompList.Cell[Field,num].AsString;
   IMG:       Result := Main.CompList.Cell[Field,num].AsString;
   TimeLeft:  Result := Main.CompList.Cell[Field,num].AsString;
   BeginTime: Result := Main.CompList.Cell[Field,num].AsString;
   EndTime:   Result := Main.CompList.Cell[Field,num].AsString;
 end
end;

В чем теперь дело ?


 
DelphiN! ©   (2004-12-31 06:31) [13]

Кстати как я уже говорил ошибки возникают при обращении или передаче компонентов(в виде параметров ф-ий) из/х другие модули


 
Digitman ©   (2004-12-31 08:09) [14]

отладчиком-то посмотреть, что при вызове DATA.GetField() не так - не судьба ?


 
DelphiN! ©   (2005-01-04 07:16) [15]

Народ, ну в чем дело ? Неужели никто не знает ?


 
DelphiN! ©   (2005-01-04 07:28) [16]


>  [14] Digitman ©   (31.12.04 08:09)


В том то и дело что в данную процедуру он даже не заходит, при вызове сразу вылетает ...


 
DelphiN! ©   (2005-01-04 07:33) [17]

А, не я уже глючу(вместо F7 F8 жму. :) ) . Вылетает на строчке  
i := num - Main.CompList.RowCount;


 
Fay ©   (2005-01-04 07:34) [18]

Молча?


 
DelphiN! ©   (2005-01-04 07:53) [19]


>  [18] Fay ©   (04.01.05 07:34)
> Молча?


AV



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

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

Наверх




Память: 0.52 MB
Время: 0.043 c
14-1103884084
Skier
2004-12-24 13:28
2005.01.16
Дума и Новый Год


9-1095878094
Sam Stone
2004-09-22 22:34
2005.01.16
Морской бой


1-1104136038
Zeus
2004-12-27 11:27
2005.01.16
Работа с файлами


14-1104067878
Кудесник
2004-12-26 16:31
2005.01.16
Настройки плугина...


1-1104342003
SATANA_
2004-12-29 20:40
2005.01.16
Как создать файл на домене и записать в него текст