Error idhttp delphi 403 Forbidden

Tambahkan script dibawah ini sebelum eksekusi idhttp1 ke sebuah link

Idhttp1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';

contoh

procedure TFUtama.GetMapImage;

var

  StreamData :TMemoryStream;

  JPEGImage  : TJPEGImage;

begin

  Idhttp1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';

   StreamData := TMemoryStream.Create;

  JPEGImage  := TJPEGImage.Create;

  try

    try

     idhttp1.Get(Result, StreamData);

     StreamData.Seek(0,soFromBeginning);

     ImageMap.Top := 0;

     ImageMap.Left := 0;

     JPEGImage.LoadFromStream(StreamData);

     LX := (ImageMap.Width - ScrollBoxMap.ClientWidth) * -1;

     LY := (ImageMap.Height - ScrollBoxMap.ClientHeight) * -1;

     ImageMap.Picture.Assign(JPEGImage);

    Except On E : Exception Do

     MessageDlg('Exception: '+E.Message,mtError, [mbOK], 0);

    End;

  finally

    StreamData.free;

    JPEGImage.Free;

  end;

end;