delphi4arab منتديات دلفي للعرب

السلام عليكم
استخدمت unit خاصة بتحميل ملف من الانترنت     ExtActns باستخدام ميثود  TDownLoadURL تعمل جيدا لكن مع الروابط التي تبدا ب HTTPS تقع مشكلة ليست في التحميل وانما في محاولته تحويل حالة كود ال API الى Enum value حسب بحثي في احد المواقع لرد احد الاعضاء
TDownloadURL tries to convert API status codes into
TURLDownloadStatus enum values. The error you are seeing is thrown when the
API reports a status code that TDownloadURL does not recognize.
Which OS are you running under? There are currently 27 API status codes
that TDownloadURL does not recognize. That suggests to me that TDownloadURL
was written for an older version of the API and has not been updated to
support the latest version
فهل يمكن التعديل على unit في هذه الحالة وكيف؟
او هل يوجد نسخة محدثة منExtActns unit او كحل بديل كيف يمكن  اظهار    progress statut to progressbar في حالة تحميل الملف
وشكرا

هذا الكود
[CSHARP]function TfrmURLS.DownloadHTML(const sURL,
sLocalFileName: string): Boolean;
begin
Result:=True;
with TDownLoadURL.Create(nil) do
try
URL:=sURL;
Filename:=sLocalFileName;
OnDownloadProgress := URL_OnDownloadProgress;
try
ExecuteTarget(nil);
except
Result:=False
end;
finally
Free;
end;
end;
procedure TfrmURLS.URL_OnDownloadProgress;
begin
Label1.Caption := StatusText;
pbarCurrentProgress.Max := ProgressMax;
pbarCurrentProgress.Position := Progress;
end;[/CSHARP]

للتذكير فقط الخطا هنا OnDownloadProgress := URL_OnDownloadProgress;

كيف يمكن اضافة فكرة لجلب حجم الملف مثلا لعمل مزامنة مع البروجريس بار او طريقة ما

السلام عليكم
شوف هاذ المثال
http://delphi4arab.net/forum/showthread.php?tid=6075

(07-01-2018, 02:20 PM)مبرمج حر كتب : [ -> ]السلام عليكم
شوف هاذ المثال
http://delphi4arab.net/forum/showthread.php?tid=6075

يعطيك العافية اريده باستخدام هذا الكومبننت لذا اريد  معرفة كيفية تجاوز هذا العائق استخدمت موقع اخر بنفس خصائص الاول يبدا بال http: وعمل جيدا لكن الموقع الثاني https تقع المشكلة اريد طريقة لحلها

---

ملاحظة استقبال نص html من الموقع يعمل عادي كذلك تحميل الملف المشكل فقط عند استخدام المزامنة مع البروجريس بار