DLL

[LAFam]

Есть программа и динамическая DLL подключенная к ней.
Как из DLL передать значение в программу?

[AlDelta]

 ....... ......... ......... ........... ......... .............
function TestFunc(I: Integer): Integer; stdcall;
 ....... ......... ......... ........... ......... .............
implementation
 ....... ......... ......... ........... ......... .............
function TestFunc; external 'Test.dll';
 ....... ......... ......... ........... ......... .............

Ленивый - не вреден... ему лень даже делать себе приятное.(Леонид С. Сухоруков)

[Stilet]

LAFam, ДЛЛ то хоть твоя?

[LAFam]

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

LAFam, ДЛЛ то хоть твоя?

DLL моя просто я ток начаинаю работат ьс DLL вот и интересно мне как все эт происходит.
Если честно я не понял выписку находящуюся выше. Если не сложно обьясните (как для нуба). Я так понял лучше всего работать через файл подкачки. Или не верно?

[bill]

Значит у тебя есть свой dll. Его экспортируешь(используешь) в программе. Пишите: в разделе type,
после описания объекта TForm1 (главной формы) нужно написать следующую строку:
function lala (X,Y:Integer):Integer;StdCall; //lala- имя вашей функции + по этой строке Delphi узнаёт, что
где-то существует такая функция lala, у неё есть два параметра, и она должна вызываться стандартным вызовом.
StdCall-Оно говорит о том, что для вызова процедуры нужно использовать стандартный тип вызова.
Если не указать ключевое слово StdCall, то параметры будут
передаваться способом, заложенным фирмой Borland. Этот способ работает быстрее, но он не совместим со стандартными правилами.
Теперь нужно сказать компилятору, где же искать эту загадочную функцию. Для этого после слова implementation пиши:
function lala; external 'your.dll' name 'lala';
Здесь написано, что есть такая функция lala. После точки с запятой стоит ключевое слово external, которое говорит о том, что функция внешняя, не принадлежит программе. После этого слова указывается имя динамической библиотеки, где нужно искать функцию. Далее идёт ключевое слово name, которое означает, что функцию надо
искать по имени. После этого ключевого слова указывается точное имя функции в библиотеки.
НО:когда программе нужно выполнить функцию lala, то она просматривает все функции динамической библиотеки
и ищет функцию с указанным именем. Это очень неэффективно и перед первым вызовом будет ощущаться большая задержка. Чтобы хоть немного ускорить процесс вызова таких функций можно использовать индексы- то бишь вместо последней строки пишешь:
function lala; external 'your.dll' index 10;
При этом в длл должно быть написано:
exports lala index 10;

[Virtson]

респект, bill )

[LAFam]

Ух как фсе просто! А я себе уже козни с этим DLL устраиваю.
Я ток одно не понял. В каком именно месте в DLL должно быть указано exports lala index 10;
в самой процедуре в описании или где ?

[LAFam]

И еще вопрос относительно процедуры SendMessage как ее использовать для отправки из длл в программу?

[Maslan]

Файл библиотеки "MyminiMathDLL.pas"

 
library MyminiMathDLL;
Function func1(param1,param2:integer):integer;
 begin
  Result:=param1+param2;
 end;
Function func2(param1,param2:integer):integer;
 begin
  Result:=param1*param2;
 end;
exports func1 index 0 name 'add';
exports func2 index 1 name 'multiply';
begin
end.

Файл программы "UsingDLL.dpr"
//Функции F1 и F3 ссылаются на одну и ту же функцию в библиотеке,
// но по-разному- по имени и по ординалу(индексы, номеру и т.п.)

program UsingDLL;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Function F1(x,y:integer):integer;external 'MyminiMathDLL.dll' name 'add';
Function F2(x,y:integer):integer;external 'MyminiMathDLL.dll' name 'multiply';
Function F3(x,y:integer):integer;external 'MyminiMathDLL.dll' index 0;
begin
end.

[Maslan]

Библиотека:

library MyminiMathDLL;
Uses Windows,Messages;//Эти модули нужны для поддержки пересылки сообщений
Procedure SendMyMsg(h:THandle);
 begin
  SendMessage(h,WM_CLOSE,0,0);
 end;
exports SendMyMsg index 0 name 'proc_name_1';
begin
end.

Исполльзование:
Создай новое приложение (оконное). Положи на форму кнопку (TButton) .
Подправь код так:
//красный текст нужно добавить

 
var
  Form1: TForm1;
 Procedure P1(Handle:THandle);external 'MyminiMathDLL.dll' name 'proc_name_1';
implementation

В обработчике кнопки пиши вот такое:

procedure TForm1.Button1Click(Sender: TObject);
begin
 P1(Application.Handle);
end;

Итак. Что произойдёт при нажатии на кнопку?
1. Программа найдёт хэндл (лучше не спрашивай что это - обижусь =)) ) главного окна.
2. Вызовет процедуру из библиотеки, передав ей хэндл своего окна.
3. Процедура пошлёт указанному окну сообщение WM_CLOSE (описаны сообщения в модуле Messages).
4. Программа, получив "изниоткуда" команду закрыться попробует вызвать событие формы OnCloseQuery
5. OnCloseQuery мы не описывали, поэтому не произойдёт ничего. Дальше программа пытается вызвать OnClose - но его тоже нет и программа завершает работу, тем самым выполнив посланную через SendMEssage из dll команду.