Ошибка read of address 00000008

Mishavz

Автор темы

Mishavz

Автор темы

Репутация: 0

Сообщения: 198

Зарегистрирован: 30.10.2015

С нами: 7 лет 7 месяцев

Профессия: Инженер

Mishavz

Автор темы

Mishavz

Автор темы

Репутация: 0

Сообщения: 198

Зарегистрирован: 30.10.2015

С нами: 7 лет 7 месяцев

Профессия: Инженер

Mishavz

Автор темы

Mishavz

Автор темы

Репутация: 0

Сообщения: 198

Зарегистрирован: 30.10.2015

С нами: 7 лет 7 месяцев

Профессия: Инженер

google

Активный участник

google

Активный участник

Возраст: 38

Репутация: 92

Сообщения: 2089

Зарегистрирован: 11.06.2015

С нами: 8 лет

Профессия: Инженер

Откуда: Sml — Msk

ICQ

pet-and

Активный участник

pet-and

Активный участник

Возраст: 44

Репутация: 138

Сообщения: 3281

Зарегистрирован: 11.11.2012

С нами: 10 лет 7 месяцев

Профессия: инженер

Откуда: Санкт-Петербург

Mishavz

Автор темы

Mishavz

Автор темы

Репутация: 0

Сообщения: 198

Зарегистрирован: 30.10.2015

С нами: 7 лет 7 месяцев

Профессия: Инженер

pet-and

Активный участник

pet-and

Активный участник

Возраст: 44

Репутация: 138

Сообщения: 3281

Зарегистрирован: 11.11.2012

С нами: 10 лет 7 месяцев

Профессия: инженер

Откуда: Санкт-Петербург

Mishavz

Автор темы

Mishavz

Автор темы

Репутация: 0

Сообщения: 198

Зарегистрирован: 30.10.2015

С нами: 7 лет 7 месяцев

Профессия: Инженер

pet-and

Активный участник

pet-and

Активный участник

Возраст: 44

Репутация: 138

Сообщения: 3281

Зарегистрирован: 11.11.2012

С нами: 10 лет 7 месяцев

Профессия: инженер

Откуда: Санкт-Петербург

Mishavz

Автор темы

Mishavz

Автор темы

Репутация: 0

Сообщения: 198

Зарегистрирован: 30.10.2015

С нами: 7 лет 7 месяцев

Профессия: Инженер

Mishavz

Автор темы

Mishavz

Автор темы

Репутация: 0

Сообщения: 198

Зарегистрирован: 30.10.2015

С нами: 7 лет 7 месяцев

Профессия: Инженер

Mishavz

Автор темы

Mishavz

Автор темы

Репутация: 0

Сообщения: 198

Зарегистрирован: 30.10.2015

С нами: 7 лет 7 месяцев

Профессия: Инженер

pet-and

Активный участник

pet-and

Активный участник

Возраст: 44

Репутация: 138

Сообщения: 3281

Зарегистрирован: 11.11.2012

С нами: 10 лет 7 месяцев

Профессия: инженер

Откуда: Санкт-Петербург

Mishavz

Автор темы

Mishavz

Автор темы

Репутация: 0

Сообщения: 198

Зарегистрирован: 30.10.2015

С нами: 7 лет 7 месяцев

Профессия: Инженер

• 6

  1065

  
  DruG
  Перейти к последнему сообщению
  17.07.2020, 07:04
  

• 7

  17365

  
  MDoc
  Перейти к последнему сообщению
  29.12.2018, 08:28
  

• 4

  1000

  
  Vlad_ru
  Перейти к последнему сообщению
  28.12.2020, 17:34
  

• 2

  1064

  
  slipmann
  Перейти к последнему сообщению
  18.11.2019, 14:26
  

• 1

  1081

  
  DruG
  Перейти к последнему сообщению
  24.12.2019, 21:03
  

• 3

  1444

  
  DmitryK
  Перейти к последнему сообщению
  26.12.2019, 13:52
  

• 4

  3164

  
  Dmitriy1911
  Перейти к последнему сообщению
  08.07.2018, 16:23
  

• 10

  2119

  
  dima-r-88
  Перейти к последнему сообщению
  18.01.2020, 21:08
  

• 12

  1449

  
  Svin
  Перейти к последнему сообщению
  15.09.2020, 08:25
  

• 1

  644

  
  Vse
  Перейти к последнему сообщению
  08.02.2022, 15:19
  

