Скачать: CL | DM;

access violation при закрытии приложения (DLL)   Найти похожие ветки 

← →
fs   (2009-05-26 13:42) [0]

В приложении используется процедура которая закрашивает форму в виде шахматной доски. Поместил ее в dll тут при закрытии стало появлятся access vialotion. пробывал 2 подхода (динамическая загрузка и статическая) и в обоих случаях ошибка появляется. В чем может быть дело?

---

← →
fs   (2009-05-26 13:43) [1]

Вот код dll


library Chessboard_;

uses Windows, Classes, Graphics;

{$R *.res}

procedure Chessboard(ACanvas: TCanvas; AWidth: Integer; AHeight: Integer);
const
 Colors: array [Boolean] of TColor = (clWhite, clGray);
 default_tile_Height = 13;
 default_tile_Width  = 13;
var
 OddY, TileX, TileY, TilesHorz,
   TilesVert, I, J: Integer;
 R: TRect;
begin
 TilesHorz := AWidth  div default_tile_Width;
 TilesVert := AHeight div default_tile_Height;
 TileY := 0;
 for J := 0 to TilesVert do begin
   TileX := 0;
   OddY  := J and $1;
   for I := 0 to TilesHorz do
   begin
     R := Rect(TileX, TileY, TileX + default_tile_Width,
       TileY + default_tile_Height);
     ACanvas.Brush.Color := Colors[I and $1 = OddY];
     ACanvas.FillRect(R);
     Inc(TileX, default_tile_Width);
   end;
   Inc(TileY, default_tile_Height);
 end;
end;

exports
 Chessboard;

begin
end.


---

← →
Сергей М. ©   (2009-05-26 13:43) [2]

> Поместил ее в dll


Зачем ?
Чем плоха жизнь этой самой процедуры прямо в exe-модуле ?

---

← →
fs   (2009-05-26 13:46) [3]

по условию курсача

---

← →
sniknik ©   (2009-05-26 13:53) [4]

> uses Windows, Classes, Graphics;
> procedure Chessboard(ACanvas: TCanvas; AWidth: Integer; AHeight: Integer);
?
создай новую dll (модуль) а дельфях и внимательно почитай дисклаймер который оно туда вставляет.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c