Доступ к DLL

[soton1989]

Сделал DLL с формой внутри, вызываю ее из основной программы:

var
  dllHandle:THandle;
  ShowAddPDF: procedure(Handle: THandle)stdcall;
begin
  @ShowAddPDF:=nil;
  dllHandle:=LoadLibrary('workPDF.dll');

  if dllHandle<>0 then
  begin
    @ShowAddPDF:=GetProcAddress(dllHandle,'ShowAddPDF');
    if @ShowAddPDF<>nil then
       ShowAddPDF(Handle);
    FreeLibrary(dllHandle);
  end;


end;

сама dll:

library workPDF;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  System.SysUtils,
  System.Classes,
  AddPDF in 'AddPDF.pas' {fAddPDF};

{$R *.res}

exports ShowAddPDF index 10;


begin
end.

и код сохраненной в ней формы:

unit AddPDF;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ComCtrls,
  Vcl.ToolWin, Vcl.Buttons;

type
  TfAddPDF = class(TForm)
    SectEdit: TEdit;
    SubSectEdit: TEdit;
    TopicEdit: TEdit;
    Раздел: TLabel;
    Подраздел: TLabel;
    Тема: TLabel;
    RichEdit1: TRichEdit;
    Label1: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Image1: TImage;
    Panel4: TPanel;
    OkBtn: TBitBtn;
    CancelBtn: TBitBtn;
    BitBtn1: TBitBtn;
    ToolBar1: TToolBar;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fAddPDF: TfAddPDF;
  procedure ShowAddPDF(Handle: THandle);export;stdcall;

implementation

{$R *.dfm}
procedure ShowAddPDF(Handle:THandle);
begin
  Application.Handle:=Handle;
  fAddPDF:=fAddPDF.Create(Application);
  fAddPDF.ShowModal;
end;


end.

при вызове вылетает ошибка:
Access violation ot address 0161130b in module 'workPDF.dll'. Read address 00000000

[ych_del]

А кто будет передавать в DLL такие вещи, как Application и Screen?
При вызове функции это все надо передать, в самой dll-ке указать (не забыв при этом сохранить оригинальные) что-то вроде

DllApp := Application;
DllScr := Screen;

Application := ПереданныйApplication;
Screen := ПереданныйScreen;

При завершении работы DLL:

Application := DllApp;
Screeen := DllScr;

А вообще - следовало по шагам пройтись, отслеживая значения всего-всего, и обнаружить, что Application в строке Application.Handle:=Handle; у тебя = nil.
На будущее (в простом изложении):

Сообщение об ошибке Read address 00000000 явно указывает на то, что ты обращаешься к несозданному объекту.

[GunSmoker]

А кто будет передавать в DLL такие вещи, как Application и Screen?

Жеесть.

А вообще - следовало по шагам пройтись, отслеживая значения всего-всего, и обнаружить, что Application в строке Application.Handle:=Handle; у тебя = nil.

Ты врёшь.

при вызове вылетает ошибка:
Access violation ot address 0161130b in module 'workPDF.dll'. Read address 00000000

Есть мнение, что если запускать проект DLL под отладчиком, то при этом сообщении отладчик тебя носом тыркнет в строчку с ошибкой.

Если не получается, то вот список, который надо проверить:
1. Подчисти и изолируй код:

procedure ShowAddPDF(Handle: THandle); stdcall;
var
  AddPDF: TfAddPDF; // убери это объявление из interface модуля
begin
  Application.Handle := Handle;
  try
    AddPDF := TAddPDF.Create(nil);
    try 
      AddPDF.ShowModal;
    finally
      FreeAndNil(AddPDF);
    end;
  finally
    Application.Handle := 0;
  end;
end;

2. Попробуй тот же проект, но с пустой формой.
3. Проверь форму отдельно в exe проекте.

[soton1989]

Огромное спасибо, на первом пункте все заработало