Форум АНТИЧАТ - winsock косяк с принятием данных

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - winsock косяк с принятием данных (https://forum.antichat.xyz/showthread.php?t=138155)

[delphi]winsock косяк с принятием данных

хочу программно авторзироваться на форуме,но по неизвестной причине html страницка не принимаеться,принимаеться только заголовок и кусок начала страницы каторую я принимаю.почему?

Код:

unit Unit1;



interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, XPMan;



const

  Host = 'forum.4game.ru';



type

  TForm1 = class(TForm)

    Button1: TButton;

    Memo1: TMemo;



    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

    procedure Button1Click(Sender: TObject);





  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;

  Data : string;







implementation

uses

  WinSock;

function IdSock(size:integer):string;

var

  Sock    : TSocket;

  Addr    : TSockAddr;

  HostEnt : PHostEnt;

  Res     : Integer;

  Buf     : array [0..350001] of Char;

  Source  : string;

  I:integer;

begin

source:='';

res:=0;



Sock := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);

if Sock = INVALID_SOCKET then Exit; HostEnt := gethostbyname(PChar(Host));

if HostEnt = nil then  Exit;Addr.sin_family := AF_INET;

Addr.sin_port := htons(80);Addr.sin_addr   := PInAddr(HostEnt^.h_addr_list^)^;

if connect(Sock, Addr, SizeOf(TSockAddr)) = SOCKET_ERROR then

if WSAGetLastError() <> WSAEWOULDBLOCK then Exit;

Res := send(Sock, Data[1], Length(Data), 0); if Res = SOCKET_ERROR then Exit;



  repeat

  if size=0 then Res := recv(Sock, Buf, SizeOf(Buf), 0)else

  Res := recv(Sock, Buf, size, 0);

  if Res = SOCKET_ERROR then Exit;

  if Res > 0 then Source := Source + Copy(Buf, 0, Res);

  until Res <= size;





CloseSocket(Sock);

result := Source;

end;//IdSock



function cook(a:integer;Co:string):string;//Co - ?????? ??? ???? ????

var

pos1:integer;

str:string;

i:integer;

ckl:integer;

begin

    for ckl:=1 to a do begin

     result:='';

     pos1:=pos('Set-Cookie:',co);

     co:=copy(co,pos1+12,length(co)-12);

     str:=co;

     I:=1;

    while str[i] <> ';' do begin

    result:=result+str[i];inc(i);

    end;

    end;

end;



{$R *.dfm}









procedure TForm1.FormCreate(Sender: TObject);

var

  WSAData : TWSAData;

begin

  if WSAStartup($101, WSAData) <> 0 then

    Exit;

end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

  WSACleanup;

end;







procedure TForm1.Button1Click(Sender: TObject);

var

forum_4game_ruipb_stronghold:string;

   forum_4game_rusession_id:string;//????

   forum_4game_rumember_id:string;

   forum_4game_rupass_hash:string;

   forum_4game_rucoppa:    string;

   PHPSESSID:string;

   stat_uid:string;



   sid:string;

   pos1,pos2:integer;     //15-16 ???

    send:string;



    ckl,ckl2,st,I:integer;

    nick,pages,buf,str,attach_post_key,auth_key,Id:string;

    Otvet: TStringList;

begin

Otvet:= TStringList.Create;





Data := 'GET /index.php?act=Login&CODE=00 HTTP/1.1' + #13#10 +

'Host: ' + Host + #13#10 +

'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)' + #13#10 +

'Accept: text/html' + #13#10 +

'Connection: close' + #13#10#13#10;

form1.Memo1.text:=Idsock(50000);//Если поставить 0 ,то принимаеться нормально,но мне нужна не вся страничка

memo1.Lines.SaveToFile('1.html');







forum_4game_rusession_id:=cook(1,form1.Memo1.text);//forum_4game_rusession_id=4e9bec834c4da036ac55aeeb638591e7

sid:=copy(forum_4game_rusession_id,26,32) ; // 4e9bec834c4da036ac55aeeb638591e7

//showmessage(sid);







send:='referer=&UserName=i11111&PassWord=42113340&CookieDate=1';

 Data := 'POST /index.php?s='+Sid+'&act=Login&CODE=01 HTTP/1.1'+#13#10+

'Host: ' + Host + #13#10 +

