DLL:переменная-ссылка на компонент формы

[Саня]

Это опять я.
Граждане! У меня такая проблемма:
пишу программу с использованием DLL-библиотеки(dll-ку хочу сделать универсальной для всех моих программ), в принципе всё что задумал почти всё выполнил, но работа библиотеки заключается в управлении компонентами на форме, к которой она подключена.
Так как же мне всё таки передать в подключаемую функцию компонент или ссылку на него, чтобы все его свойства и методы были доступны и там

[Stilet]

Создай в ДЛЛ переменку типа TFormXX (как в юните) и передавай ей через Поинтер, которй потом разименовывай.

[Pitbull]

Сообщение от Саня

Это опять я.
Граждане! У меня такая проблемма:
пишу программу с использованием DLL-библиотеки(dll-ку хочу сделать универсальной для всех моих программ), в принципе всё что задумал почти всё выполнил, но работа библиотеки заключается в управлении компонентами на форме, к которой она подключена.
Так как же мне всё таки передать в подключаемую функцию компонент или ссылку на него, чтобы все его свойства и методы были доступны и там

Ну, сама dll и нужна для того,чтобы получать какие-то результаты выполнения ф-ии..... Создаешь dll, в ней функцию , Например:
function Sum(x,y:integer): integer;Stdcall;
В самой dll делаешь exports sum или можно еще индекс влупить (exports sum index 11), после чего обращение по индексу, а не по имени.....
В главной форме после implemention объявляешь : function Sum;external 'имя ДЛЛ .dll' name Sum.... Тут ты говоришь, что функция внешняя и берется из dll .... указываешь имя dll...
Ну а в саму функцию передавай нужные переменные....

[Pitbull]

Сообщение от Саня

Это опять я.
Граждане! У меня такая проблемма:
пишу программу с использованием DLL-библиотеки(dll-ку хочу сделать универсальной для всех моих программ), в принципе всё что задумал почти всё выполнил, но работа библиотеки заключается в управлении компонентами на форме, к которой она подключена.
Так как же мне всё таки передать в подключаемую функцию компонент или ссылку на него, чтобы все его свойства и методы были доступны и там

Извини, не допонял тебя....Такого я не делал.. Из dll передавал объекты, а вот в dll не пробовал загнать.. Завтра попробую... Сейчас нужно уходить домой...Извини

[Саня]

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

Создай в ДЛЛ переменку типа TFormXX (как в юните) и передавай ей через Поинтер, которй потом разименовывай.

А можно по-подробнее про TFormXX... Где находится описание, в каком модуле? При компиляции выдает ошибку Undeclared Identifier TFormXX.
Или я что-то не понял?

[Pitbull]

Сообщение от Саня

А можно по-подробнее про TFormXX... Где находится описание, в каком модуле? При компиляции выдает ошибку Undeclared Identifier TFormXX.
Или я что-то не понял?

Ну , TFormXX - это ссылка на твою форму, которая будет передавать данные.... Например , TForm1.....

[Stilet]

Вот смотри примерно так :

Это форма:

unit Unit1;

interface

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

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

implementation

{$R *.dfm}

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

end.


А Это Библа :

library Project2;

uses
unit1,
SysUtils,
Classes;

{$R *.res}
procedure q(rr:Tform1);
begin
rr.Caption:='ss';
end;

exports q;
begin

end.


Попробуй так.
Ну а насчет указателей это зависит от задачи.

[Pitbull]

Там еще б stdCall не помешало...Просто Вашу Dll могут юзать Visual С++ программеры ... И у них могут возникнуть проблеммы с вызовом такой dll..... Для избежания - stdcall
unit Unit2;

interface

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


type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }
end;
procedure cap(r:Tform);stdcall;
var
Form1: TForm1;

implementation
procedure cap(r:Tform); external 'Project3.dll';

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
cap(form1);

end;

end.






library Project3;

uses
SysUtils,
Classes,unit2;
procedure cap(r:TForm1);stdCall;
begin
r.caption:='dfdfdfd';
end;

exports cap;

{$R *.res}



begin
end.

[Stilet]

Согласен. Лень, батенька, чтука сильная, особенно когда руками по Клаве...

[Саня]

Огромное, просто огромное спасибо!!!
Всё работает! Есть пару ньюансов с подключением собственных модулей, но я разберусь.