![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
DLL [D5]
Старик © (2002-09-02 11:55:00)Написал Dll. Скомпилировал. Основная программа и Dll находятся в одном месте.При обращении к DLL основная программа её не видит.
В чём может быть ошибка? Благодарю.
Старик (2002-09-02 12:45:00) [1]Sorry, когда задавал первый вопрос , думал обойдусь именем Mydll.
Всё написано для DLLFormms.
Пытаюсь реализовать то что написано в статье
http://www.interface.ru/borland/razr_dll3.httm
Skier (2002-09-02 12:32:00) [2]>Старик
И хорошо бы передавать в DLL - Handle host-приложения...
Ученик (2002-09-02 12:32:00) [3]Ученик © (02.09.02 12:21)
Dimk (2002-09-02 12:30:00) [4]А причем тут MyDll? Я везде вижу DllForms
Старик (2002-09-02 12:28:00) [5]Так написано давно.
Library DllForms;
uses
SysUtils,
forms,
DllFormsUnit in "DllFormsUnit.pas" {DllForm};
exports
Showform;
{$R *.RES}
begin
end.
А при запуске в WIN98 говорит , что не найдена точка входа.
Ученик (2002-09-02 12:21:00) [6]И с названиями беда должны быть одинаковы
Ученик (2002-09-02 12:20:00) [7]В Dll
exports
Showform;
Старик (2002-09-02 12:18:00) [8]{Вызывающая форма}
var
Form1: TForm1;
implementation
{$R *.DFM}
function ShowForm:integer;stdcall; external "DllForms.dll";
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowForm;
end;
{Сама DLL}
{Описание типа формы} и далее
var
DllForm: TDllForm;
function Showform:integer;stdcall;export;
implementation
{$R *.DFM}
function Showform:integer;stdcall;
var Form:Tdllform;
begin
Form:=Tdllform.create(Application);
result:=form.ShowModal;
Form.Free;
end;
procedure TDllForm.Button1Click(Sender: TObject);
begin
close;
end;
Старый Паскалист (2002-09-02 12:11:00) [9]2Старик
Не знаю как в 2000, а в NT я столкнулся с таким моментом:
В cлучае статической загрузки необходимо явно указывать расширение ".dll"
(... extern "mydll.dll" )
Ученик (2002-09-02 12:03:00) [10]Необходима ссылка MyDLL.dll
Старик (2002-09-02 12:02:00) [11]При отладке в Delphi останов на первом BEGIN проекта.
А при запуске в проводнике даёт "Библиотека DLL MyDLL не найдена по указанному пути ..."
Старик (2002-09-02 12:02:00) [12]Windows 2000
Skier (2002-09-02 11:57:00) [13]>Старик
А FileExists(...) её видит ?
Ученик (2002-09-02 11:57:00) [14]А описание функций в основной программе ? NT ?