Unit  myUnit;
// ...
//normal declarations
//...
Public
//bunch of procedures including
Procedure myProcedure;

const
//bunch of constants

var
//bunch of vars including
myCounter:integer;

Implementation
Uses //(all my uses)

// All of my procedures including

Procedure myProcedure;
   try
     // load items from file to TListBox - this all works
   except
   on EReadError do begin
     // handle exception
     end;
   end; //try



   myCounter:=0;  //  <--  ACCESS VIOLATION HERE
   while myCounter //...etc

2

Телепаты нонче в отпуске.
А жаль.
Цитирую ошибку с экрана монитора:
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;

Нынче совсем сейчас запускал пример (тот, что с Мона Лизой) из под Delphi, после окончания — AV вылетает. Запустил откомпиленое приложение просто из проводника — всё нормально. Дело в отладчике Delphi. Так что подумал…

В твоём случае… э, если ты дейстивтельно не запускал из под Delphi, то либо: конфликт версий Delphi, проблемы с видеокартой, покоцаный DirectX, вмешалось НЛО…

Закомментируй все строчки ._Release;
Там примеры для Дельфи5, а у тебя или шестая или седьмая.

Вы совершенно правы, но я не знаю что значит закомментируй.

const
 NumSprites     = 10;

var
 spr : Array [0..NumSprites - 1] of TSprite;

От тебя требуется:


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


Вот подобрал пример, который помельче, но с той же ошибкой.
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 AppEvnts, ExtCtrls,
 DirectDraw, DDUtil;

