Delphi - Dosya indirme sorunu

zairov (11) 10 yıl önce sordu

Iyi akşamlar. Yaptığım küçük yazılımı bitirmek üzereyim. Amma küçük bir sorunum var. Dosyayı indiremiyorum. 301 Moved Permanently hata alıyorum.

 

procedure TMain.DownloadClick(Sender: TObject);
var
  FS: TFileStream;
  FileName: String;
begin
  if Link.Text = '' then Exit;
  FileName := Link.Text;
  while Pos('/', FileName) > 0 do
    Delete(FileName, 1, Pos('/', FileName));
  SaveDialog.FileName := FileName;
  Application.ProcessMessages;
  if SaveDialog.Execute then
  begin
    Link.Enabled := False;
    Download.Enabled := False;
    FS := TFileStream.Create(SaveDialog.FileName, FMCreate);
    try
      IdHTTP.Get(Link.Text, FS);
    finally
      FS.Free;
      Link.Text := '';
      SaveDialog.FileName := '';
      Link.Enabled := True;
      Download.Enabled := True;
      Application.MessageBox('Файл успешно загружен', 'Информация', mb_iconInformation);
    end;
  end;
end;

İndirme linki o. Amma illakı indirmek için konunu açmalısınız. Ve seçip indirmelisiniz.

http://rsload.net/soft/player/8487-adobe-flash-player.html

http://rsload.net/noload/files/048/rsload.net.Adobe.Flash.Player.12.00.44.Final.IE.zip

Linki DownLoad Master ile denedim indiriyo gelen linkide alıyo ve indiriyo. Şimdi o nasıl indiriyo o zaman. Sorun nedir acaba?

Toplam 0 cevap