TClientSocket - сохранение

[JRcoker]

Вобщем запрашиваю с сервера картинку...

begin
Socket.SendText('GET /img.png HTTP/1.1'+#10+
'Host: localhost'+#10+
'User-Agent: Opera 9.51'+#10
+#10);
while My_Socket.Active=true do Application.ProcessMessages;
end;

FText - ответ от сервера...Он выходит вот такой...

HTTP/1.1 200 OK
Date: Fri, 01 Aug 2008 09:45:12 GMT
Server: Apache/2.2.4 (Unix) mod_ssl/2.2.4 OpenSSL/0.9.8g
Transfer-Encoding: chunked
Content-Type: image/png

223
‰PNG


Как зделать что картинка тупо сохранилась на комп?..

[Arigato]

Это только HTTP-заголовок, а код картинки пошел ниже, начиная с ‰PNG.
Его в бинарном виде нужно скинуть в файл.

[JRcoker]

И как это зделать(кодом)?..

[Arigato]

На обработчике OnRead компонента TClientSocket можно читать получаемые данные в буфер:
Socket.ReceiveBuf
Только придется еще позаботится о том, что бы пропустить HTTP-заголовок.
Наверняка, воспользовавшись поиском, можно найти готовые решения.

[JRcoker]

Можешь примерный код дать?..