'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.16) Gecko/20080702 Firefox/2.0.0.16'+#13#10+

'Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5'+#13#10+

'Accept-Language: ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3'+#13#10+

'Accept-Encoding: gzip,deflate'+#13#10+

'Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7'+#13#10+

'Keep-Alive: 300'+#13#10+

'Connection: keep-alive'+#13#10+

'Referer: http://foru.4game.ru/index.php?act=Login&CODE=00'+#13#10+

'Cookie: '+forum_4game_rusession_id+#13#10+

'Content-Type: application/x-www-form-urlencoded'+#13#10+

'Content-Length: '+inttostr(length(send))+#13#10#13#10+send;

form1.Memo1.text:=Idsock(50000);  //входим //если поставить 0 принимаеться абракадабра минуты две

memo1.Lines.SaveToFile('2.html');

end;



end.

Idsock(50000) -> в скобках кол-во байт каторое хочу принять,если пушу 0 (чтоб принять все) то прога виснет на минуты 2,но в результате всеравно принимаю заголовок + иероглифы 23e8
‹Щ6?|trю±

подскажите пожалуйста что можно сделать чтоб после post запроса страничка принималась полностью без иероглифов и зависаний на 5 минут

http://depositfiles.com/files/5mu6im2xn
http://ifolder.ru/13759577
http://rapidshare.com/files/27300947...ssage.rar.html
http://slil.ru/27937260

Вот, сразу видно что человек хочет чб ему помогли... всё конкретно сказал что требуется и сорец приложил чб подправили...

Оценил код... попробовал поюзать... у меня вообще аж папка с сорцом повисла О_о

Теперь вроде раздуплилась...

Чб всё не висло думаю нуна юзать поток отдельный, под запрос, а интерфейс пусть работает в 1ом (нулевом) потоке...

И кстати, там в конце идёт сохранение файла из мемо в какой то рандомный хтмл файл... чего я почему то не узрел...

Продолжаю изучать... мож ещё чего предложу...

И так...

По моему программа тормозит именно в function cook

PHP код:


		
			
while str[i] <> ';' do

begin 

     result:=result+str[i];inc(i);

end;

если вынесешь эту прцедуру в отдельный поток, то проблемы с подвисанием думаю больше не будет, нужно пробовать...

и почему то не только в этой функции тормозит...
Помоему она тормозит ещё и на этапе form1.Memo1.text:=Idsock(0);
вызов которой уже в самом конце, до этого не так сильно...
Да! именно тут и тормозит... почему то... в первый раз не тормозит... на втором вызове тормозит... вопрос почему? :)

И кстати иероглифов я чё то вообще не заметил...

Её тоже в поток пробовал выносить?

Цитата:

И кстати, там в конце идёт сохранение файла из мемо в какой то рандомный хтмл файл... чего я почему то не узрел...

это я кое-что делал ,можно удалить:)

в потоке так же принимаеться.
для начало нужно понять почему принимаеться не вся страничка ,а ее часть к тому же криво/

