Delphi и WinSock

[Nicker]

Есть такая проблема хочу с помощью WinSock на Delphi качнуть рисунок, страницу тяну нормально получаю хедер и тело, а когда пытаюсь таким же образом вытянуть рисунок оно думает где-то 20-30сек и дает мне ток хедер и пустой текст, сам код:

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('12 7.0.0.1'));
SockAddr1.sin_port:=htons(80);
connect(Socket1, SockAddr1, sizeof(SockAddr1));

Buffer1:='GET /jpg.php HTTP/1.0' + #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://dasparion.ws/' + #13#10 +
'Cookie: amm=1;' + #13#10 +
'Cache-Control: max-age=0' + #13#10 +
#13#10;


send(Socket1,Buffer1[1],Length(Buffer1),0);
repeat
FillChar(Buffer2,SizeOf(Buffer2),0);
d:=recv(Socket1,Buffer2,SizeOf(Buffer2),0);
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;

Memo1.Text:=msg;

Closesocket(Socket1);
WSACleanup;

[Chrome~]

Скорее всего проблема из-за:
'Keep-Alive: 300' + #13#10 +
'Connection: keep-alive' + #13#10 +
В вашем случае должно быть:
'Connection: close' + #13#10 +

[МongBa†]

Не , конекшен здесь не при чем...

Мемо не слишком то подходит под изображения ;)
сохраняй сразу в файл...

кстати и в цикле
repeat
FillChar(Buffer2,SizeOf(Buffer2),0);
d:=recv(Socket1,Buffer2,SizeOf(Buffer2),0);
for i:=1 to d do Data.Add(Buffer2[i]);
until d<=0;
ты вообще нещадно крамсаеш этот несчастный рисунок, разбивая его по строкам, т.е. в тело рисунка автоматом вбиваются #13#10 )


вобщем писал в слепую... пробуй:

var failik:text;

send(Socket1,Buffer1[1],Length(Buffer1),0);
assignfile(failik,'.\123.jpg');
rewrite(failik);
repeat
FillChar(Buffer2,SizeOf(Buffer2),0);
d:=recv(Socket1,Buffer2,SizeOf(Buffer2),0);
for i:=1 to d do writeln(failik,Buffer2[i]);
until d<=0;
closefile(failik);

[Nicker]

Не , конекшен здесь не при чем...

Мемо не слишком то подходит под изображения ;)
сохраняй сразу в файл...

кстати и в цикле
repeat
FillChar(Buffer2,SizeOf(Buffer2),0);
d:=recv(Socket1,Buffer2,SizeOf(Buffer2),0);
for i:=1 to d do Data.Add(Buffer2[i]);
until d<=0;
ты вообще нещадно крамсаеш этот несчастный рисунок, разбивая его по строкам, т.е. в тело рисунка автоматом вбиваются #13#10 )


вобщем писал в слепую... пробуй:

var failik:text;

send(Socket1,Buffer1[1],Length(Buffer1),0);
assignfile(failik,'.\123.jpg');
rewrite(failik);
repeat
FillChar(Buffer2,SizeOf(Buffer2),0);
d:=recv(Socket1,Buffer2,SizeOf(Buffer2),0);
for i:=1 to d do writeln(failik,Buffer2[i]);
until d<=0;
closefile(failik);


Фаил создается но там куча мусора, от ответа сервака и каждый символ с новой строчки, походу мой цикл был правильный, как вытянуть жпг рисунок с этого мусора?

[Sunstrider]

Мен а ты как начинал вин сок изучать слей источник,плз

[Ins3t]

2Sunstrider:
https://forum.antichat.ru/thread123692.html
Так же есть такая классная штука как MSDN.




-------
P.S.: Нет-нет, не подумайте, я к делфи ни каким боком не отношусь.

[Nicker]

Мен а ты как начинал вин сок изучать слей источник,плз

Гуглил находил статьи клепад по примерам, чесно говоря во всем инете нету нечего нормального по ним + кроме форума античата про винсоки не знают не на одном форуме))))



+ тема остается актуальна как с этого сделать рисунок:

HTTP/1.1 200 OK
Server: nginx
Date: Mon, 19 Apr 2010 15:39:55 GMT
Content-Type: image/jpeg
Connection: close
Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
Pragma: no-cache
Expires: Thu, 19 Nov 1981 08:52:00 GMT
Content-Length: 2377

