VPF::не грузинся функция из DLL - Форум программистов

svarogik

Дата 8.12.2008, 14:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет

вот создал дллку на делфи 2006ж

Код


library FirsDLLProject;

uses
  SysUtils,
  Classes;

function summ(x,y:Integer):Integer;stdcall;
  begin
    result:=X+Y;
  end;

  exports summ;

{$R *.res}

begin
end.

затем откомпилировал, файл FirsDLLProject.dll появился

написал простенькую программку для тестирования

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    function summ(x,y:Integer):Integer;stdcall;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
function summ; external 'firsDLLProject.dll' name 'summ';

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var r:Integer;
begin
  r:=summ(10,34);
  showmessage(Pchar(inttostr(r)));
end;

end.

и при запуске ошибки

[Pascal Error] Unit1.pas(24): E2023 Function needs result type
[Pascal Error] Unit1.pas(13): E2065 Unsatisfied forward or external declaration: 'TForm1.summ'

не понимаю в чем дело, все делал по книжке, правда книжка по делфи 7. вроде издана в 2005г

CodeMonkey

Дата 8.12.2008, 14:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Цитата(svarogik @ 8.12.2008, 14:25

)

все делал по книжке

Значит невнимательно читали. В вашем варианте кода в секции interface модуля Unit1 должна быть полная сигнатура функции summ.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

svarogik

Дата 8.12.2008, 15:59 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет

а может тогда подскажете как нам это сделать? я вроде описал все что нужно в интерфейсе.

Код


interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    function summ(x,y:Integer):Integer;stdcall;
  private

дочитал внимательно, до места где надо запустить проект

CodeMonkey

Дата 8.12.2008, 16:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

У вас summ сейчас не функция, а метод.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Romikgy

Дата 9.12.2008, 15:52 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Код


unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    //function summ(x,y:Integer):Integer;stdcall;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
function summ(x,y:Integer):Integer; external 'firsDLLProject.dll' name 'summ';
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var r:Integer;
begin
  r:=summ(10,34);
  showmessage(Pchar(inttostr(r)));
end;
end.

?

Это сообщение отредактировал(а) Romikgy - 9.12.2008, 15:53

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »