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

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

Прошу разъяснить и помочь

Страницы:   < 1 2 >

ferr ©   (2004-06-15 21:25:00) 

Когда я беру пример из книги Краснова DirectX Chap4 Ex09 его (Краснова программа на диске) откомпилированная версия работает нормально, но если я скомпилирую сам, данный проект, то при завршении он генерирует ошибку.
Может кто подскажет что делать.

---

ferr   (2004-06-16 00:37:00) [21]

Из Delphi я никогда не запуская, в 50% запусков компутер виснет напрочь, да и при чём это.

---

Огромное Кулясище   (2004-06-15 23:40:00) [22]

Это если запускаешь из Delphi. Компилируй и запускай вне среды.

---

ferr   (2004-06-15 22:41:00) [23]

Телепаты нонче в отпуске.
А жаль.
Цитирую ошибку с экрана монитора:
Access violation at adress 004068b8 in module 'He.exe'. Read of address 00000008.

procedure TfrmDD.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Hide
end;

procedure TfrmDD.FormDestroy(Sender: TObject);
var
 i : Integer;
begin
{OK}
 if Assigned(FDD) then begin
     if Assigned(FDDPal) then FDDPal := nil;
{OK}
     for i := 0 to NumSprites - 1 do begin
{OK - 1}
         if Assigned(spr [i].FSpriteSurface) then begin
{OK - 1}
            spr [i].FSpriteSurface._Release;
{OK - 1}
            spr [i].FSpriteSurface := nil;
{NOT}
         end;
{NOT}
     spr [i].Free;
     end;
     if Assigned(FDDSPrimary) then begin
        FDDSPrimary._Release;
        FDDSPrimary := nil;
     end;
     FDD._Release;
     FDD := nil;
 end;
end;

---

Jel   (2004-06-15 21:52:00) [24]

Телепаты нонче в отпуске. Ты бы хоть написал какую ошибку, кода кусочек привел. А так...

---

Страницы:   < 1 2 >

Наверх