малелький вопрос по DLL

← →
Евгений2 (2004-05-16 13:08) [0]

Здравствуйте, помогите с DLL разобраться, пожалуйста.
Суть значит в том что моя программка перевалила за 5000 строк и очень сложно в ней найти нужное место.
Хотелось бы разбить ее на сегменты и разместить их в библиотеках.

допустим имеем код формы

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure formcap; external "Project2.dll"; procedure TForm1.Button1Click(Sender: TObject); begin formcap; end; end.

и код библиотеки

library Project2; { 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 unit1 in "unit1.pas", SysUtils, Classes; {$R *.res} procedure formcap; begin unit1.form1.caption:="wqqwq"; end; exports formcap; begin end.

При нажатии на button1 не происходит ничего.
Подскажите че не так.

← →
nexxiss © (2004-05-16 13:11) [1]

Скорее всего нужно в качестве параметра процедуры передать дескриптор окна и с его помощью производить необходимые действия

← →
Mim1 © (2004-05-16 13:37) [2]

Имхо для вашей задачи удобнее использовать runtime пакеты.

← →
Mim1 © (2004-05-16 13:39) [3]

Дробить ради дробления не стоит. Вот если вы хотите вопросльзоваться какимито плюсами от модулизации приложения тогода ... опять же имхо

← →
Евгений2 (2004-05-16 15:51) [4]

to Mim1> Я не знаю что такое Runtime пакеты, но я думаю что библиотеки мне тоже должны подойти.
to nexxiss> можно ли какой-нибудь примерчик

Об"ясню задачу конкретнее: на форме1 есть StringGrid и кнопка запускающая OpenDialog и в зависимости от имени файла должна запускаться процедуда находящаяся в одной из библиотек, которая будет определенным образом будет заносить данные в StringGrid, находящийся на form1

← →
Mim1 © (2004-05-16 15:59) [5]

Понятно, вам нужен конвертр.
Пускай бибилотека считывает данный в какой нибудь промежуточный формат а не обращается к компонентам формы. А ваша программа будет наполнять грид данными масива возвращенного бибилотекой.

← →
KSergey © (2004-05-16 16:05) [6]

А просто разносить по модулям (unit"ам) - недостаточно? Разве обязательно еще и по dll разносить??

← →
Mim1 © (2004-05-16 16:13) [7]

[6] KSergey © (16.05.04 16:05)

ИМХО тут логика понятна, подлжил программе новых dll и она начала открывать новые типы файлов. Благины конверторы ...
Daemon Tools по такому принципу работает.

← →
Евгений2 (2004-05-16 19:29) [8]

Спасибо to Mim1, идея понятна, я тоже так думал, но пока что-то лениво этим заниматься(к тиражу пока рано готовиться).Решил пока воспользоваться советом <KSergey>, в связи с чем вопрос:
как вызвать процедуру если она находиться в другом unit"e

unit1 в project1 и unit 1 в project2 - совершенно разные модули, даже если физически он один в исходных текстах

← →
Евгений2 (2004-05-16 20:24) [10]

Сам нашел ответ на свой вопрос в delphi help:
A routine declared in the interface section is available from anywhere else in the unit and from any other unit or program that uses the unit where it is declared.

малелький вопрос по DLL Найти похожие ветки