+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : login with IdTcpClient1 and get ok statut (/showthread.php?tid=9968)
login with IdTcpClient1 and get ok statut - invocker - 23-12-2018
السلام عليكم
اريد تسجيل الدخول عن طريق IdTcpClient1 وجلب قيمة الدخول الناجح 200
OK
الداتا كالاتي
post : https://up.top4top.net/ucp.php?go=login
https://up.top4top.net/ucp.php?go=login
POST HTTP/1.1 200 OK
Host: up.top4top.net
User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:64.0) Gecko/20100101 Firefox/64.0
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: fr,fr-FR;q=0.8,en-US;q=0.5,en;q=0.3
Accept-Encoding: gzip, deflate, br
Referer: https://up.top4top.net/login.html
Content-Type: application/x-www-form-urlencoded
Content-Length: 156
Connection: keep-alive
الداتا المرسلة
lname=invocker&lpass=123456&remme=864000&submit=دخول&k_form_key=b1711677621f4868fb5b18a17fc8323e5tg4b85a&k_form_time=1242895475
استخدمت الكود التالي ينجح الاتصال لكن لا شيء يظهر على memo
كود :
IdTcpClient1.Host := 'up.top4top.net';
IdTcpClient1.Port := 443;
IdTcpClient1.Connect;
if IdTCPClient1.Connected then
begin
IdTcpClient1.IOHandler.Writeln('data to login');
if IdTcpClient1.IOHandler.InputBufferIsEmpty then
begin
IdTcpClient1.IOHandler.CheckForDataOnSource(0);
IdTcpClient1.IOHandler.CheckForDisconnect(False);
if IdTcpClient1.IOHandler.InputBufferIsEmpty then exit;
end;
Memo1.Lines.Add(IdTcpClient1.IOHandler.ReadLn);
end;هل احد عنده فكرة عن طريقة التسجيل بهذا المنهج
والسلام عليكم