Nome de uma máquina
Estou tentado colocar uma aplicação para funcionar numa rede. para terminar preciso capturar o nome das máquinas \\noma_maquina\diretorio_compartilhado , este diretório é onde as tabelas vão ficar(PARADOX). Alguém sabe está função
Fabio Colli
Curtidas 0
Respostas
Jycn
04/04/2003
Olá..
Nâo sei se entendi bem o que voce precisa, mas aqui vai uma função que pode te ajudar.
var
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
begin
{Iniciar WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
{Ler o Nome do Computador}
GetHostName(@s, 128);
p := GetHostByName(@s);
{Ler o Endereço de IP}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
LabelHost.Caption:=Format(´¬s´, [p^.h_Name]);
LabelIp.Caption:=Format(´¬s´,[p2]);
WSACleanup;
End;
Nâo sei se entendi bem o que voce precisa, mas aqui vai uma função que pode te ajudar.
var
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
begin
{Iniciar WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
{Ler o Nome do Computador}
GetHostName(@s, 128);
p := GetHostByName(@s);
{Ler o Endereço de IP}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
LabelHost.Caption:=Format(´¬s´, [p^.h_Name]);
LabelIp.Caption:=Format(´¬s´,[p2]);
WSACleanup;
End;
GOSTEI 0