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;

Why reusing or inheriting from a Remote Data Module is not a good idea?

1611

---

How to Change delphi default directory?

2067

---

How to create a Resource only DLL?

1931

---

How to easily move a Window control at runtime?

1795

---

How to Calculate an angle from two points?

1761

---

How to DetermineDrive Type ?

1816

---

How to have a TBitBtn component that has a word wrapped caption?

1666

---

How to move a string into a TMemoryStream or TFileStream?

1867

---

How to Trap scrolling messages for the ScrollBars of a TScrollBox ?

1822

---

How to Calculatea point using angles and distance?

1963

---

How to Prevent the TEdit component from beeping when invalid ?

1791

---

How is the memory used within an object in delphi?

853

---

what are the different String Trim functions?

1859

---

How to create SQL queries with SQL Builder?

1827

---

How to Launch default browser on a URL?

1771

---