Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > не грузинся функция из DLL

Автор: svarogik 8.12.2008, 14:25

вот создал дллку на делфи 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

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

)

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

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

Автор: svarogik 8.12.2008, 15:59

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

Код


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

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

Автор: Romikgy 9.12.2008, 15:52

Код


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.