about novell login

[siclj]

下面这段程序在delphi1.0下编译通过,但在win32下运行结果错误,在win98 下结果
正确.改在delphi5.0下编译,运行时出错,说nwcall.dll已经损坏,调用错误.这是为什么?implementation
type
NWTimeStamp = record
Year: byte;
Month: byte;
Day: byte;
Hour: byte;
Minute: byte;
Second: byte;
DayOfWeek: byte;
end;

{Netware API's - require NWCALLS.DLL}
function NWGetConnectionInformation(Connection: word;
ConnectionNumber: word;
ObjectName: pchar;
var ObjectType: word;
var ObjectID: word;
var LoginTime: NWTimeStamp):word;
far; external 'h:\datadic\swaic\NWCALLS';
{ end of Netware API stuff }

function GetUserLogin: string;
var
ConnectionID: word;
ConnectionNumber: word;
RC: word;
Name: array[0..50] of Char;
ObjectType: word;
ObjectID: word;
LoginTime: NWTimeStamp;
begin
RC := NWGetConnectionInformation( ConnectionID,
ConnectionNumber,
Name,
ObjectType,
ObjectID,
LoginTime);

Result := StrPas(Name);
end;
{$R *.DFM}

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

[kxy]

win32,win98下把far; external 'h:\datadic\swaic\NWCALLS';
改为 externl 'NWCALLS' ; stdcall;
注意,32位编程没有far 的概念,far只是向下兼容.
加入 stdcall;
不加绝对路径,会在window的搜索路径中查找nwcalls的dll,移植性好.

[siclj]

在delphi5 中我早已经把far 去掉了

[kxy]

stdcall

[siclj]

[Error] UNIT1.PAS(37): Declaration of 'NWGetConnectionInformation' differs from previous declaration

[kxy]

procedure beVersion(var pbeVersion : TBEVersion); cdecl; external 'BLADEENC.DLL';

implementation 之前如上写
//这里不写

[kxy]

就在这个网站的Delphi开发文档就有相应的资料, 连接是:
http://www.midatech.com/csdn/Delphi/Document/thunk95.htm
祝你好运......

[siclj]

thank you,I'll try!

[siclj]

在delphi5.0下编译,运行时出错,说nwcall.dll已经损坏,调用错误.这应该是32位程序
调用16位dll出错,应该要一个转换程序,谁有这方面的例子吗?([e-mail])
这段程序在delphi1.0下编译通过,但在win32下运行结果错误,在win98 下运行结果
正确.这又是为什么?