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 Set custom tabstops in a ListBox?

1976

---

How to Modify application server SQL from the client?

1574

---

What is the tag property useful for?

1851

---

How to Save and load metafiles in a BLOB field without using DBImage ?

1826

---

How to Execute a program from my application?

1977

---

How do I close a modal form? For that matter, what is the best way to close any form?

920

---

Can I make calls to Delphi code from C or C++?

797

---

How to create a Resource only DLL?

1910

---

How to Creat a flashing icon ?

1797

---

How to Run 16-bit Delphi on Windows NT4?

1655

---

How to do Sorting on Calculated fields ?

1861

---

How does Delphi's exception handling work?

860

---

How to Create resource files?

1563

---

How to Use Form Wizard to Quickly Create a Delphi Form?

1586

---

What is the target load order?

2298

---