Answer Posted / 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;

How to Remove drives listed in a TDriveComboBox ?

1817

---

How to access more than one table with the QuickRep component?

1939

---

How to detect the computer name?

1826

---

How to Get the printing margin of the page?

1664

---

How to place a bitmap in a Metafile?

1662

---

How to Deploy DBClient in a Web Application?

1997

---

How to Draw on frame ?

1623

---

How to Display the first frame of an AVI File ?

1615

---

How to Create NonMaintained or .NDX indexes on dBASE Tables?

1814

---

What are the different types of object allocations methods in delphi?

832

---

How to Obtain a list of available BDE language drivers?

1669

---

How to install programatically a printer?

1731

---

How to Get the Windows version in code?

1644

---

How to Use GetTimeZoneInformation() function?

3368

---

How to Convert from Long to Short file names and paths ?

1685

---