|
在CentOS6下,编写来一个调用自己的so文件的例子,没想到这么简单的一件事情,编译的时候总是报错:/usr/bin/ld: cannot find -lSOTest
研究了好多天,网山查了个遍,还是没有办法解决。下载了猫工的例子来编译,也是一样的错误。
有没有人帮我。
SOTest.so 所我自己写的动态库:
library SOTest;
{$mode objfpc}{$H+}
uses
Classes,
SysUtils { you can add units after this };
{$R *.res}
function GetCurrentDate: TDateTime; cdecl; export;
begin
Result := Now;
end;
exports
GetCurrentDate;
begin
end.
主程序如下:
unit MainFormUnit;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
Menus;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
function GetCurrentDate: TDateTime; cdecl; external 'SOTest.so';
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=DateTimeToStr(GetCurrentDate);
end;
end. |
|