яШяа 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ўЉ( ўЉ( ўЉжµп‰~рµкЪjю"УtлўU|«‹•FЛOђ@рq@ТoDЋ–ЉОјс •§ЪGus©Ъ[ЫHURi'UV,p*тI w®oЕї|аT™µПШШ?Ц
ЖFOЁ@Hю”м5KDЋЦЉзьсГґцѕрЦ№ c®Z)
ҐІ˜H‘ђ:†є
Bi§fQE
(ўЂ
(ўЂ
е>(|FУ~ш6чД˜y–-±[ZB3-ЭГќ±AооД(хДшпцѓµУѕ"[ь9рЌЏь$Ю9•k›hд›
§~ШЬAЛtтєьNс—нOыWh'–ЧГнрЮ� �лXїёы8ћ«ИRXчc(\–кц*#кОЪ8iOЮћ‘JпУю� �Ґ|hэ±ј[р5u›OxnВУTџГ«¬i0ЕpЈќо
*cKYIО Ђ з7VшAЄьYэќ[АѕрЭХОї©щ3j^7сC5І›ЙЅЕМAГM ОU@UQАОјгцЈшZ‹ы_| °Х<Q©x§Дљ*ъI{=т$pБk±јI1ЁPA;¶rx
ыЛЗю6‡Аъ*ЭЕНдТ,VцЫ°\зжcиЁ»ќ Џўџj§hҐcЄn4cMТ^уЧЇGcтџгOАЇiЯґЏ� �„QxПTЦо$·µMД«R+Hг.D`&Ь№RДдЧк—†~шГ~ґТ#Т*§H*ЦdёЊ I$ЗhОн’ДтI'Ѕ|eыйтьtэЁ~'|lФTkHТњo хЊ3ЩP*ЋеЎфЇ¤їkЏцџіЧВ-__уЎюШhZ-:ЪFщ¤™†ё‚}Ѓ§6ЫQ+*•g:Э%WЇа|/р›DvэЎh«_
кчћр–“ew<’hwoQK ЙpAБщФдt ‘ТЅц?ш№с»Жя іЈвQu¦кiіЮНцЅїМѕEц«/–E9aёЖЮ|ГЦ—? aЅjъYDю8ш»©®—nyirgsЋЕw)чa_mшЭаэ •?aЛЫ{EЋЦзEря ЩўLя J˜a°;џ2Fo|№v:±-?u$Ы’Kд’oжЩ±аїЫ'А^$шqбПк7mўЫк ©˜L3¤ОБ|©%ы*еЃдзW»Ј¬Ё®ЊeYNA� �ѕ"ш‘ръЯаЧьzГБ[Eo®kVъnћРћZ{ы»˜ZR8е—20цЊzWЪz=‹iљE� �›ЙжЅј H7P Зlв°’[ЈЗЇ
q\Фц»_$\ўЉ*@®/гGДX>ь'сgЊgPлЈiУ]$mТIBюн?аNUн+–шЈрчNш*ры^р–Є\Xj ЦЇm#!Г.G=ББJk}K‡/2жЪъџ8Б7ј$у| Ф>$jзн^(с®Ґ=хХМЈt‰№HгyЫ…Ь?ЮцЇ:ш}*xoц{я ‚†ьX\[xcIс˜·6чО!·rН’|нтЏ˜?p8ИЇRэ™ь) с3цdрcь9Х|+'Њф«+№HЦt{˜У|RH&Y™|°Ґ‰кxа
чБрпJсћЌuвН'MЦuл8WuЬ¶КЕdЖX)<нОp+W+7Щћ•JК5j7¬e¦Џ¦–ы¬|“ыCьш ЌсЯЗюшБриЩ±С®™4»{чЩжZ/+r8 щЋ“ћUРњr+ўшУбO‹~Фґ›жс—Е� �zИйpк:}˜іТь?a+©ќDТ6H©‚Kc·Ђц А…-O;РБbд№W*ґvюї«џ9~ЖіпЊ?gя …я рЋш“TТ‹12¬R4…$l—i%|o9< *uaЊZш©ыь>шУЄ>§гїk·б6BЧZ¬‚(?r4Ъ*rkи:*yќоdс]GU;7Шш3Vя ‚lkЪ‹|©иўХ4o
^%Оџ*лvТ¬QЁ‘\Ж$Yан ьјЂJйя nлџш®ПБћкSш=5Ѕ?PЧu»4ы]*…_ч?ЛeURy,Ђ`ѓћ+мК*№ЭУf«QО3©Ї.� �?#е?ЪЕєOЋ?hїЩЯбЕ•еҐЬ'Yёс5ЬC4? dґv¶?„>щ°чG+кКгхЯ„>с'‹4п_шvЕьK§¶ыmb(ь«ёшЖ<ФГ2г#i$rxж»
–о’F'FЏEшЮбET˜Q@Q@Q@Q@Q@Q @Q@яЩ

[Nicker]

Вот еще одна попытка файл все равно не является рисунком((

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('12 7.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Оюf2 z8ф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ШёЕ*ЭВЉ(¬Л
(ўЂ
(ўЂ
(ўЂ
(ўЂ
(ўЂ
(ўЂ
(ўЂ?я

[Nicker]

Все нашол решение
rb := rb + 3;
на rb := rb + 4;
меняем и все файл с инета тащится нормально))))

[Chrome~]

Скорее всего проблема из-за:
'Keep-Alive: 300' + #13#10 +
'Connection: keep-alive' + #13#10 +
В вашем случае должно быть:
'Connection: close' + #13#10 +
Не , конекшен здесь не при чем...
Для более правильной работы нужно отправлять именно Connection: close, потому что сервак может действительно "оставаться на связи", то есть не закрывать сокет, поскольку ТС в своем посте не реализовал правильную работу с Connection: keep-alive.

Но хотя с другой стороны - ты прав. Проблема автора заключалась не в этом.