type
 TfrmDD = class(TForm)
   ApplicationEvents1: TApplicationEvents;
   procedure FormCreate(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
   procedure FormPaint(Sender: TObject);
   procedure ApplicationEvents1Deactivate(Sender: TObject);
   procedure FormKeyDown(Sender: TObject; var Key: Word;
     Shift: TShiftState);
   procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
     Y: Integer);
   procedure ApplicationEvents1Restore(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
 private
   { Private declarations }
   FDD            : IDirectDraw7;
   FDDSBack       : IDirectDrawSurface7;
   FDDSPrimary    : IDirectDrawSurface7;
   FDDSBackGround : IDirectDrawSurface7;
   FDDSImage      : IDirectDrawSurface7;
   function RestoreAll : HRESULT;
   procedure ErrorOut(hRet : HRESULT; FuncName : String);
 public
   { Public declarations }
 protected
   procedure FormSetCursor(var aMsg : TMessage); message WM_SETCURSOR;
 end;

const
 ScreenWidth    = 640;
 ScreenHeight   = 480;
 ScreenBitDepth = 16;
 groundBmp      = «..lake.bmp»;
 imageBmp       = «..mouse.bmp»;

var
 frmDD : TfrmDD;
 mouseX : Integer = 0;
 mouseY : Integer = 0;

implementation

{$R *.DFM}

procedure TfrmDD.ErrorOut(hRet : HRESULT; FuncName : String);
var
 t : TextFile;
begin
 AssignFile (t, «Debug.txt»);
 Rewrite (t);
 WriteLn (t, FuncName + «: » + DDErrorString (hRet));
 CloseFile (t);
 Destroy;
end;

procedure TfrmDD.FormCreate(Sender: TObject);
var
 hRet : HRESULT;
 ddsd : TDDSurfaceDesc2;
 ddscaps : TDDSCaps2;
begin
 FDDSImage := nil;
 FDDSBack := nil;
 FDDSBackGround := nil;
 FDDSPrimary := nil;
 FDD := nil;

 hRet := DirectDrawCreateEx (nil, FDD, IDirectDraw7, nil);
 if Failed (hRet) then ErrorOut(hRet, «DirectDrawCreateEx»);

 hRet := FDD.SetCooperativeLevel(Handle, DDSCL_FULLSCREEN or DDSCL_EXCLUSIVE);
 if Failed (hRet) then ErrorOut(hRet, «SetCooperativeLevel»);

 hRet := FDD.SetDisplayMode (ScreenWidth, ScreenHeight, ScreenBitDepth, 0, 0);
 if Failed (hRet) then ErrorOut(hRet, «SetDisplayMode»);

 ZeroMemory (@ddsd, SizeOf(ddsd));
 with ddsd do begin
    dwSize := SizeOf(ddsd);
    dwFlags := DDSD_CAPS or DDSD_BACKBUFFERCOUNT;
    ddsCaps.dwCaps := DDSCAPS_PRIMARYSURFACE or DDSCAPS_FLIP or DDSCAPS_COMPLEX;
    dwBackBufferCount := 1;
 end;
 hRet := FDD.CreateSurface(ddsd, FDDSPrimary, nil);
 if Failed (hRet) then ErrorOut(hRet, «Create Primary Surface»);

 FDDSBackGround := DDLoadBitmap(FDD, groundBmp, ScreenWidth, ScreenHeight);
 if FDDSBackGround = nil then ErrorOut(DD_FALSE, «DDLoadBitmap»);

 ZeroMemory(@ddscaps, SizeOf(ddscaps));
 ddscaps.dwCaps := DDSCAPS_BACKBUFFER;
 hRet := FDDSPrimary.GetAttachedSurface(ddscaps, FDDSBack);
 if Failed (hRet) then ErrorOut(hRet, «GetAttachedSurface»);

 FDDSImage := DDLoadBitmap(FDD, imageBmp, 0, 0);
 if FDDSImage = nil then ErrorOut(DD_FALSE, «DDLoadBitmap»);

 hRet := DDSetColorKey (FDDSImage, RGB(0, 0, 0));
 if Failed (hRet) then ErrorOut(hRet, «DDSetColorKey»);
end;

procedure TfrmDD.FormDestroy(Sender: TObject);
begin
 if Assigned(FDD) then begin
     if Assigned(FDDSImage) then begin
//         FDDSImage._Release;
        FDDSImage := nil;
     end;
     if Assigned(FDDSBackGround) then begin
//         FDDSBackGround._Release;
        FDDSBackGround := nil;
     end;
     if Assigned(FDDSPrimary) then begin
//         FDDSPrimary._Release;
        FDDSPrimary := nil;
     end;
//      FDD._Release;
     FDD := nil;
 end;
end;

procedure TfrmDD.FormPaint(Sender: TObject);
var
 hRet : HRESULT;
begin
 while True do begin
   hRet := FDDSBack.BltFast (0, 0, FDDSBackGround, nil, DDBLTFAST_WAIT);
   if hRet = DDERR_SURFACELOST then begin
      if Failed (RestoreAll) then Exit;
   end
   else Break;
 end;

 while True do begin
   hRet := FDDSBack.BltFast (mouseX, mouseY, FDDSImage, nil,
                             DDBLTFAST_WAIT or DDBLTFAST_SRCCOLORKEY);
   if hRet = DDERR_SURFACELOST then begin
      if Failed (RestoreAll) then Exit;
   end
   else Break;
 end;

 while True do begin
   hRet := FDDSPrimary.Flip(nil, DDFLIP_WAIT);
   if hRet = DDERR_SURFACELOST then begin
      if Failed (RestoreAll) then Exit;
   end
   else Break;
 end;
end;

procedure TfrmDD.ApplicationEvents1Deactivate(Sender: TObject);
begin
 Application.Minimize;
end;

procedure TfrmDD.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if (Key = VK_ESCAPE) or (Key = VK_F12) then Close;
end;

procedure TfrmDD.FormSetCursor(var aMsg : TMessage);
begin
 SetCursor(0);
end;

procedure TfrmDD.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
 if X <= ScreenWidth — 40 then mouseX := X;
 if Y <= ScreenHeight — 40 then mouseY := Y;
 FormPaint (nil);
end;

function TfrmDD.RestoreAll : HRESULT;
var
 hRet : HResult;
begin
 hRet := FDDSPrimary._Restore;
 if Succeeded (hRet) then begin
     hRet := FDDSBackGround._Restore;
     if Failed (hRet) then begin
        Result := hRet;
        Exit;
     end;
     hRet := DDReLoadBitmap(FDDSBackGround, groundBmp);
     if Failed (hRet) then begin
        Result := hRet;
        Exit;
     end;
     hRet := FDDSImage._Restore;
     if Failed (hRet) then begin
        Result := hRet;
        Exit;
     end;
     Result := DDReLoadBitmap(FDDSImage, imageBmp);
 end
 else Result := hRet;
end;

procedure TfrmDD.ApplicationEvents1Restore(Sender: TObject);
begin
 WindowState := wsMaximized;
end;

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

end.

Добавить ответ

По каждому вопросу/ответу можно добавлять комментарии. Комментарии предназначены для уточнения вопроса/ответа.