B:\TEMP>wget -mk -w 20 forums.autodesk.com/autodesk/attachments/autodesk/130/413
144/3/topografie_izohipsele.dwgwget -mk -w 20 https://forums.autodesk.com/autode
sk/attachments/autodesk/130/413144/3/topografie_izohipsele.dwg
--12:00:59--  http://forums.autodesk.com:80/autodesk/attachments/autodesk/130/41
3144/3/topografie_izohipsele.dwgwget
           => `forums.autodesk.com/autodesk/attachments/autodesk/130/413144/3/to
pografie_izohipsele.dwgwget'
Connecting to forums.autodesk.com:80... connected!
HTTP request sent, awaiting response... 301 Moved Permanently
Location: https://forums.autodesk.com/autodesk/attachments/autodesk/130/413144/3
/topografie_izohipsele.dwgwget [following]
--12:01:02--  ftp://https:21/%2Fforums.autodesk.com/autodesk/attachments/autodes
k/130/413144/3/topografie_izohipsele.dwgwget
           => `https/forums.autodesk.com/autodesk/attachments/autodesk/130/41314
4/3/.listing'
Connecting to https:21...
https: Host not found
--12:01:26--  ftp://https:21/%2Fforums.autodesk.com/autodesk/attachments/autodes
k/130/413144/3/topografie_izohipsele.dwgwget
           => `https/forums.autodesk.com/autodesk/attachments/autodesk/130/41314
4/3/topografie_izohipsele.dwgwget'
==> CWD not required.
==> PORT ...
https: Unknown error

var
  UrlMonHandle: HMODULE=0;
  errcode:integer=0;
  URLDownloadToCacheFile: function(Caller: IUnknown; URL: PAnsiChar;
  FileName: PAnsiChar; FileNameBufLen: DWORD; Reserved: DWORD;
    StatusCB: IInterface {IBindStatusCallback}): HResult; stdcall;

procedure LoadFromURL(URL: string; Stream: TMemoryStream);

  procedure InitURLMon;
  const
    UrlMonLib = 'URLMON.DLL';                             { Do not localize }
    sURLDownloadToCacheFileA = 'URLDownloadToCacheFileA'; { Do not localize }
  begin
    if not Assigned(URLDownloadToCacheFile) then
    begin
      UrlMonHandle := LoadLibrary(UrlMonLib);
      if UrlMonHandle = 0 then
        raise Exception.CreateResFmt(@SUrlMonDllMissing, [UrlMonLib]);
      URLDownloadToCacheFile := GetProcAddress(UrlMonHandle, sURLDownloadToCacheFileA);
    end;
  end;

var
  FileName: array[0..MAX_PATH] of Char;
  pp:pchar;
begin
  InitURLMon;
  pp:=@URL[1];
  fillchar(pp,sizeof(FileName),0);
  if URLDownloadToCacheFile(nil,pp , @FileName[0], SizeOf(FileName), 0, nil) <> S_OK then
    raise Exception.CreateResFmt(@SErrorDownloadingURL, [url]);
  Stream.LoadFromFile(FileName);
end;