+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اعرف DownloadFile لتحميل ملف من النت (/showthread.php?tid=2962)
كيف اعرف DownloadFile لتحميل ملف من النت - roniothman - 01-04-2011
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 - 01-04-2011
الف شكر يا اخواني المنتدى موجود فيه كل شئ بعد البحث تم ايجاد الحل
الف لكل الساهرين على المنتدى
كيف اعرف DownloadFile لتحميل ملف من النت - kachwahed - 01-04-2011
roniothman أهلا ومرحبا بك في دلفي للعرب
يسعدني أنك استخدمت البحث فوجدت الحل
مواضيع ذات صلة:
[تمرين ]برمجة Updater تحديث للبرنامج عبر الأنترنت
لحفظ الملف من النت إلى الجهاز
لا بأس أن تطرح الحل هنا أيضا لعل غيرك يستفيد منه
بالتوفيق.
كيف اعرف DownloadFile لتحميل ملف من النت - roniothman - 01-04-2011
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.
سيتم حفض الملف في مجلد البرنامج
كيف اعرف DownloadFile لتحميل ملف من النت - bassam@alrajhisoft.c - 06-09-2013
سؤال مرتبط بالموضوع ، في حال يوجد اسم مستخدم وكلمة مرور للتنزيل كيف يمكن تمريرها ؟