Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > A call to an OS function failed


Автор: ilya198293 30.5.2007, 08:58
В моём приложении несколько форм:
из формы 1 вызываю форму 2:
Код

Application.CreateForm(TForm2, Form2);
Form2.Show;

при закрытии формы 2 стоит обработчик событий:
Код

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form2.Free;
end;

без такого обработчика форма не закрывается, а просто становится невидимой.
последовательность открытия и закрытия делаю 24 раза и на 25 выходит сообщение "Error reading ComboBox1.Items.Strings: A call to an OS function failed."
Причём первых 24 раза обрабатывается всё нормально. Результат работы формы 2 зависит от настроек формы 1. При разных настройках всё тоже работает, но до 25 раза.
Что это значит и как это победить?

Автор: ama_kid 30.5.2007, 09:21
Цитата(ilya198293 @  30.5.2007,  08:58 Найти цитируемый пост)
Что это значит и как это победить?
Это значит, что у тебя идет неправильная работа с памятью... Я с такой проблемой не сталкивался, ибо таким варварским способом не освобождал форму, навскидку вижу проблему в том, что у тебя из обработчика формы непосредственно идет вызов деструктора. А ведь сказано в хелпе:
Цитата
Warning:    Never explicitly free a component within one of its own event handlers or the event handler of a component it owns or contains.

Код
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form2.Free;
end;
Как думаешь, для чего придуман параметр Action:TCloseAction? Если ты сделаешь
Код
Actio:=caFree;
ты достигнешь того же самого результата, но вполне разрешенным способом... 

Автор: MetalFan 30.5.2007, 09:27
так же добавлю, что нельзя убивать форму методом Free в обработчиках событий, описанных в ней же...  для этого необходимо использовать метод Release.
ну это так, на всякий случай для общего развития. в приведенном случае правильно делать так, как сказал ama_kid.

Автор: ilya198293 30.5.2007, 10:49
Теперь ещё несколько моментов, которые возможно помогут прояснить ситуацию.
В обработчике событий TForm1.FormCreate стоит запуск формы 8, в которой в два потока производится SQL запрос и прогон ProgressBar(зависит от времени - 20 сек - типа "подготовка к работе"). при завершении ProgressBar вызываю Form8.Close. При этом возвращаюсь в форму 1 и сразу делаю Form8.Free. В этом месте пробовал ставить обработчик TForm8.FormClose с текстом Action:=caFree, но тогда форма 8 закрывается (не знаю закрывается или просто становится невидимой), а форма 1 не визуализируется, а в диспетчере задач приложение остаётся (ресурсы при этом не жрёт).Так что пока оставил Form8.Free в тексте процедуры TForm1.FormCreate.
Далее настройка всего в форме 1 и потом пошёл каскад открываний и закрываний формы 2. Поменял в TForm2.FormClose Form2.Free на Action:=caFree получил как и посоветовали - эквивалент Free (по крайней мере пока работает так как надо).
Но ошибка осталась всё равно.
По идее 24 раза она же почему-то отработала.

Автор: ama_kid 30.5.2007, 11:25
какой ужас...  smile 
Цитата(ilya198293 @  30.5.2007,  10:49 Найти цитируемый пост)
Теперь ещё несколько моментов, которые возможно помогут прояснить ситуацию.
Лично для меня все еще более запуталось...  Лучше бы код привел или тестовый проект выложил...  smile 
Цитата(ilya198293 @  30.5.2007,  10:49 Найти цитируемый пост)
По идее 24 раза она же почему-то отработала.
Пока система имеет возможность выделять тебе дополнительную память - все работает... Проверь утечки памяти хотя бы через диспетчер задач (а по хорошему - надо через модуль MemCheck)...

P.S. Вообще, плохая практика в обработчике OnCreate одной формы создавать другую... Не будет ли правильнее создавать необходимую тебе Form8 перед созданием Form1?

Автор: Rennigth 30.5.2007, 11:27
Ну так Action := caFree и вызывает в итоге Release. smile

Код

procedure TCustomForm.Close;
var
  CloseAction: TCloseAction;
begin
  if fsModal in FFormState then
    ModalResult := mrCancel
  else
    if CloseQuery then
    begin
      if FormStyle = fsMDIChild then
        if biMinimize in BorderIcons then
          CloseAction := caMinimize else
          CloseAction := caNone
      else
        CloseAction := caHide;
      DoClose(CloseAction);
      if CloseAction <> caNone then
        if Application.MainForm = Self then Application.Terminate
        else if CloseAction = caHide then Hide
        else if CloseAction = caMinimize then WindowState := wsMinimized
        else Release;
    end;
end;

