GET без ответа winsock

[Кольша]

Всем привет пишу маленькие программы на indy и тут задумался зачем убивать трафик на загружаемую страницу если можно просто передать серверу все необходимое, но в winsock мало шарю написал на нем модуль для гет'a с получением ответа методом копипаст и все=)
вот код:

interface

uses
winsock,Windows,SysUtils;
function get(url: string): string;
var
useragent:string='Mozilla/5.0 (Windows; U; Windows NT 6.1; ru-RU) AppleWebKit/533.19.4 (KHTML, like Gecko) Version/5.0.3 Safari/533.19.4';
Accept:string='application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5';
alang:string='ru-RU';
Connection:string='keep-alive';
implementation
function get(url: string): string;ф
var
 info: WSADATA;
sin: sockaddr_in;
myip: PHostEnt;
sHwnd: integer;
sBuff1:string;
sBuff, rBuff: array [0..5000] of char;
 host:string;
function hosttoip(name: string): string;
var
 wsdata  :twsadata;
 hostname:array [0..255] of char;
 hostent :phostent;
 addr    :pchar;
 ip      :string;
begin 
 wsastartup($0101, wsdata);
 try
   gethostname (hostname, sizeof (hostname));
   strpcopy(hostname, name);
   hostent := gethostbyname (hostname);
   if assigned (hostent) then
     if assigned (hostent^.h_addr_list) then
      begin
        addr := hostent^.h_addr_list^;
        if assigned (addr) then
         begin
           ip:=format('%d.%d.%d.%d', [byte (addr [0]),
           byte(addr [1]), byte (addr [2]), byte (addr [3])]);
           result := ip;
         end
        else
           result:='';
      end
     else
        result := ''
   else
    begin
      result := '';
    end;
 finally
   wsacleanup;
 end
end;
begin
WSAStartup(makeword(1,1),info);
sHwnd:=Socket(AF_INET, SOCK_STREAM, 0);
sin.sin_family:=AF_INET;
sin.sin_port:=htons(80);
host:=stringreplace(url,'http://','',[rfreplaceall]);
if pos('/',host)>0 then begin
host:=copy(host,1,pos('/',host)-1);
url:=stringreplace(url,'http://','',[rfreplaceall]);
url:=stringreplace(url,host,'',[rfreplaceall]);
end else 
url:='/';
sin.sin_addr.S_addr:=inet_addr(pchar(hosttoip(host)));
connect(sHwnd, sin, sizeof(sin));
sbuff1:='GET '+url+' HTTP/1.1' + #13#10 +
'Host: '+host + #13#10+
'User-Agent: '+useragent+#13#10+
'Accept: '+Accept+#13#10+
'Accept-Language: '+alang+#13#10+
'Connection: '+Connection+#13#10+#13#10;
CopyMemory(@sBuff,pchar(sBuff1),length(sBuff1));
send(sHwnd, sBuff, Length(sBuff), 0);
recv(sHwnd, rBuff, Length(rBuff), 0);
result:=(rBuff);
Closesocket(sHwnd);
WSACleanup;
end;
end.

я так понимаю просто надо не делать recv(sHwnd, rBuff, Length(rBuff), 0); и все?

[Пепел Феникса]

ну да, только это идет в разрез с протоколом.

[Кольша]

??WTF?? Вообщем как быдет правильно и безболезнено?=)

[Пепел Феникса]

можете конечно попробовать так сделать, но как это будет работать неизвестно.
ибо HTTP это протокол вида запрос-ответ.

[Stilet]

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

Погодь. А Инди чем помешала? Ну ради бога, в свою страницу внедри AJAX, который будет запрашивать некий пакет данных, после по приходу размещаемый в каком нить DIV (я так делаю).
Кстати тут я уже пример выкладывал, кто-то про AJAX спрашивал.
Да вот хотя-бы моя тема: http://www.programmersforum.ru/showthread.php?t=174309

[Кольша]

нет вы не поняли look:
авторизуюсь я на инди окда;
тырю из инди заголовок с куками;
посылаю их на сервер без обратного ответа;
Все это я хочу использовать для программы "я онлайн" понятно че делать будет=),а это что бы трафика меньше было=)