Форум АНТИЧАТ - Delphi и WinSock

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

Delphi и WinSock

19.04.2010, 01:13

Nicker

Новичок

Регистрация: 18.04.2010

Сообщений: 6

Провел на форуме:
11283

Репутация: 0

Delphi и WinSock

Есть такая проблема хочу с помощью 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('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;