Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вызов ф-и из DLL [D7]

Страницы: 1 2 >
mmms © (2005-07-04 13:56:00)
Код ниже, работает, но после выполнения ошибка

library response; uses SysUtils, Classes; {$R *.res} function az(a: String): String; stdcall; cdecl; export; begin Result := 'Ну как?'; end; exports az; begin end.

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; var Form1: TForm1; function az(point: String): String; cdecl; external 'response.dll' name 'az'; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(az('rrr')); end; end.

Ошибка: "Invalid pointer operation", объясните, что не так делаю, что возникает такая ошибка? Заранее преогромно благодарен :)

Slym (2005-07-04 15:08:00) [1]
2 Digitman ©
Да гоню (сижу в форуме от того что пар из ущей пошел от работы)... Но мой текст был Copy/Paste и на этот cdecl я не обратил должного внимания

Digitman (2005-07-04 14:44:00) [2]

> mmms (04.07.05 14:42) [17]

> век благодарен буду

но стулья - завтра !)

> подскажите

ты текст комментария перевел ? вник ?

alex-drob (2005-07-04 14:44:00) [3]
ShareMem в exe есть?

begin...end (2005-07-04 14:43:00) [4]
> mmms (04.07.05 14:42) [17]

И там, и там уберите и stdcall, и cdecl.

mmms (2005-07-04 14:42:00) [5]
Slym © (04.07.05 14:34)
Спасибо, что не оставляете мои вопросы без ответа :) Убрал, сделал как сказали, ошибка не исчезла, Digitman, подскажите пожалуйста, если знаете, век благодарен буду ;)

begin...end (2005-07-04 14:40:00) [6]
Странно, почему компилятор вообще пропускает два указания соглашения...

Digitman (2005-07-04 14:36:00) [7]

> Slym © (04.07.05 14:34) [14]

> правильно:
> function az(point: String): String; stdcall; cdecl; external
> 'response.dll' name 'az';

гонишь !!!

Slym (2005-07-04 14:34:00) [8]
Неправильно...
У тебя определения разные (должны быть одинаковыми)
DLL:
function az(a: String): String; stdcall; cdecl; export;
exe:
function az(point: String): String; cdecl; external 'response.dll' name 'az';

правильно:
DLL:
function az(a: String): String; stdcall; cdecl; export;
exe:
function az(point: String): String; stdcall; cdecl; external 'response.dll' name 'az';

зачем тебе cdecl? убери его если не знаеш что это

mmms (2005-07-04 14:26:00) [9]
Slym © (04.07.05 14:21)
Спасибо огромное, сделал, теперь не ругается, но когда приложение закрываю, опять эта же ошибка возникает, а вызов ф-и из dll у меня правильно происходит?

Slym (2005-07-04 14:21:00) [10]
Напасано же
Uses должен начинаться с ShareMem и в DLL и в exe

mmms (2005-07-04 14:20:00) [11]
Мастера, можно по человечески объяснить, что ей надо для нормальной работы.. Я понимаю кто то не первый десяток лет с этим работает, но я начинаю только, и не понимаю, что надо сделать?

{ 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. }

Slym (2005-07-04 14:13:00) [12]
File->New-Other->DLL Wizard!

Digitman (2005-07-04 14:13:00) [13]

> Так и не врубился

"рубило" заточи

mmms (2005-07-04 14:10:00) [14]
Так и не врубился в смысл, делаю
program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, response in 'response.dll'; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.

Пишет error loading..

Digitman (2005-07-04 14:00:00) [15]

> набрал dll в тексте

дилетант)

профи набирают прямо в машкоде !

Sergey_Masloff (2005-07-04 14:00:00) [16]
накинулиь воронье ;-)))))

Sergey_Masloff (2005-07-04 13:59:00) [17]
1)
>stdcall; cdecl;
Это как это?
2) Когда создаем новый проект DLL внимательно читаем страшную надпись которую система генерит. При непонимании берем словарь и читаем в цикле до полного просветления
{ Important note about DLL memory management: ShareMem must be the

mmms (2005-07-04 13:59:00) [18]
набрал dll в тексте, и сразу скомпилировал :) Сейчас прочту.

Чапаев (2005-07-04 13:59:00) [19]
stdcall cdecl -- это как? Export зачем? Посмотри хоть в хелпе...

mmms (2005-07-04 13:58:00) [20]
Ошибка т.е. возникает после ShowMessage(az('rrr'));. Верхний код dll, нижний, пример, вызывающий dll.

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »