لا استطيع ارسال تسجبل الدخول بشكل جيد

[mohamed49]

كود :

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;

[mohamed49]

اين الخطا في الكود هل مع اني تاكدت من الاكسس توكن وهو يجلبه تمام

[Agmcz]

السلام عليكم

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; 


[mohamed49]

جزاك الله كل خير راح اجرب واردلك خبر ان شاء الله

[mohamed49]

تمام عرفت المشكلة في الكود تبعي هههههه كنت جاعل HTTPClient local في الفنكشن الخاص بجلب التوكن لذلك اعتبره منفصل وكاني استخدمت 2 فقمت بجعله public واشتغل تمام
public
HTTPClient:THTTPClient;
وتم تسجيل الدخول بنجاح
جزاك الله خيرا

والسلام عليكم

---

هل اجد عندك مثال لاستخدام الكوكيز مثلا موقعنا هذا في ارسال استفسار او موضوع او موقع اخر المهم الفكرة