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