لحفظ الملف من النت إلى الجهاز - نسخة قابلة للطباعة

[FONT="Arial"]

[B]

السلام عليكم ورحمة الله تعالى وبركاته

قمت بعمل برنامج لقراءة الفلاشات من النت
, أي أخد رابط لعبة swf ثم إدخال الوصلة في مربع النص ثم تلعب بعد دلك فيه دون اللجوء إلى الموقغ مع كل تلك الإكراهات وكدلك عكس الشاشة الصغيرة ...
كيف يمككني حفظ اللعبة التي ألعب علبها إلى حاسوبي ؟Save Game
لقد حاولت أن أضع التعليمة الصحيحة ولكن لم تنجح وبالطبع مع Savedialog ؟

بالنسبة للبرنامج فهو على الشكل التالي :
1- إضافة العنصر edit و عنصر الفلاش shockwaveFlash وزر
ثم كتابة التعليمة داخل الزر : ;(ShockwaveFlash1.LoadMovie(0,Edit1.Text
وإنشاء زر لحفظ اللعبة إلى الجهاز
تحيات أخوكم نورالدين

[/B]

PHP كود :

uses URLMon..;

Function DownloadFile(Source, Dest: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(Source), PChar(Dest), 0, nil) = 0;
  except
    Result := False;
  end;
end;

//-------------------------------طريقة الاستعمال-------------------------------

DownloadFile('http://www.delphi4ararb.com/YourFile.swf', 'c:\YourFile.swf');then