Interested to Buy Any Domain ? << Click Here >> for more details...
How to Get the local internet machine name and IP address?
- 1 Answers
- 5464 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 |
What types of Routers are able to be used?
How to install programatically a printer?
How to Copy a information from one memo field to another using TBlobStream ?
How to Load a locale file into the THTML component ?
How to Use global values in our application ?
I'm using Delphi 4/5 and have am trying to fill a RichEdit control with both European characters and Thai characters - while I can change character colours the font stays with what was selected for the control:- reLangB.SelAttributes.Color :=dCol; reLangB.SelAttributes.Name :=FontName[dLang]; reLangB.SelAttributes.Charset :=FontChar[dLang]; reLangB.SelAttributes.Style :=[]; reLangB.Lines.Add(dText); The FontName and FontChar arrays contain the font info, and using a similar method for Captions and EditBoexes works! Anybody any ideas? Thanx in advance!
what are the Current MSACCESS driver limitations ?
Is there any way to record a keyboard macro in the IDE?
How to Change the main form of an application at runtime ?
How to connect to an InterBase database using the BDE API?
How to create an executible file using the command line directive in Linux with Kylix?
How to determine the names of the installed comm ports?
C 
