كيف اعرف DownloadFile لتحميل ملف من النت

[roniothman]

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
const
SourceFile='Http://220.245.161.16/download/d_1002_00.zip';
DestFile ='cas data.zip';
begin
 if DownloadFile (SourceFile,DestFile) Then
 begin
 Showmessage ('ok');
 end;
 else Showmessage ('no);
end;
end. 


دلفي يقول يجب تعريف DownloadFile كيف يمكنني تعريفها

[roniothman]

الف شكر يا اخواني المنتدى موجود فيه كل شئ بعد البحث تم ايجاد الحل
الف لكل الساهرين على المنتدى

[kachwahed]

roniothman أهلا ومرحبا بك في دلفي للعرب
يسعدني أنك استخدمت البحث فوجدت الحل
مواضيع ذات صلة:
[تمرين ]برمجة Updater تحديث للبرنامج عبر الأنترنت
لحفظ الملف من النت إلى الجهاز
لا بأس أن تطرح الحل هنا أيضا لعل غيرك يستفيد منه
بالتوفيق.

[roniothman]

PHP كود :

unit Unit1;
interface
uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs ,URLMon, StdCtrls ,WinInet, ShellApi, ExtCtrls ;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
Function DownloadFile(Source, Dest: string): Boolean;
begin 
  try
    Result := UrlDownloadToFile(nil, PChar(Source), PChar(Dest), 0, nil) = 0; 
  except
    Result := False; 
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
 const
SourceFile='http://www.delphi4arab.net/logo.gif';
DestFile ='logo.gif';
begin
 if DownloadFile (SourceFile,DestFile) Then
 Showmessage ('ok')
 else
  Showmessage ('no');
end;
end. 


سيتم حفض الملف في مجلد البرنامج

[bassam@alrajhisoft.c]

سؤال مرتبط بالموضوع ، في حال يوجد اسم مستخدم وكلمة مرور للتنزيل كيف يمكن تمريرها ؟