V
VincentXie
Unregistered / Unconfirmed
GUEST, unregistred user!
小弟想用DELPHI做一个ACTIVE FORM，但是不知道在DELPHI中如何读取NT的登录用户名，
等效于ASP中的：Request.ServerVariables("AUTH_USER")
等效于ASP中的：Request.ServerVariables("AUTH_USER")
M
maggic
Unregistered / Unconfirmed
GUEST, unregistred user!
你试试，应该可以的
function TAForm.GetUserName(): AnsiString;
var
DWI
word;
begin
DWI:=MAX_PATH;
setlength(Result,DWI+1);
if (WNetGetUser(nil,pchar(Result),DWI)=no_Error) then
setlength(Result,strlen(Pchar(Result)))
else
setlength(Result,0);
end;
function TAForm.GetUserName(): AnsiString;
var
DWI
word;begin
DWI:=MAX_PATH;
setlength(Result,DWI+1);
if (WNetGetUser(nil,pchar(Result),DWI)=no_Error) then
setlength(Result,strlen(Pchar(Result)))
else
setlength(Result,0);
end;
V
VincentXie
Unregistered / Unconfirmed
GUEST, unregistred user!
这是只是得到本地的NT登录账号，我想得到那种在网页上的NT验证框中的那个用户名。
等效于ASP中的：Request.ServerVariables("AUTH_USER")
等效于ASP中的：Request.ServerVariables("AUTH_USER")
D
dcsdcs
Unregistered / Unconfirmed
GUEST, unregistred user!
ACTIVE FORM是运行在client端的，你需要取得在asp中NT用户，只有通过asp取得，然后传递给ACTIVE FORM,如果取本地，楼上的
Z
zhangshunzhong
Unregistered / Unconfirmed
GUEST, unregistred user!
在客户端输入登录用户名密码，
如果是在ActiveXForm中输入的，就在ActiveXForm中通过Socket发给服务器
如果是在Asp中输入的(这个ASP页中没有ActiveXForm)，在启动含ActiveXForm页时把用户名传进去
如果是在ActiveXForm中输入的，就在ActiveXForm中通过Socket发给服务器
如果是在Asp中输入的(这个ASP页中没有ActiveXForm)，在启动含ActiveXForm页时把用户名传进去