VPF::Ошибки при завершении программмы

[3Df]Grey DeMonstr

Дата 22.8.2004, 00:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 21.8.2004
Где: Москва

Репутация: 1
Всего: 1

У меня при закрытии программы вылетают две одинаковых ошибки типа Access Violation по адресу.. и так далее. Я использую такие вот переменные:

Код


var
  FDD             :IDirectDraw7;
  FDDSPrimary, FDDSMap, FDDSChipset,  FDDSTile, FDDSMinimap   :IDirectDrawSurface7;
  FDDClipper      :IDirectDrawClipper;

Освобожаю при закрытии в порядке, обратном порядку создания:

Код


if Assigned(FDD) then begin
  if Assigned(FDDSMap) then FDDSMap:=nil;
  if Assigned(FDDSChipset) then FDDSChipset:=nil;
  if Assigned(FDDSMinimap) then FDDSMinimap:=nil; //???
  if Assigned(FDDSPrimary) then FDDSPrimary:=nil; //???
  if Assigned(FDDClipper) then FDDClipper:=nil;  
  FDD:=nil;                                       //???
  end;
Application.Terminate;

Самое интересное: ошибки остаются, если хотя бы одна из строк, помеченных //??? не закомментирована. Наличие/отсутствие других строк на ошибки не влияют. Если убираю все три строки, ошибки исчезают. Подскажите, с чем может быть это связано и как этого избежать?
Заранее благодарен.

GRU

Дата 25.8.2004, 09:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 20.7.2004

Репутация: 1
Всего: 1

niznaju kak rabotaet, no esli vazmozhno paprobui Free potom nil

Это сообщение отредактировал(а) GRU - 25.8.2004, 10:04

[3Df]Grey DeMonstr

Дата 25.8.2004, 11:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 21.8.2004
Где: Москва

Репутация: 1
Всего: 1

Для объектов DirectDraw нет метода Free. Использование аналогичного по смыслу метода _Release приводит ко множеству ошибок

Girder

Дата 25.8.2004, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 31
Всего: 155

Вообще-то для совсем правильной работы надо пользоваться методом Release. Так как ты работаеш с COM объектом.
Ну а ошибка может быть где угодно: Какая верия DirectX, Получил лы ты нужный интерфейс, все ли ошибки в самой программе отловил. Ты бы код показал программы и модуля DirectDraw.pas или как он у тебя называется.

Это сообщение отредактировал(а) Girder - 25.8.2004, 12:20

--------------------

Как слышим, так и пишим.
Истина где-то там...

GRU

Дата 25.8.2004, 12:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 20.7.2004

Репутация: 1
Всего: 1

i Assign(nil) netu? parent?

[3Df]Grey DeMonstr

Дата 25.8.2004, 13:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 21.8.2004
Где: Москва

Репутация: 1
Всего: 1

Ладно, спасибо за помощь, я уже разобрался. Ошибки возникали из-за того, что уже после Form.Close происходило Form.Paint, а поверхности уже были освобождены.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »