Winsock , обрезает вывод

[TreadProblem]

Возможно уже поднималась данная тема. Пишу прокси-тоннель через php гейт. Слушаю сокет на порту 3128 , получаю от браузера хэдер, разбираю его и по средствам idHTTP (изначально пробовал синапс и чистые сокеты) получаю строку типа string и отправляю ее обратно браузеру.

Возникает 2 проблемы.
1. Некоторые сайты не грузятся, грузится только присланный хэдер, а сам контент почему то не отображается, хотя в переменной S (сюда приходит ответ от гейта) все есть.
2. Вылетают invalid pointer value и AV , после того как ввел критические секции, вместо этой ошибки прога просто зависает. Видимо где то поток виснет и следующий поток уже не может добраться до кода, где происходило AV , так же в отладчике видно, что AV происходит в работе функции DeleteFree

кусок кода, где я предполагаю ошибки:

//тут мы проверяем запрос от браузера
          while 1 =1 Do begin
            FD_ZERO(fset);
            FD_SET(recvsock,fset);
            FD_SET(tunnelsock,fset);
            if select(0,@fset,nil,nil,nil) <> SOCKET_ERROR Then begin            
              if FD_ISSET(recvsock,fset) THEN begin 
                ZeroMemory(@buffer,sizeof(buffer));
                recv_len := recv(recvsock, buffer,sizeof(buffer),0);
                if recv_len = SOCKET_ERROR Then begin
           
                   break; 
                end;

                str:=pchar(@buffer);
                if pos('Host',str)<>0 then begin
                cs.Enter;
                re:=TRegExpr.Create;
                re2:=TRegExpr.Create;
                re3:=TRegExpr.Create;
                re4:=TRegExpr.Create;
                re.Expression:='Host:(.*?)\n';
                re2.Expression:='(.*?)\n\r';
                re3.Expression:='\n\r(.*?)$';
                re4.Expression:='\/(.*?)H';
                if re.Exec(str) then begin

                  re2.Exec(str);
                  re3.Exec(str);
                  re4.Exec(str);
                  http1:=TIdHTTP.Create(nil);
                  params:=TStringList.Create;
                  params.Add('h='+trim(re.Match[1])+'/'+trim(re4.Match[1]));
                  params.Add('&data='+trim(re3.Match[1]));
                  params.Add('&header='+trim(re2.Match[1]));
                  s:=HTTP1.POST('http://site.ru/p.php',params);
                  //form1.Memo1.lines.add(inttostr(length(s)));
                  CopyMemory(@Result, @s[1], (length(s) + 1) * SizeOf(Char));
                  send(recvsock,Result,sizeof(Result),0);
                  params.Free;

                  Http1.Free;
                  
                end;

                re.Free;
                re2.Free;
                re3.Free;
                re4.Free;
                cs.leave;
                end;

              end;
            end;

[xoodoo]

recv_len := recv(recvsock, buffer,sizeof(buffer),0);
if recv_len = SOCKET_ERROR Then begin
  break; 
end;

А если recv_len <> SOCKET_ERROR, то на основании чего ты решил что приняты все ожидаемые данные ?

send(recvsock,Result,sizeof(Result),0);

Кто такой "Result" ?
На оновании чего ты уверен что все sizeof(Result) байт данных успешно отправлены ?

[TreadProblem]

Сообщение от xoodoo

recv_len := recv(recvsock, buffer,sizeof(buffer),0);
if recv_len = SOCKET_ERROR Then begin
  break; 
end;

А если recv_len <> SOCKET_ERROR, то на основании чего ты решил что приняты все ожидаемые данные ?

send(recvsock,Result,sizeof(Result),0);

Кто такой "Result" ?
На оновании чего ты уверен что все sizeof(Result) байт данных успешно отправлены ?

Первое пока не особо важно) , а второе это массив char

[xoodoo]

Первое пока не особо важно

Как это "не особо", что за глупости ?
Следом за recv() ты начинаешь парсить контент запроса в расчете на то что он получен в объеме, достаточном для извлечения нужной тебе инф-ции.
А на самом деле получен лишь фрагмент контента.

второе это массив char

И на основании чего ты уверен что он будет передан полностью за один вызов send() ?

[TreadProblem]

Сообщение от xoodoo

Как это "не особо", что за глупости ?
Следом за recv() ты начинаешь парсить контент запроса в расчете на то что он получен в объеме, достаточном для извлечения нужной тебе инф-ции.
А на самом деле получен лишь фрагмент контента.



И на основании чего ты уверен что он будет передан полностью за один вызов send() ?

1. целостность полученного запроса от браузера я постоянно проверяю визуально.
2. он должен передаться полностью, т.к. другие сайты в этом же объеме передаются нормально. а например 2ip.ru передается только хэдер, а именно сам контент отрезается. если убрать хэдер весь контент передается успешно, но в виде текста.

[xoodoo]

по п.2 - полный бред.

Ок, спрошу иначе:

Cчитаешь ли ты полными идиотами разработчиков из Майкрософт, которые опубликовали в официальной документации к ф-ции winsock.recv следующее:

If no error occurs, recv returns the number of bytes received and the buffer pointed to by the buf parameter will contain this data received. If the connection has been gracefully closed, the return value is zero.

[TreadProblem]

Сообщение от xoodoo

по п.2 - полный бред.

Ок, спрошу иначе:

Cчитаешь ли ты полными идиотами разработчиков из Майкрософт, которые опубликовали в официальной документации к ф-ции winsock.recv следующее:

recv (тот запрос , что делает браузер) я постоянно проверяю визуально, я же написал. а вот send(recvsock,Result,sizeof(Result) ,0); отправляет то , что получено с php гейта, а не с recv . и почему то ya.ru он отправляет правильно, а 2ip отправляет только хэдер, причем игнорирует сам контент, который там имеется.

Я проводил эксперемент, брал контент страницы ya.ru и 2ip.ru загонял их в текстовики и поочередно отправлял через send , тоже самое.

п.с. я прекрасно понимаю, что считывать recv нужно до момента пока он не будет возвращать 0. Но я пытался отправить браузеру данные напрямую, чистым текстом. выходят вот такие дела.

[xoodoo]

запрос , что делает браузер) я постоянно проверяю визуально

Да по барабану что ты там "проверяешь визуально" !

Нет никакой гарантии что твой один-единственный recv()-вызов при иных сетевых условиях получит запрос от браузера целиком.

И с send() та же песня - нет никакой гарантии что весь контент, требуемый к передаче, будет успешно отправлен за один-единственный вызов send().

На то тебе функция send() и возвращает результат, чтобы ты его анализировал с целью принятия дальнейшего решения, а не отправлял прямиком в мусор.

И почему-то флаг FD_READ ты проверяешь select'ом перед чтением из сокета, а опросить FD_WRITE перед записью в сокет не удосуживаешься, полагаясь неизвестно на что.

[Slym]

В архиве консольный мини прокси
Допили этот проект, проще некуда...
или назови прокси сам допелю