+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يجلب الرابط المباشر فقط ؟ باسمتعامل indy (/showthread.php?tid=3250)
كيف يجلب الرابط المباشر فقط ؟ باسمتعامل indy - Guest99 - 30-06-2011
السلام عليكم
انا استعمل indy في دلفي 2007
اقوم ببرمجة اداة لجلب الرابط المباشر من موقع رفع (fileserve.com) بواسطة حساب premium
هذا هوا الكود
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
Data, Page : TStringList;
begin
Data := TStringList.Create;
idhttp1.OnRedirect := IdHTTP1Redirect;
idhttp1.AllowCookies := True;
idhttp1.HandleRedirects := True;
idhttp1.ProtocolVersion := pv1_1;
idhttp1.CookieManager := IdCookieManager1;
idhttp1.RedirectMaximum := 15;
idhttp1.Request.UserAgent := 'Mozilla/5.0 (compatible; MSIE 7.0; Windows NT 5.1)';
Data.Add('loginUserName=[user]&loginUserPassword=[pass]&autoLogin=&loginFormSubmit=Login');
IdHTTP1.Post('http://www.fileserve.com/login.php',Data);
idHTTP1.get('http://www.fileserve.com/file/aYkRqp3');
for i := 0 to IdCookieManager1.CookieCollection.Count - 1 do
form1.Memo2.Lines.Add(IdCookieManager1.CookieCollection.Items[i].CookieText);
end;
procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: string;
var NumRedirect: Integer; var Handled: Boolean; var VMethod: string);
begin
form1.Edit1.Text := dest;
end;
المشكلة انه تعطيني الرابط لاكن بعد تحميل الملف!!! انا لااريـــد تحميل المبف انااريـــد الحصول على الرابط المباشر فقط بدون تحميل الملف
الرابط العادي يكون هكذا
http://www.fileserve.com/file/aYkRqp3
عند التحميل بواسطة حساب بريميوم يتحول الى رابط مباشر وذالك هوا ما اريـــده ه لكن بدون تحميل
هكذا يصبح الرابط
http://fs559dm.fileserve.com/file/aYkRqp3/MAfrTjoMNgfT44D9-2-OTNML/22c855/hex-editor-neo.exe
انا احصل عليه لاكن بعد تحميل الملف وذالك غريب فاذا الملف حجمه 500 ميجا او اكثر هل انتظر حتى يكتمل لاحصل على الرابط؟؟؟
حاولت بشتى الطرق ولم اجد حل
ان شاء الله تكون مشكلتي واضحة
انا في انظاركم بارك الله فيكم
الرابط العادي يكون هكذا
http://www.fileserve.com/file/aYkRqp3
عند التحميل بواسطة حساب بريميوم يتحول الى رابط مباشر وذالك هوا ما اريـــده ه لكن بدون تحميل
هكذا يصبح الرابط
http://fs559dm.fileserve.com/file/aYkRqp3/MAfrTjoMNgfT44D9-2-OTNML/22c855/hex-editor-neo.exe
انا احصل عليه لاكن بعد تحميل الملف وذالك غريب فاذا الملف حجمه 500 ميجا او اكثر هل انتظر حتى يكتمل لاحصل على الرابط؟؟؟
حاولت بشتى الطرق ولم اجد حل
ان شاء الله تكون مشكلتي واضحة
انا في انظاركم بارك الله فيكم
كيف يجلب الرابط المباشر فقط ؟ باسمتعامل indy - cargem - 30-06-2011
اخي ارفع الملف لكي تجد اجابة
كيف يجلب الرابط المباشر فقط ؟ باسمتعامل indy - mohfa - 30-06-2011
اولا حاول :
إستعمال ال Head في مكان ال Get .
ثانيا لاتنسى :
تحرير ال Data
والله المستعان
كيف يجلب الرابط المباشر فقط ؟ باسمتعامل indy - Guest99 - 30-06-2011
cargem كتب :اخي ارفع الملف لكي تجد اجابة
اخوي انا رافع الكود اعلاه ولا يوجد غيره في البرنامج
كيف يجلب الرابط المباشر فقط ؟ باسمتعامل indy - Guest99 - 30-06-2011
mohfa كتب :اولا حاول :
إستعمال ال Head في مكان ال Get .
ثانيا لاتنسى :
تحرير ال Data
والله المستعان
لقد حاول مع head لكن لا تظهر اي شيئ في
كود :
[align=left]procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: string;
var NumRedirect: Integer; var Handled: Boolean; var VMethod: string);
begin
form1.Edit1.Text := dest;
end;
[/align]كود :
[align=left] edit1.Text := idhttp1.Response.Location;
[/align]شكرا لك على النصيحة نعم نسيت تحري data من الذاكرة لاني الان احاول التعلم وحل المشكلة بعدها اقوم بكتابة الكود من جديد
كيف يجلب الرابط المباشر فقط ؟ باسمتعامل indy - mohfa - 01-07-2011
اخي الكريم حاول إستعمال ال Head , ثم لمعرفة النتيجة حاول قراءة ال headers المتوفرة وذلك باستعمال الحدث HeadersAvailable ل idHttp .
ثم إطرح النتيجة هنا .
كيف يجلب الرابط المباشر فقط ؟ باسمتعامل indy - cargem - 02-07-2011
اين uses: ؟
هناك متغيرات تحتاج الى *pas