كيف يجلب الرابط المباشر فقط ؟ باسمتعامل indy

[Guest99]

السلام عليكم

انا استعمل 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/aYkRqp...or-neo.exe

انا احصل عليه لاكن بعد تحميل الملف وذالك غريب فاذا الملف حجمه 500 ميجا او اكثر هل انتظر حتى يكتمل لاحصل على الرابط؟؟؟

حاولت بشتى الطرق ولم اجد حل

ان شاء الله تكون مشكلتي واضحة

انا في انظاركم بارك الله فيكم