23-12-2018, 09:17 PM
السلام عليكم
اريد تسجيل الدخول عن طريق 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 وجلب قيمة الدخول الناجح 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;هل احد عنده فكرة عن طريقة التسجيل بهذا المنهج
والسلام عليكم