السلام عليكم ورحمة الله
شباب انا اريد ان اتعلم كيف اسطيع تسجيل دخولي من برنامجي لاي موقع .... لكني لم افلح
لقد بحث كثيرا وتوصلت الى عدة اكواد لكني لم انجح في الاتصال
احاول الدخول الى موقع رفع
www.fileserve.com
هذا هوا الكود الذي استعمله
procedure TForm1.Button1Click(Sender: TObject);
var
lParamList: TStringList;
ih:Tidhttp;
begin
lParamList := TStringList.Create;
ih:=TidHTTp.create(nil);
ih.Request.Username:='bengarber';
ih.Request.Password:='alert21';
ih.Request.BasicAuthentication:=true;
ih.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)';
ih.Request.Connection:='Keep-Alive';
ih.Request.AcceptLanguage:='en-us';
ih.ReadTimeout:=0;
try
lParamList.Add('loginUserName[user]loginUserPassword[pass]autoLogin=onloginFormSubmit=Login');
richedit1.Text := ih.Post('http://www.fileserve.com/login.php', lParamList);
finally
ih.free;
end;
end;
end.
var
lParamList: TStringList;
ih:Tidhttp;
begin
lParamList := TStringList.Create;
ih:=TidHTTp.create(nil);
ih.Request.Username:='bengarber';
ih.Request.Password:='alert21';
ih.Request.BasicAuthentication:=true;
ih.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)';
ih.Request.Connection:='Keep-Alive';
ih.Request.AcceptLanguage:='en-us';
ih.ReadTimeout:=0;
try
lParamList.Add('loginUserName[user]loginUserPassword[pass]autoLogin=onloginFormSubmit=Login');
richedit1.Text := ih.Post('http://www.fileserve.com/login.php', lParamList);
finally
ih.free;
end;
end;
end.
عندما انظر الى كود htm المُرجع من البرنامج في richedit اجد فيه "You are not logged in"
وهذا يدل على فشل المهمة
اذا ارجع "Logging in" فستكون نجحت المهمة لكن للاسف عمري ما نجحت ......
هذه عوضية مجانية للتجربة
user: bengarber
pass: alert21
فماذا احتاج الى اتمام العملية لم يبقى شيئ في راسي لمفكر فيه
ارجوكم ساعدوني