удалил ту процедуру с куками ,по прежнему виснет и принимаються иероглифы
240c
‹?з@cuНњГ‰TП!ЬЮљщ(†ЛHрP3]LYпV/ТЇOгKуЄЏ©=ЖHsід‹шА¬oL^RС0ЗХA ,Ъ·ѕ№э]*EБ‡НТ%№ПU“?О49[ШA‘OР“‘КQЩReU‰щxцd_ji–e¤Fэ4c_@ ш[0М!h

Цитата:

Её тоже в поток пробовал выносить?

угу...

Data := 'GET /index.php?act=Login&CODE=00 HTTP/1.1' + #13#10 +
'Host: ' + Host + #13#10 +
'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)' + #13#10 +
'Accept: text/html' + #13#10 +
'Connection: close' + #13#10#13#10;
form1.Memo1.text:=Idsock(0);

работает норм,а второй раз не хочет

Нет, второй раз она работает, я пробовал через Ф7 прогу несколько раз... именно на втором вызове она задумывается...

Может что то не так в запросе?
так как первый запрос function IdSock обрабатывает корректно... на мой взгляд...

О_о

Счас попробовал после закрывания сокета его чистить... вообще как от неадекватно сработало... на первом как обычно чуть притормозила, но данные в мемо вывела... на втором походу вообше нифига делать не стала...

И теперь понял почему...

Странно... но интересно...

Попробовал пересоздать сокет вообще...
Всё равно тормозит... всё таки нужен отдельный поток под сокет и интерфейс...

Вот результат ответа на второй запрос:

Код HTML:

HTTP/1.1 200 OK  Server: nginx/0.8.4  Date: Sat, 29 Aug 2009 15:22:36 GMT  Content-Type: text/html; charset=windows-1251  Transfer-Encoding: chunked  Connection: keep-alive  Keep-Alive: timeout=20  X-Powered-By: PHP/5.2.9-pl2-gentoo  Set-Cookie: forum_4game_rusession_id=cbead2e56584692848d652b74ea45ce7; path=/; domain=forum.4game.ru; httponly  Set-Cookie: PHPSESSID=3e405ae0d3dc688a8a7454610bf15ca7; path=/  Expires: Thu, 19 Nov 1981 08:52:00 GMT  Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0  Pragma: no-cache  Set-Cookie: forum_4game_ruipb_stronghold=7103949e45c7bb244f91c82d8fd9f2e3; expires=Sun, 29-Aug-2010 16:10:21 GMT; path=/; domain=forum.4game.ru; httponly  Set-Cookie: forum_4game_rumember_id=610758; expires=Sun, 29-Aug-2010 16:10:21 GMT; path=/; domain=forum.4game.ru; httponly  Set-Cookie: forum_4game_rupass_hash=d781feefcc1810bfe9a299e1b8158f25; expires=Sat, 05-Sep-2009 16:10:21 GMT; path=/; domain=forum.4game.ru; httponly  Set-Cookie: forum_4game_rucoppa=0; path=/; domain=forum.4game.ru  Set-Cookie: forum_4game_rusession_id=139cab4929d6588290a3499a88d31099; path=/; domain=forum.4game.ru; httponly  Set-Cookie: stat_uid=X4H4WkqZR7yzmzfVB29pAg==; path=/  Content-Encoding: gzip    23e8  ‹

ну от некоретности запроса она не должна виснуть поидее должна вернуть результат что данные не те .
целый день марочаюсь не могу понять что не так,просто с инди перешол много не догоняю покачто :)
эх,попробую еще раз с нуля написать мож косяки исчезнут сами собой)

ps кто поможет разобраться с этой хренью чтобы работала быстро и не висла отблагодарю финансово :)

'Accept-Encoding: gzip,deflate'+#13#10+

этим ты говориш серваку что поддерживаеш сжатие gzip вот он тебе и возвращет данные в gzip'e

'Connection: keep-alive'+#13#10+

ставь
'Connection: close'+#13#10+
чтобы мозги не компосировать серваку.
А позвисает потому что ждет дальнейшего ответа от сервака на команде recv
так что нужно анализировать размер пришедших данных
к примеру Contend-Length анализировать и считывать тока нужное кол-во байт.
Или ставить таймауты на recv через setsockopt

заменил то что ты сказал все заработало при выполнении функции IdSock(0) ничего не виснет вроде

Цитата:

А позвисает потому что ждет дальнейшего ответа от сервака на команде recv
так что нужно анализировать размер пришедших данных
к примеру Contend-Length анализировать и считывать тока нужное кол-во байт.
Или ставить таймауты на recv через setsockopt

тоесть при отправке post запроса добавляем строку
'Content-Length: 20000'+#13#10+
и он вернет 20к байт вместо 70000(сктолько весит страничка)

Цитата:

таймауты на recv через setsockopt

а это как?)

после добавления
'Content-Length: 20000'

возвращает

HTTP/1.1 400 Bad Request
Server: nginx/0.8.4
Date: Sat, 29 Aug 2009 16:12:16 GMT
Content-Type: text/html; charset=utf-8
Content-Length: 172
Connection: close
Set-Cookie: stat_uid=X4H4WkqZU2CyHzfRB88RAg==; path=/

<html>
<head><title>400 Bad Request</title></head>
<body bgcolor="white">
<center><h1>400 Bad Request</h1></center>
<hr><center>nginx/0.8.4</center>
</body>
</html>

При POST запросе
Content-Length должно содержать размер данных которые ты посылаеш.
При приеме страницы часто в Content-Length сервер задает кол-во байт которые он возвращает