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 Embede a page break in the Rich Edit control ?

2944

---

what are the different types of dBASE Unique style indexes ?

1566

---

How to Get current record from a TDBGrid ?

3087

---

How to Use mouse_event() to similate mouse events?

1942

---

How to create Data Link File with Windows 2000?

1751

---

How to turn off ISAPI DLL caching on Windows 2000 and IIS5 ?

1782

---

How to get the version information for a file?

1807

---

How to activate different hints for each cell in a grid?

1752

---

Where can we obtain the help file for the VtChart component?

2893

---

How to assign a file variable in a Record?

1858

---

What are the reasons involved in using the interface?

815

---

What is the difference between Delphi and Delphi Client/Server?

1002

---

How to Change windows default printer in code?

1969

---

How to close the CD Tray in code?

1777

---

Explain the findclose method?

876

---