Автор: ilya198293 31.5.2007, 07:56
Попробовал найти ошибки в программе просто создав новый проект и постепенно перенося процедуры из старого проекта...так столько ошибок повылезало...причём не могу понять как они в старом проекте проходили...например брал дату и конвертировал в строку в формате 'dd/mm/yy'. потом при раскладке считывал символы 1+2,4+5,7+8+9+10 и он считывал. в новом проекте даёт ошибку, причём логичную ошибку...ещё в нескольких местах такая же ерунда...когда считывалось из стринга больше символов чем там есть вообще...так что там нужно весь проект пересматривать...
я по крайней мере грешу на установку всех сервиспаков и апдейтов...без них как-то логичнее всё работало, хотя и вылетали ошибки - ошибки у самого делфи, но не у разрабатываемого проекта.

Автор: ilya198293 31.5.2007, 09:38
Сейчас просто эксперементировал с двумя формами и получил такие результаты:
Form1
Здесь форма создаётся как модальная, а в проекте нет, но сути это не меняет
Код

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private{Private declarations}
  public{Public declarations}
  end;
var
  Form1: TForm1;
implementation
uses Unit2;{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  try Form2.Visible:=true                                       //проверка на то существует форма или нет
    except
      on EAccessViolation
      do begin
        Application.CreateForm(TForm2, Form2);
        Form2.ShowModal;
        Form2.Free;
      end;
  end;
end;
end.


Forma2
Код

unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private{Private declarations}
  public{Public declarations}
  end;
var
  Form2: TForm2;
implementation
uses Unit1;{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
  Form2.Close;
end;
end.

Ошибка появляется когда вводится проверка try в форме1. 
как ещё можно проверить существование формы (видимой и не видимой) для того, чтоб не запускать их несколько штук?

Автор: ama_kid 31.5.2007, 10:43
Мысли проще:
Код
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 try
  Form2.ShowModal;
 except
  Form2:=TForm2.Create(Self);
  Form2.ShowModal;
 end;
 Form2:=nil;
end;

end.


Код
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:=caFree;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
 Close;
end;

end.

Естессно, вторую форму желательно убрать из списка автосоздаваемых...

Автор: ilya198293 31.5.2007, 11:02
Форма 2 из автосоздания убрана была.
Когда проверка такая:
Код

 try
  Form2.ShowModal;
 except
  Form2:=TForm2.Create(Self);
  Form2.ShowModal;
 end;
 Form2:=nil;
end;

то второй раз нажать на кнопку на форме 1 не предоставляется возможным до тех пор пока она не закрыта...в этом случае try можно и не ставить, просто написать Action:=caFree; и всё.
но в случае когда форма не модальная, тогда при нажатии плодятся новые формы...суть то всей задачи запретить открывать несколько вторых форм, но при этом иметь доступ к форме 1, из неё могут запускаться другие формы с такими же проверками.

Автор: MetalFan 31.5.2007, 11:20
Цитата(ilya198293 @  31.5.2007,  11:02 Найти цитируемый пост)
 try
  Form2.ShowModal;
 except
  Form2:=TForm2.Create(Self);
  Form2.ShowModal;
 end;
 Form2:=nil;
end;

руцки бы паатрыфалл за такое....
типа: ...."АГА!" сказали сибирские мужыки и пашли пилить дальше двуручной пилой

Автор: ama_kid 31.5.2007, 11:47
MetalFan
Что конкретно не нравится?  smile Уже лет пять пользуюсь таким способом и ни разу еще на грабли не наткнулся... В чём пила? Знаю тебя по форуму как человека, не бросающимся такими заявлениями беспочвенно, поэтому вдруг взял страх за свои проекты smile

Цитата(ilya198293 @  31.5.2007,  11:02 Найти цитируемый пост)
суть то всей задачи запретить открывать несколько вторых форм, но при этом иметь доступ к форме 1, из неё могут запускаться другие формы с такими же проверками.
Выстави просто флаг какой-нибудь при создании второй формы и сбрасывай при закрытии, а перед созданием - проверяй его. Или юзай мьютексы...

Автор: ilya198293 31.5.2007, 12:01
О-о-о-о-о-о-о-о, а флаг это идея...как я сам не догадался...тармажу...спасибоsmile

Автор: aktuba 31.5.2007, 12:12
Цитата

Код

 try
  Form2.ShowModal;
 except
  Form2:=TForm2.Create(Self);
  Form2.ShowModal;
 end;
 Form2:=nil;
end;



ЖЭСТЬ!!! Куда мир катиться...

Автор: MetalFan 31.5.2007, 12:17
ama_kid, зачем доводить до того, что может возникнуть исключение? да еще и скорее всего AV. если можно обойтись, как ты сам и сказал, проверкой и установкой флага...
нет, конечно бывают моменты, когда исключения используются для уведомления... например в тех же индейцах это сплошь и рядом...
но когда таким образом осуществляется проверка на "живость" объекта... брр..

Автор: ama_kid 31.5.2007, 12:56
MetalFan
Т.е. ты не видишь тут поля для утечек памяти, непроизвольного разрушения объекта или еще какой-нибудь катастрофы, а только то, что это непривычно а-ля "бр.."? Ну хоть это радует и я уже спокоен за свои проекты smile
Цитата(MetalFan @  31.5.2007,  12:17 Найти цитируемый пост)
зачем доводить до того, что может возникнуть исключение? да еще и скорее всего AV. если можно обойтись, как ты сам и сказал, проверкой и установкой флага...
На мой взгляд, сознательно вызванное и корректно обработанное исключение гораздо лучше, чем наличие ненулевой вероятности того, что в процедуре, сбрасывающей флаг, может произойти необработанное исключение, повлекшее аварийный выход из этой процедуры с оставленным несброшенным флагом, ну и до кучи - необходимости держать ради каждой формы свои флаги... Тем более, видно, что часть в блоке try - в принципе не нужна при Action:=caFree; ибо заведомо будет исключение, это у меня оставлено только для личного удобства, однотипности и ради потакания привычке (ну и для случайного неиспользования Action:=caFree)... 

Автор: aktuba 31.5.2007, 13:21
Цитата

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


А на мой взгляд, программировать на основе эксепшенов не верно... Это все-равно, что создавать код и заранее знать что в нем ошибки, но продолжать поддерживать его в том же виде. Эксепшены должны быть для обработки не предвиденных ошибок, действий пользователей и т.д., но не для обработки действий программы!

Автор: MetalFan 31.5.2007, 16:09
Цитата(ama_kid @  31.5.2007,  12:56 Найти цитируемый пост)
На мой взгляд, сознательно вызванное и корректно обработанное исключение

не вижу СОЗНАТЕЛЬНОГО вызванного исключения.
сознательное вызванное исключение имхо должно выглядеть так:
Код

  if condition then
    raise exception.create('Exception!');

но никак попытка вызова метода из возможно уже разрушенного класса.
тем более неизвестно где и когда там происходит нарушение доступа к памяти... 
а если по тому адресу уже что-то располагается?

Цитата(ama_kid @  31.5.2007,  12:56 Найти цитируемый пост)
в процедуре, сбрасывающей флаг, может произойти необработанное исключение, повлекшее аварийный выход из этой процедуры с оставленным несброшенным флагом

в корректно написанной программистом процедуре не может происходить необработанных исключений.
гораздо страшнее возникающее AV при вызове у "мертвой" формы ShowModal.

Автор: pseud 31.5.2007, 16:26
Цитата

Код

  try
    Form2.ShowModal;
  except
    Form2:=TForm2.Create(Self);
    Form2.ShowModal;
  end;
  Form2:=nil;



Полностью поддерживаю MetalFan и aktuba.
Код выглядит нелепо.

Добавлено через 4 минуты и 53 секунды
так по-моему красивее и правильнее
Код

with TForm2.Create(Self) do
try
  ShowModal;
finally
  Free;
end;

Автор: ama_kid 31.5.2007, 17:21
Цитата(pseud @  31.5.2007,  16:26 Найти цитируемый пост)
Код выглядит нелепо
Ну, это вообще не агрумент smile Для меня Application.CreateForm выглядит не менее нелепо, ибо я отвык его использовать...
Цитата(pseud @  31.5.2007,  16:26 Найти цитируемый пост)
так по-моему красивее и правильнее
Мы вроде спорим не про то, как красивее - в конце концов, это индивидуальное дело каждого... smile Кстати, попробуй организуй со своим кодом немодальность и взаимодействие между формами (на уровне объектов, а не на уровне сообщений)...
Цитата(MetalFan @  31.5.2007,  16:09 Найти цитируемый пост)
в корректно написанной программистом процедуре не может происходить необработанных исключений.
С этим никто и не спорит...
Цитата(MetalFan @  31.5.2007,  16:09 Найти цитируемый пост)
гораздо страшнее возникающее AV при вызове у "мертвой" формы ShowModal
А вот с этим - можно и поспорить (а возможно узнать что-то новое)... Но: без оффтопа, переезжаем http://forum.vingrad.ru/forum/topic-154111/kw-создание-окна/view-all.html...

Автор: pseud 31.5.2007, 17:44
Цитата(ama_kid @  31.5.2007,  17:21 Найти цитируемый пост)
Кстати, попробуй организуй со своим кодом немодальность и взаимодействие между формами (на уровне объектов, а не на уровне сообщений)...


это из твоей темы "Как вы создаете окна в приложении (runtime)? вспомогательные окна"
Цитата(pseud @  31.5.2007,  14:12 Найти цитируемый пост)
3. Последнее время делаю окна самостоятельные с отображением на таскбаре винды. Т.е. не MDI приложение, не модальное, а что-то типа MSOutlook'а. Работаю через "фабрику форм". 


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

P.S. Насчет "нелепо" - извини.  

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)