|
DLL的作用是获得当前的系统日期和时间并按一定格式返回.
DLL用Delphi写的.代码如下
library date;
uses
SysUtils,
Classes,
DateUtils;
{$R *.res}
function get_nowtime():String;stdcall;
var
re: String;
begin
re := timetostr(now); //获得当前时间
Result := re;
end;
function get_nowdate():String;stdcall;
var
re: String;
begin
re:= datetostr(now);//获得当前日期
Result := re;
end;
Exports get_nowdate,get_nowtime;
end.
wR中代码:
load_dll("F:\\date.dll");
extern int get_nowdate(int);
print(get_nowdate());
unload_dll("F:\\date.dll");
运行到print(get_nowdate()); 出现内存不能为write的提示.
可以确定的是DLL出问题. 猜测是不同步和内存释放问题,
请问下斑竹,这个DLL该怎么改???目的只是获得当前的系统日期和时间并按一定格式返回.
WR中get_time(); time_str();返回的都不是我想要的. . . |
|