مشكلة في تحميل الملف دون الصيغة !

[Oman Defender]

السلام عليكم ورحمةا لله وبركاته شباب
الصيغة لا تظهر بعد تحميل الملف في الذاكره

كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  FileStream: TMemoryStream;
begin
Download := TIdHTTP.Create(nil);
     try
       Download.OnWork:= DownloadWork;
FileStream := TMemoryStream.Create;
    Download.Get(Edit1.Text, FileStream);
    FileStream.SaveToFile('/sdcard/123')
  finally
      FileStream.Free;
    end;
end;

بارك الله فيكم

[Agmcz]

لفترض أن Edit1 يحتوي على هذا الرابط

PHP كود :

http://www.delphi4arab.net/123.txt 


هذا السطر سيكون هكذا

PHP كود :

FileStream.SaveToFile('/sdcard/123.txt'); 


هنا سيتم الحفظ في المجلد sdcard الذي بجانب البرنامج

[Oman Defender]

لكن ماذا لو حاولت تحميل ملف Mp4 من رابط آخر !
وأيضا جربت رابط يحتوي على ارقام و % فظهر MessageBox: IOHandler Value is not Valid
بارك الله فيك أخي على تفاعلك

[Agmcz]

ضع الرابط الذي أظهر
MessageBox: IOHandler Value is not Valid

[Oman Defender]

هذا هو الرابط أخي

كود :

https://fs02n4.sendspace.com/dl/82cc61cd5a859331b9ee9ff777bdc773/53bc0daf04af6dcb/hqz8ky/%5BZiMABDk%5DDragon%20Ball%20Kai%20112%20(%202014)%20EP14%5B480p%5D%5Barabic%5D%5BBy%20Senbay%20%5D-muxed.mp4

معذرة في تأخر على الرد

[Agmcz]

ألق نظرة هنا
http://www.delphi4arab.net/forum/showthr...?tid=10444

[Oman Defender]

ألق نظرة هنا
http://www.delphi4arab.net/forum/showthr...?tid=10444

مثال ممتاز, بارك الله فيك أخي على البرمجه الذهبيه