Merlin’s Delphi Forge

If you ever needed your own IP address then here it is the code. Please note that in certain situations you may have more than 1 IP address.

uses
Winsock;
…
function ReadIPs: TStrings;
type
TaPInAddr = array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
Buffer: array[0..63] of Char;
iI: Integer;
PPtr: PaPInAddr;
pHE: [...]

You can always use some component. But if you are just going to download there is no need to do this or to use ActiveX controls. Windows has the function you need already declared in the UrlMon.dll. To download a file to a local disk just use this code:
!!Note: This function is not described in [...]