Skt - это TClientSocket;
Нажимаю кнопку, вот обработка:
Код:
Skt.Host := 'icq.com';
Skt.Port := 80;
res:='GET /karma/login_page.php HTTP/1.1' + #13#10+
'User-Agent: PhoeniX/5.0 (compatible; MSIE 8.0; Windows Vista)' + #13#10+
'Host: icq.com' + #13#10+
'Connection: Keep-Alive' + #13#10#13#10;
Skt.Open;
Код:
обработка sktConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
Skt.Socket.SendText(res);
end;
Код:
обработчик sktRead(Sender: TObject; Socket: TCustomWinSocket);
begin
ShowMessage(Socket.ReceiveText);
end;
И вот что он мне возвращает:
Код:
HTTP/1.1 302 Found
Date: Sat, 26 Sep 2009 08:57:23 GMT
Server: Apache
Expires: Mon, 20 Dec 1998 01:00:00 GMT
Last-Modified: Sat, 26 Sep 2009 08:57:23 GMT
Cache-Control: no-store, no-cache, must-revalidate
Pragma: no-cache
Location: https://www.icq.com/karma/login_page.php
P3P: CP="ONL UNI COM PHY NAV INT DEM CURo OUR"
Keep-Alive: timeout=6, max=50
Connection: Keep-Alive
Transfer-Encoding: chunked
Content-Type: text/html
Что я сделал не так ?
И затем ещё присылает данные(размер буфера 5), но если прочитать это как число, то получается, что это 218762544
Socket.ReceiveBuf(i,Socket.receivelength); что это такое тоже не понятно(..