Delphi и WinSock

Nicker · 19 Apr 2010

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

Code:

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 /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~ · 19 Apr 2010

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

МongBa† · 19 Apr 2010

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

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

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

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

var failik:text;

Code:

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 · 19 Apr 2010

МongBa† said:
Не , конекшен здесь не при чем...

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

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

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

var failik:text;

Code:

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);
Click to expand...
Фаил создается но там куча мусора, от ответа сервака и каждый символ с новой строчки, походу мой цикл был правильный, как вытянуть жпг рисунок с этого мусора?

Sunstrider · 19 Apr 2010

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

Ins3t · 19 Apr 2010

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

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

Nicker · 19 Apr 2010

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

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

Code:

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я Ja°;џ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шЮбETQ@Q@Q@Q@Q@Q@Q@яЩ

Nicker · 19 Apr 2010

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

Code:

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;

вот что получаю:

Code:

яШяа 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ШёЕ*ЭВЉ(¬Л
(ўЂ
(ўЂ
(ўЂ
(ўЂ
(ўЂ
(ўЂ
(ўЂ?я

Nicker · 19 Apr 2010

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

Chrome~ · 19 Apr 2010

Chrome~ said:
Скорее всего проблема из-за:
Code:
'Keep-Alive: 300' + #13#10 +
'Connection: keep-alive' + #13#10 +
В вашем случае должно быть:
Code:
'Connection: close' + #13#10 +
Click to expand...
МongBa† said:

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

Для более правильной работы нужно отправлять именно Connection: close, потому что сервак может действительно "оставаться на связи", то есть не закрывать сокет, поскольку ТС в своем посте не реализовал правильную работу с Connection: keep-alive.

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

Delphi и WinSock

Nicker New Member

Chrome~ Elder - Старейшина

МongBa† Member

Nicker New Member

Sunstrider Banned

Ins3t Харьковчанин

Nicker New Member

Nicker New Member

Nicker New Member

Chrome~ Elder - Старейшина

Useful Searches

Delphi и WinSock

Nicker New Member

Chrome~ Elder - Старейшина

МongBa† Member

Nicker New Member

Sunstrider Banned

Ins3t Харьковчанин

Nicker New Member

Nicker New Member

Nicker New Member

Chrome~ Elder - Старейшина