Вызов ф-и из 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", объясните, что не так
делаю, что возникает такая ошибка? Заранее преогромно благодарен
:)
Digitman (2005-07-04 13:57:00) [21]
> что не так делаю
не читаешь ОГРОМНЫЙ комментарий, добавленный Делфи-средой в
твой dll-проект при его автосоздании
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
