Конференция "FreePascal" » Проблемы с Dll в lazarus
 
  • Ezorcist (25.11.07 12:33) [0]
    Всем привет, при попытке работать с dll сталкиваюсь со следующей проблемой, возникает при попытке запустить программу из IDE, пишет, что собрано нормально:

    {$mode objfpc}{$H+}

    uses
     Classes
     { add your units here };

    function getone:integer; stdcall;
    begin
     result:=1;
    end;

    exports getone;

    end.



    И модуля приложения:

    unit Unit1;

    {$mode objfpc}{$H+}

    interface

    uses
     Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons;

    type

     { TForm1 }

     TForm1 = class(TForm)
       Button1: TButton;
       procedure Button1Click(Sender: TObject);
     private
       { private declarations }
     public
       { public declarations }
     end;

    var
     Form1: TForm1;

    implementation

    { TForm1 }

    function getone:integer; stdcall; external 'libproject1.so';

    procedure TForm1.Button1Click(Sender: TObject);
    begin
     showmessage(inttostr(getone));
    end;

    initialization
     {$I unit1.lrs}

    end.



    Подскажите пожалуйста, что может быть не так?
 
Конференция "FreePascal" » Проблемы с Dll в lazarus
Есть новые Нет новых   [118243   +31][b:0][p:0.001]