Witam grupowiczów, mam mały ale duży problem. Odnośnie ściągania strony
html. Jak ściągam stronę to serwer generuje odpowiedź - zwraca mi za każdym
razem rozmiar każdego ściąganego bloku strony. Wygląda to następująco:
HTTP/1.1 200 OK
Date: Sun, 16 Jan 2005 00:16:25 GMT
Server: Apache/1.3.31 (Win32) PHP/4.3.9 mod_gzip/1.3.26.1a
X-Powered-By: PHP/4.3.9
Transfer-Encoding: chunked
Content-Type: text/html
<b>f39 </b> // określenie tego rozmiaru
bloku
<HTML>
<HEAD>
<TITLE>-::[ KRASNAL Serv ]::-</TITLE>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-2">
<meta http-equiv="Content-Language" content="pl">
<link rel="shortcut icon" href="images/favicon.ico" />
<LINK href="images/style.css" type=text/css rel=StyleSheet>
itd. Chodzi mi wyrzucenie wpisów nagłówka oraz wpisów rozmiarów (np f39)
Rozmiar ten przewija się co blok. Jak go mogę usunąć
A to moje procedury Client Socket:
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
t1,i, t2: integer;
begin
t1 := Length(buffer);
t2 := ClientSocket1.Socket.ReceiveLength;
Setlength(buffer, t1+t2); // buffer to tablica dynamiczna z
wartościami byte
ClientSocket1.Socket.ReceiveBuf(buffer[t1], t2);
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Setlength(buffer, 0);
StatusBar1.Panels.Items[0].Text :='ŁĄCZENIE...';
ClientSocket1.Socket.SendText('GET /' + ' ' + ' HTTP/1.1 ' +
#13#10 + 'Host: ' + p2 + #13#10#13#10);
end;
procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
StatusBar1.Panels.Items[0].Text :='ROZŁACZONY';
log.lines.add(string(buffer));
end;