Ошибка при загрузке DLL

[dani92]

Здравствуйте, такая проблема возникла:: Когда я открываю программу, dll загружается, но при закрытии программы выдает ошибку RunTime error 216 at 003437E2
В библиотеке лежит форма

[Пепел Феникса]

216 Access violation EAccessViolation
значит пытаетесь обратится к невашему участку памяти, а точнее скорее всего к обьекту которого уже нет

[dani92]

dll существует в на диске, я его пробовал из другой программы загрузить - все работет нормально

[Stilet]

А че в DLL написано?
Чесно говря с формами в ДЛЛ поаккуратнее нужно.

[dani92]

exports ShowAbout index 15; - вото это написано в юните

А это в юните самой формы в DLL

var
  Form1: TForm1;
  procedure ShowAbout(Handle: THandle);export;stdcall;

  implementation

{$R *.dfm}
procedure ShowAbout(Handle: THandle);
begin
Application.Handle := Handle;
Form1:= TForm1.Create(Application);
Form1.ShowModal;
Form1.Free;
end;
procedure TForm1.FormClick(Sender: TObject);
begin
     Form1.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     Close;
end;

end.

[Stilet]

Form1.Close;

Думаю Это мешает. Ты все равно потом Form1.Free вызываеш так что убери это дело.

[Altera]

Сообщение от Stilet

Думаю Это мешает. Ты все равно потом Form1.Free вызываеш так что убери это дело.

скорее всего form1.close вызывается после form1.free. А ты отладчик в DLL не можешь юзать?

[Stilet]

А ты отладчик в DLL не можешь юзать?

Я? )))) Могу, хе-хе

Автор, вот пример:

Главная форма:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  procedure ShowAbout; external 'project2.dll';
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowAbout;
end;

end.

DLL

library Project2;

uses
  SysUtils,
  Classes,
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}
   procedure ShowAbout;
    var form1:TForm2;
    begin
     Form1:= TForm2.Create(nil);
     Form1.ShowModal;
     Form1.Free;
    end;
exports ShowAbout ;
begin
end.

А что ты в юните второй формы опишеш не суть важно.

[dani92]

Ниче не помогает, все перепробовал!!! Пишет, что инструкция не может быть read

[BOBAH13]

Объясните смысл строки

Application.Handle := Handle;