Interested to Buy Any Domain ? << Click Here >> for more details...
How to Get the local internet machine name and IP address?
- 1 Answers
- 5466 Views
- I also Faced
- E-Mail Answers
Answer / venu
function GetIPFromHost
(var HostName, IPaddr, WSAErr: string): Boolean;
type
Name = array[0..100] of Char;
PName = ^Name;
var
HEnt: pHostEnt;
HName: PName;
WSAData: TWSAData;
i: Integer;
begin
Result := False;
if WSAStartup($0101, WSAData) <> 0 then begin
WSAErr := 'Winsock is not responding."';
Exit;
end;
IPaddr := '';
New(HName);
if GetHostName(HName^, SizeOf(Name)) = 0 then
begin
HostName := StrPas(HName^);
HEnt := GetHostByName(HName^);
for i := 0 to HEnt^.h_length - 1 do
IPaddr :=
Concat(IPaddr,
IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.');
SetLength(IPaddr, Length(IPaddr) - 1);
Result := True;
end
else begin
case WSAGetLastError of
WSANOTINITIALISED:WSAErr:='WSANotInitialised';
WSAENETDOWN :WSAErr:='WSAENetDown';
WSAEINPROGRESS :WSAErr:='WSAEInProgress';
end;
end;
Dispose(HName);
WSACleanup;
end;
| Is This Answer Correct ? | 1 Yes | 0 No |
Is Visibroker for C++ 4.5 supported with Delphi 6?
How to Copy contents of a control to the clipboard?
How to draw transparent text onto a TBitmap ?
How to retrieve the position of the cursor?
How tough is it to learn Delphi?
How to make the TDateTimePicker display blank?
What does the error 'Token not found'?
What is the tag property useful for?
How to Load a TListView component that contains SubItems?
How to Use mouse_event() to similate mouse events?
How to adjust the tab location in a TMemo component ?
How to Change the font style of a dbgrid row ?
C 
