ياهلا
كوووووود
function URLDownloadToFile(Caller: cardinal; URL: PChar; FileName: PChar; Reserved: LongWord; StatusCB: IBindStatusCallback): HResult; stdcall; external 'URLMON.DLL' name 'URLDownloadToFileA';
في شي ناقص ولابد وضعه في الكود هذا
UrlDownloadToFile(0, PChar(HTTP), nil, 0, 0 );
رسالة الخطأ للكود السابق
[Error] mmm.dpr(97): Incompatible types: 'Integer' and 'IBindStatusCallback'
أرجوا المساعده
محمـــــــــد
المملكه العربيه السعوديـــه
[الفريق العربي للبرمجه الأفضـل دائما]
::::::::::::::::::::::::::::::::::::
msvbvm60.dll = فيجوال بيسك
.................= دلفــــــــــــــي
::::::::::::::::::::::::::::::::::::
السلام عليكم
لا أعلم ما المشكله في المنتدى
حاولت منذ فترة الإجابة على بعض الاسئلة لكن دون جدوى .
الدالة التي ذكرتها تجد التعريف الصحيح لها في URLMON .
المتغير الأول والخامس ليسا Integer لذا لا يمكن استعمال الصفر كقيمة لهما وعوضا عن ذلك استعمل nil
CIONO1
هناك حتى الأحلام أصبحت ممنوعة ...
إنه لعار أن ننتمي لهكذا أوطان ... لكن ... ربما العار أن نكون نحن أبناء لتلكم أوطان .. من يدري ؟!!
ليعلم أولئك ... إنّ الشعوب إنْ هي استيقظت تسحق ظُلامََهَا ...
There, even in dreams u r wanted
To be a programmer, how a nice dream it was
Leaving ...
أعيدوا لإسمي لونه المفضل
جرب هذا الكود
procedure TForm1.Button1Click(Sender: TObject); begin URLDownloadToFile(Self,'http://dm3tee.com/up/pic/Stream.zip','c:\Stream.zip',0,Nil); end;
عند تجريبه لا بد ان تكون متصلا بالنت
ولكن الكود هذا غير كافي في حالة وجود مشاكل في عملية التنزيل
هذا الموضوع مغلق.