+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : لا استطيع ارسال تسجبل الدخول بشكل جيد (/showthread.php?tid=9122)
لا استطيع ارسال تسجبل الدخول بشكل جيد - mohamed49 - 19-01-2018
كود :
var
http: THTTPClient;
list: TStringList;
result:string;
begin
http:= THTTPClient.Create;
list:= TStringList.Create;
try
list.Add('csrf_test_name=' + gettoken);
list.Add('email=' + user.Text);
list.Add('password=' + pass.Text);
result := httpclient.Post('https://uploadfiles.io/login', list).ContentAsString ;
finally
http.Free;
list.Free;
end;
end;RE: لا استطيع ارسال تسجبل الدخول بشكل جيد - mohamed49 - 21-01-2018
اين الخطا في الكود هل مع اني تاكدت من الاكسس توكن وهو يجلبه تمام
RE: لا استطيع ارسال تسجبل الدخول بشكل جيد - Agmcz - 22-01-2018
السلام عليكم
PHP كود :
var
HTTP: THTTPClient;
Params: TStringList;
Response, Token: string;
P: Integer;
begin
HTTP := THTTPClient.Create;
Params := TStringList.Create;
try
Response := HTTP.Get('https://uploadfiles.io/login').ContentAsString;
P := Pos('"csrf_test_name" value="', Response);
if P > 0 then
begin
Token := Copy(Response, P + Length('"csrf_test_name" value="'), 32);
Params.Add('csrf_test_name=' + Token);
Params.Add('email=xxx@xxx.xxx');
Params.Add('password=*******');
HTTP.Post('https://uploadfiles.io/login', Params);
Response := HTTP.Get('https://uploadfiles.io/dashboard').ContentAsString;
if Pos('"fa fa-sign-out"', Response) > 0 then
ShowMessage('Logged in successfully.');
end;
finally
HTTP.Free;
Params.Free;
end;
end;
RE: لا استطيع ارسال تسجبل الدخول بشكل جيد - mohamed49 - 22-01-2018
جزاك الله كل خير راح اجرب واردلك خبر ان شاء الله
RE: لا استطيع ارسال تسجبل الدخول بشكل جيد - mohamed49 - 22-01-2018
تمام عرفت المشكلة في الكود تبعي هههههه كنت جاعل HTTPClient local في الفنكشن الخاص بجلب التوكن لذلك اعتبره منفصل وكاني استخدمت 2 فقمت بجعله public واشتغل تمام
public
HTTPClient:THTTPClient;
وتم تسجيل الدخول بنجاح
جزاك الله خيرا
والسلام عليكم
هل اجد عندك مثال لاستخدام الكوكيز مثلا موقعنا هذا في ارسال استفسار او موضوع او موقع اخر المهم الفكرة