ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Немного теории.
4 сообщений из 4, страница 1 из 1
Немного теории.
    #32376369
Гавриленко Сергей Алексеевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гавриленко Сергей Алексеевич
Участник
Вопрос навеян /topic/68627 (извините, что так, но после обрамления тегами под кнопкой http:/ криво полуачется).\r
\r
Так вот. Допустим, есть dll. В ней - реализация класса плюс экспортируемая процедурка на создание экземпляра\r
\r
\r
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
unit Dll_Class;\r
interface\r
    uses Dialogs;\r
    type\r
    TSimpleClass = class(TObject)\r
    public\r
        procedure   SaySomething( something : string );\r
        constructor Create;\r
        destructor  Destroy; \r
    end;\r
\r
    function CreateClass : pointer; stdcall;\r
\r
    var SimpleClass : TSimpleClass;\r
\r
{ TSimpleClass }\r
implementation\r
\r
constructor TSimpleClass.Create;\r
begin\r
    inherited;\r
    MessageDlg(\'Вот он я, из dll\',mtWarning,[mbYes], 0 );\r
end;\r
\r
destructor TSimpleClass.Destroy;\r
begin\r
    MessageDlg(\'Ну все, пока, это был я из dll\',mtWarning,[mbYes], 0 );\r
    inherited;\r
end;\r
\r
procedure TSimpleClass.SaySomething(something: string);\r
begin\r
    MessageDlg(\'Это я из dll говорю Вам:\' + something ,mtWarning,[mbYes], 0 );\r
end;\r
\r
function CreateClass : pointer;\r
begin\r
    if SimpleClass <> nil then\r
        SimpleClass := TSimpleClass.Create;\r
        \r
    result := @SimpleClass;\r
end; { function }\r
\r
end.
\r
\r
Как мне в приложении описать тип(если вообще такая возможность существует), чтобы сделав приведение, например TTypeDescribedInDll(CreateClass^), можно было обращаться к методам (св-вам и т.п.) созданного в dll объекта.\r
\r
P.S.\r
Естественно, дополнив dll необходимыми процедурами типа:\r
\r
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
function DestroyClass : integer ;\r
begin\r
    if SimpleClass = nil then\r
        Result := - 1 \r
    else begin\r
        SimpleClass.Destroy;\r
        Result :=  0 ;\r
    end; { if }\r
end;\r
\r
procedure SaySomething ( something : pointer );\r
begin\r
    if SimpleClass <> nil then\r
        SimpleClass.SaySomething( string(something^));\r
end;
\r
я смогу делать с объектом усе (Создать, убить, сказать ).
...
Рейтинг: 0 / 0
14.01.2004, 19:23
| Ответить | Цитировать | Написать  
Немного теории.
    #32376754
Sclif
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sclif
Гость
Был такой опыт, может быть вам поможет.

На BCB написана dll:
Unit1.cpp
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
#define BUILD_DLL
#include <windows.h>
#include  "File1.h" 
#include  "File2.h" 
#pragma argsused

extern  "C"  int _export _stdcall MessageMy(void *s) {
        ((Test*)s)->a( "I`m in" );
        return  1 ;
	}


File1.h
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
#if defined(BUILD_DLL)
# define DLL_EXP __declspec(dllexport)
#else
# if defined(BUILD_APP)
# define DLL_EXP __declspec(dllimport)
# else
# define DLL_EXP
# endif
#endif

DLL_EXP int MessageMy(char *s);
DLL_EXP int i;


File2.h
Код: plaintext
1.
2.
3.
class Test
{
public: virtual int _stdcall a (char *)= 0 ;
};


В делфе:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
unit Unit1;
.....
type Test = class
 public
 function a(str : PChar) : integer;   virtual; stdcall;
end;
....
function MessageMy(t : pointer): integer ; stdcall; external 'Project1.DLL';

function Test.a(str : PChar):integer;
begin
  ShowMessage(str);
  result:= 1 ;
end;
....
procedure TForm1.BitBtn1Click(Sender: TObject);
 var t : Test;
     i : integer;
begin
   t := Test.Create;
   i:=MessageMy(t);

end;
...
Рейтинг: 0 / 0
15.01.2004, 11:27
| Ответить | Цитировать | Написать  
Немного теории.
    #32376820
Фотография Cauchy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cauchy
Участник
автор/topic/68627 (извините, что так, но после обрамления тегами под кнопкой http:/ криво полуачется). \r
Напиши \r
Код: plaintext
1.
2.
///topic/ 68627 \r
или\r
/topic/ 68627 ]тута
\r
\r
/topic/68627\r
\r
тута
...
Рейтинг: 0 / 0
15.01.2004, 11:58
| Ответить | Цитировать | Написать  
Немного теории.
    #32376925
Гавриленко Сергей Алексеевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гавриленко Сергей Алексеевич
Участник
http://Спасибо]
...
Рейтинг: 0 / 0
15.01.2004, 12:43
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Немного теории.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]