Ошибка при загрузки названий компонентов delphi из DLL

[kostya_29]

Вот Содержимое DLL:

library dll;

uses
  SysUtils,
  Classes,
  Dialogs,
  Unit1;

procedure DllMessage; export;
begin
form1.Button1.Caption:='ааа';
form1.Button2.Caption:='аааа';
form1.Button3.Caption:='аааа';
form1.Button4.Caption:='аааа';
form1.Label2.Caption:='ааааааа';
form1.GroupBox1.Caption:='ннннннн';
form1.GroupBox2.Caption:='ннннн';
form1.RadioGroup1.Caption:='ннннн';
form1.RadioGroup2.Caption:='ннннн';
form1.RadioGroup3.Caption:='ннннн';
form1.RadioGroup4.Caption:='ннннн';
end;

exports DllMessage;

begin
end.
//====

Вот процедура уже в программе:

procedure DllMessage; external 'dll.dll'

Вот содержимое Кнопки в программе:

DllMessage;

При нажатии кнопки все компоненты должны назваться как написанно в DLL.

Но в место этого вылазиет ошибка "Access violation at address 003A22ED in module 'dll.dll'. Read of Address 000003B4 "

Как избежать этой ошибки?)
Заранее Спасибо!!!)))

[Прик]

DLL должно "знать" о какой форме речь
Передача параметра исправит ситуацию (во всяком случае, в Д2010 работает):

library Dll;

uses
  SysUtils, Classes, Dialogs, Unit1;

{$R *.res}

procedure DllMessage(Form1 : TForm1); export;
begin
  ...
  form1.Button1.Caption:='ааа';

В приложении ничего исправлять не надо.

[FaTaL]

Как вы из DLL обращаетесь к форме, которая находиться в основном модуле программы? Вы обращаетесь к форме которой нет в DLL, поэтому и ошибка, потому что в DLL нет формы Form1

[notHaker]

FaTaL, к форме можно обратиться, если компилятор один и тот же для exe и dll.

Ковырять объекты не пренадлежащие dll - плохая практика. Обычно делают API либо в форме пакета функций с надлежащим соглашением о вызовах (аля WinAPI), либо если уж приспичили объекты, то используя интерфейсы COM.

[kostya_29]

Прик, Спасибо Тебе!))) Работает!))

А Вот ещё проблема!, помогите мне её решить!)

Я вставил, чтобы при записке программы меняла название помпонентов из DLL.

procedure TForm1.FormCreate(Sender: TObject);
begin
DllMessage;
end;

При запуске программы, вылазиет ошибка!!

А когда я в кнопку вставлял DllMessage; ,
то всё менялось отлично))

[mss]

При запуске программы, вылазиет ошибка

Потому что Form1 = nil

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

p.s. Специально для решения таких и подобных задач Борланд придумала отличный "антиграблин" - BPL.

[FaTaL]

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

А Вот ещё проблема!, помогите мне её решить!)

Я вставил, чтобы при записке программы меняла название помпонентов из DLL.

procedure TForm1.FormCreate(Sender: TObject);
begin
DllMessage;
end;

При запуске программы, вылазиет ошибка!!

А когда я в кнопку вставлял DllMessage; ,
то всё менялось отлично))

Вызывай не в FromCreate, а в FormActivate

[kostya_29]

FaTaL, Спасибо, всё работает)