> > Function Tform1.GetIPAddress: String;
> > Type
> > Name = Array[0..100] Of Char;
> > PName = ^Name;
> > Var
> > HEnt: pHostEnt;
> > HName: PName;
> > WSAData: TWSAData;
> > i: Integer;
> > Begin
> > Result := '';
> > If WSAStartup($0101, WSAData) <> 0 Then
> > Exit;
> > New(HName);
> > If GetHostName(HName^, SizeOf(Name)) = 0 Then
> > Begin
> > HEnt := GetHostByName(HName^);
> > For i := 0 To HEnt^.h_length - 1 Do
> > Result :=
> > Concat(Result,
> > IntToStr(Ord(HEnt^.h_addr_list^[i])) +
> '.');
> > SetLength(Result, Length(Result) - 1);
> > End;
> > Dispose(HName);
> > WSACleanup;
> > End;
> >
[Welson] Essa função não funcionou aqui comigo. Dá
erro, com as seguintes mensagens:
[Error] Unit1.pas(33): Undeclared identifier:
'pHostEnt'
[Error] Unit1.pas(35): Undeclared identifier:
'TWSAData'
[Error] Unit1.pas(39): Undeclared identifier:
'WSAStartup'
[Error] Unit1.pas(42): Undeclared identifier:
'GetHostName'
[Error] Unit1.pas(44): Undeclared identifier:
'GetHostByName'
[Error] Unit1.pas(45): Pointer type required
[Error] Unit1.pas(52): Undeclared identifier:
'WSACleanup'
Será que foi alguma Unit não declarada no Uses do
projeto ?!
Um forte abraço. Até a vista.
=================================
"Nunca ande pelo caminho traçado, pois ele conduz somente até onde os outros já
foram."
Alexander Graham Bell
=================================
Welson de Avelar Soares Filho
Juiz de Fora - Minas Gerais
=================================
_______________________________________________________
Yahoo! doce lar. Faça do Yahoo! sua homepage.
http://br.yahoo.com/homepageset.html
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
