Помогите Delphi TBrush в DLL

[Владимиp]

Вызываю функцию из DLL, которая использует TBrush для вывода картинки в TPaintBox. При перерисовке TPaintBox-а выскакивает ошибка: "ExceptionViolaion in module Project2.exe at 0001B92F. Access violation at address 0041B92F in module 'Project2.exe'. Read of address 00000000."
Что-то вроде этого у меня было и с TPen, но подключение к DLL модуля Controls это исправило. А с TBrush проблема осталась.

[Alter]

телепаты в отпуске, бессрочном.
код покажите, без него никак.

[Владимиp]

Код программы:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
procedure tp(t1:TCanvas)StdCall;
type
TForm1 = class(TForm)
Button1: TButton;
PaintBox1: TPaintBox;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
procedure tp;external '2.dll' name 'tp';
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
tp(PaintBox1.Canvas);
end;

end.


Код DLL:


library 2;



uses
SysUtils, Controls,
Graphics,
Classes;
procedure tp(t1:TCanvas);StdCall;
begin

t1.Brush.Color:=$808080;
t1.Pen.Color:=$000000;
t1.Rectangle(0,0,9,39);

t1.Rectangle(30,0,39,39);


end;
exports tp;
{$R *.res}

begin
end.

[Владимиp]

Очень нужно! ПОЖАЛУЙСТА ПОМОГИТЕ!

[]Wowan[]

Во первых нет необходимости указывать дерективу Name здесь

var
Form1: TForm1;
procedure tp;external '2.dll' name 'tp';
implementation

т.к из длл эта процедура экспортируеся без указания имени
во вторых попробуй динамический импорт.

[Владимиp]

Динамический импорт не помогает. Кто-то может еще что-нибуть предложить?

[Владимиp]

Не помогло. Кто-то может еще что-нибудь предложить???

[alexBlack]

Не передавайте в dll объект TCanvas, созданный в приложении. Можно передать handle:

procedure tp(H:HDC); stdcall; external 'Project61.dll';

procedure TForm2.Button1Click(Sender: TObject);
begin
   tp(PaintBox1.Canvas.Handle);
end;
//-----------------------------
procedure tp(H:HDC);StdCall;
var C:TCanvas;
begin
   C := TCanvas.Create;
   try
      C.Handle := H;
      C.Brush.Color:=$808080;
      C.Pen.Color:=$000000;
      C.Rectangle(0,0,9,39);
      C.Rectangle(30,0,39,39);
   finally
      C.Handle := 0;
      C.Free;
   end;
end;

exports tp;

[Владимиp]

alexBlack, ОГРОМЕННОЕ СПАСИБИЩЕ тебе!!!!