Como obter o nome do computador ?
Gostaria de obetr o nome do computador executando a aplicação, já consegui pegar o IP, agora só falta o namecomputer, alguem poderia me ajudar.
Grato
Paulo F.
Grato
Paulo F.
Pauloroger
Curtidas 0
Respostas
Pestana_
27/07/2007
Paulo estou com o mesmo problema, você consegui pegar o nome e o endereço IP do computador que está sendo executado aplicação? como você isso?
rogerio_pestana@yahoo.com.br
vlw.
rogerio_pestana@yahoo.com.br
vlw.
GOSTEI 0
Pauloroger
27/07/2007
Fala Pestana, beleza...
Aqui é meu botão de login ok,
Insira no USES System.Web.Security
var
IdUsuario: System.Object;
begin
FbConnection1.Open;
try
FbLogin.Parameters[´@USUARIO´].Value := txtUsuario.Text.ToUpper;
FbLogin.Parameters[´@SENHA´].Value := txtSenha.Text.ToUpper;
IdUsuario := FbLogin.ExecuteScalar();
if IdUsuario <> nil then
FormsAuthentication.RedirectFromLoginPage(txtUsuario.text, False)
else
Response.Write(´<script>Javascript:alert(´+
´´Usuário ou Senha inválidos !!!´);´+
´</script>´);
finally
FbConnection1.Close;
end;
*********************************************
Na minha tela principal, no Page_Load e carrego numa label, veja:
procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);
begin
// TODO: Put user code to initialize the page here
lblInformacao.Text := ´Usuário: ´ + User.Identity.Name.ToUpper + ´ - IP: ´ + Request.UserHostAddress;
end;
Ok, um abração
Paulo Freire
Aqui é meu botão de login ok,
Insira no USES System.Web.Security
var
IdUsuario: System.Object;
begin
FbConnection1.Open;
try
FbLogin.Parameters[´@USUARIO´].Value := txtUsuario.Text.ToUpper;
FbLogin.Parameters[´@SENHA´].Value := txtSenha.Text.ToUpper;
IdUsuario := FbLogin.ExecuteScalar();
if IdUsuario <> nil then
FormsAuthentication.RedirectFromLoginPage(txtUsuario.text, False)
else
Response.Write(´<script>Javascript:alert(´+
´´Usuário ou Senha inválidos !!!´);´+
´</script>´);
finally
FbConnection1.Close;
end;
*********************************************
Na minha tela principal, no Page_Load e carrego numa label, veja:
procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);
begin
// TODO: Put user code to initialize the page here
lblInformacao.Text := ´Usuário: ´ + User.Identity.Name.ToUpper + ´ - IP: ´ + Request.UserHostAddress;
end;
Ok, um abração
Paulo Freire
GOSTEI 0
Pestana_
27/07/2007
valeu pauloroger é isso mesmo que eu queria.
abraços,
Pestana.
abraços,
Pestana.
GOSTEI 0