Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DLL, с пакетами, использую DevExpress, компоненты xxDockxx, AV [WinXP]


Vlad Oshin ©   (2008-10-07 11:31:00) 

BDS2006.

Программа с DLL, с пакетами, использую DevExpress, компоненты xxDockxx, получаю AV при выходе.
Что характерно, если окошко "не прикреплено" к другим - то AV.
Если же прикреплено - то все нормально, штатный выход.

Текст dpr
----------------
{$IFDEF INLOG2}
 JclStackTrackingOptions :=  [stExceptFrame, stStack,  stRawMode, stAllModules, stStaticModuleList];
 JclStartExceptionTracking;
 JclAddExceptNotifier(LogException);  
{$ENDIF}
 try
   DeleteLog;
   WriteToLog('-= NumeroQuattro START =-');
   Application.Initialize;
   Application.Title := 'NumeroQuattro.Департамент';
   Application.CreateForm(TfrmMain, frmMain);
   Application.Run;
   WriteToLog('-= NumeroQuattro END =-');
 except
   on E:Exception do WriteToLog('-= NumeroQuattro error: '+E.message);
 end;
----------------

Лог
------------------
DateTime: 07.10.2008 11:11:08 -= NumeroQuattro START =-
DateTime: 07.10.2008 11:11:08 NumeroQuattro.Департамент: module NQUser.dll attach process
.......... module NQBasket.dll attach process
DateTime: 07.10.2008 11:11:12 Клик по окну класса:TButton(текст:Ok) подокно класса:TLogOnForm(текст:идентификация пользователя) подокно класса:TApplication(текст:NumeroQuattro.Департамент) vcl100.bpl
DateTime: 07.10.2008 11:11:30 Клик по окну класса:TBitBtn(текст:&Ignore) подокно класса:TfrmItemCard(текст:Карточка товара) подокно класса:TdxDockPanel(текст:Карточка товара) подокно класса:TdxFloatForm(текст:Карточка товара) подокно класса:TfrmMain(текст:NumeroQuattro.Департамент) подокно класса:TApplication(текст:NumeroQuattro.Департамент) vcl100.bpl
DateTime: 07.10.2008 11:11:39 -= NumeroQuattro END =-
DateTime: 07.10.2008 11:11:39
Exception occured at $52070BE2
Module "Forms"
Procedure "Forms.TCustomForm.SetVisible"
Unit "Forms.pas"
Line 3092
DateTime: 07.10.2008 11:11:42 NumeroQuattro.Департамент: module NQBasket.dll detach process
...........QUser.dll detach process
------------------

не выполняется, что логично, из-за выделеного
procedure TfrmMain.ApplicationEvents1Exception(Sender: TObject; E: Exception);
begin
WriteToLog('QQQQQQQQQq');
end;
=================================================

Кто сталкивался? Куда смотреть?


Vlad Oshin   (2008-10-07 17:04:00) [1]

излазил исходники, теперь в dpr написал последней строкой:

   WriteToLog('-= NumeroQuattro END =-');
 except
   on E:Exception do WriteToLog('-= NumeroQuattro error: '+E.message);
 end;
   application.MainForm.Free;
end.

и выход нормально отрабатывает.
целый день убил..


Vlad Oshin   (2008-10-07 11:49:00) [2]

еще хочется добавить,
что даже в дизайн-time бывают какие-то непонятные ошибки, когда начинаешь TdxDockPanel кидать на форму.
Отсюда пошел путем создания их динамически..

может это компоненты глючат?


Vlad Oshin   (2008-10-07 11:39:00) [3]


> не выполняется, что логично, из-за выделеного

а выделенным должно быть

> DateTime: 07.10.2008 11:11:39 -= NumeroQuattro END =-

т.е. программа уже завершилась


Наверх

Титульная страница Поиск, карта сайта Написать письмо