procedure TForm1.Button1Click(Sender: TObject);
var msg:ansistring;
i,d,len:integer;
Data  : TStringList;
data_flag : boolean;
h, rb : dword;

begin
Data := TStringList.Create;
WSAStartup(makeword(2,0),info);
Socket1:=Socket(AF_INET,SOCK_STREAM,0);
SockAddr1.sin_family:=AF_INET;
SockAddr1.sin_addr.S_addr:=inet_addr(PAnsiChar('127.0.0.1'));
SockAddr1.sin_port:=htons(80);
connect(Socket1, SockAddr1, sizeof(SockAddr1));

Buffer1:='GET /Jpeg.php HTTP/1.1' + #13#10 +
'Host: localhost' + #13#10 +
'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1.9) Gecko/20100315 Firefox/3.5.9' + #13#10 +
'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8' + #13#10 +
'Accept-Language: ru,en-us;q=0.7,en;q=0.3' + #13#10 +
//'Accept-Encoding: gzip,deflate' + #13#10 +
'Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7' + #13#10 +
//'Keep-Alive: 300' + #13#10 +
//'Connection: keep-alive' + #13#10 +

'Referer: http://localhost/' + #13#10 +
'Cookie: x=daa3917f7f611102a6ffb9f76c9abd243fc64dc7; amm=1;' + #13#10 +
'Connection: close' + #13#10 +
'Cache-Control: max-age=0' + #13#10 +
#13#10;

len:=0;
send(Socket1,Buffer1[1],Length(Buffer1),0);
repeat
    FillChar(Buffer2,SizeOf(Buffer2),0);
    d:=recv(Socket1,Buffer2,SizeOf(Buffer2),0);
    len:=len+d;
    for i:=1 to d do Data.Add(Buffer2[i]);
until d<=0;
try
  for i:= 0 to Data.Count - 1 do
  Msg:= Msg  + Data.Strings[i];
finally
  Data.Free;

rb:=pos(#13#10#13#10, string(Msg));
if rb > 0 then
begin
rb := rb + 3;
h := CreateFile(pchar('.\1234.jpg'), GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
WriteFile(h, Msg[rb], len - rb, rb, 0);
CloseHandle(h);

end;
//Memo1.Text:=msg;

Closesocket(Socket1);
WSACleanup;

 end;
end;

яШяа JFIF 

  
 
  яю ;CREATOR: gd-jpeg v1.0 (using IJG JPEG v70), quality = 90
яЫ C 




яЫ C
		

яА  7 i
" 

яД   






        
	
яД µ 
  
}
 !1AQa"q2Ѓ‘Ў#B±БRСр$3br‚	
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyzѓ„…†‡?‰Љ’“”•–—˜™љўЈ¤Ґ¦§Ё©ЄІіґµ¶·ё№єВГДЕЖЗИЙКТУФХЦЧШЩЪбвгдежзийкстуфхцчшщъяД 
 








      
	
яД µ 
 
w 
!1AQaq"2ЃB‘Ў±Б	#3RрbrС
$4б%с&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz‚ѓ„…†‡?‰Љ’“”•–—˜™љўЈ¤Ґ¦§Ё©ЄІіґµ¶·ё№єВГДЕЖЗИЙКТУФХЦЧШЩЪвгдежзийктуфхцчшщъяЪ 
  ? эSўЉ( ўЉ( ўђњ@П°Ї˜хЫ>}гП‡~k~Х<7g¬LцсjєЎШ$`HCЖIАлЖех*aNU/К¶"SЊ-М};EVE…Q@Q@Q@Q@PХµэ3@‡НФхM:,ѕкu?`“–#°5А~ТЮ5Чѕ|
сvЅб{y®5ы[Cц?"ЬОС»0_3`;A-И#ЋxЇЉюшЫцvш*…<=Ё¦ҐбпЌJТопZЧb2MЁЭ#жT–vr
ИP¦Ц 
  p@륇u"з*јµ9кUP—/_3о}г_„ь_ўлљ—…uвШфvтоbСPОюf2z8ф5щпыaюУнґЭBПВчЮЧ|
в{XљMAРМL©;•ВэЭ*hЅПZъю	Пko¦|сџЊЦ#HЦјAyЁЫЖ*GИн•T«Џ@µ|*j6ї|QЁu‡Жћ?уБwЛ·…њ+·ў‘|Аю[zWҐ…ЈVџчzю©З^¬ҐN>Т?JuЇЪв$z4ZЧ†>кzч‡b‹t—w·«gu2…жH*ЩK<гvУЋХ7ВЏЫѓб·ДЇjљЭжЈя µЮђ»µ-3U!fЂnЗЯ? Ћд
ЇXс‡Ћј;рЈАтk>%ФнфЭ"КWљg QьDњ \ЧгGДx‹Vрч‹ю&Yй:–‹б_kRЕ%ЈЄLЋLЕЛњЌ»Вг‚I§aиSД¦љеЪПфФЦµYСjОюGйп…я n‡ю5Ф®аР4я k–vТyoЁйє,УАё%¶ЌА
кјцОF}cбзЕ	|WУ¦Ѕр®·*cћ5WЉh’'
иrЈҐyЗмSЈшJэ›ьtm(–М=ЬРЕ®	&@З ’¤•дtѕsэ§t8я dЏ‹—?фЏЮЭkю#ЭЇ†Ґѓ1Nк#Vу]Xf%\6з$`сXы*u*J”.џN·я #Oi8ANZ®ѕGитЧГMгo‹юПгЇьDФtgP°Ц‰¤Zє[Ў?2+G4nZCЭsћqЕwџІgДOьJшSҐсГТиZфsј!еЂЫ›ИБв_(ЂSУРг# аsОЏ*nйЫO빴js4¬ХПiўЉ+њФ(ўЉ сOЊљЧЕЌ7вgѓдр?‡†µб[D’]r№ЉsЅ‚*ЖXЊІ
пѓЂrјЧ)вЏЩ¶чгя ‹SДЮ:Т4я Бgayg§йz{¬ч†iРFn®nh%FvFҐЂ8mщИЇҐЁ*гYБ.Ufє™:jWжwGНїїbЅ?бпѓO…хпkѕ+ршу
h¬вТЕYъіGЭ+Кпb*ЂБA Ќ›/Ш{аЭЈ…—ВqЯЪEf,mlп&ybµЏМiЗ“»{;dbНШјWјСMв*¶Я3Ф*iZЗ›ЩюО
н/ўј“ВvzЌМ$42j*%ч’GCќњ'ьЫkћТјMЈO¤кЪu®ҐҐО›%іє…d‰ЧР©**+'9=[-E-‘бzwмЃб?
M}'‚хЯш	/|–ЮХZ;pЮў'WP
уoЪ—ц$Ф>)xЕ<7вMCVс&›tЧj|Q|g@*R›цьџta@ЙйљъцЉЪ8Љ±’ќхFrЈ	EЖЗЂxгOЏнь'¦i:ЗБїБZ7ЩЮХ4чu\y†v”lЊа‘њ q^Щб№uiфKIuИ-muW@УЫЩИТEа@-Ћ™АП**:+)ЙKhШёЕ*ЭВЉ(¬Л
(ўЂ
(ўЂ
(ўЂ
(ўЂ
(ўЂ
(ўЂ
(ўЂ?я