VPF::проблема с потоками!!! - Форум программистов

c0der

Дата 14.11.2010, 22:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 14.11.2010

Репутация: нет
Всего: нет

Здравствуйте!
Помогите пожалуйста новичку, у меня возникла проблема я не могу заставить программу работать в 10 потоков, помогите пожалуйста!
Вот код:

Код


function HTTTP(URL,PACKET:string):string;

var
 req{,data} : string;
 buf      : array[0..1500] of char;
 wData    : WSADATA;
 addr     : sockaddr_in;
 sock, c  : integer;
 error    : integer;
 phe      : PHostEnt;
_URL :string;
 req:string;
begin

 req:='GET '+URL+' HTTP/1.1'#13#10+
      'Host: '+host+#13#10+
      'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12'#13#10+
      'Accept: */*;q=0.1'#13#10+
      'Accept-Encoding: gzip,deflate'#13#10+
      'Accept-Language: ru-RU,ru;q=0.9,en;q=0.8'#13#10+
      'Connection: Keep-Alive'#13#10+
      'Referer: http://vkontakte.ru/index.php'#13#10+
      'Content-Type: application/x-www-form-urlencoded'#13#10#13#10;


 _URL := host + URL;
 WSAStartup($0101, wData);
 phe := gethostbyname(PChar(string(host)));
 if phe = nil then
 begin
    WSACleanup;
    exit;
 end;
 sock := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
 if sock = INVALID_SOCKET then begin
    WSACleanup;
    exit;
 end;
 for c:= 0 to 10 do //не создает потоки
 begin
 addr.sin_family := AF_INET;
 addr.sin_port   := htons(80);
 addr.sin_addr   := PInAddr(phe.h_addr_list^)^;
 error := connect(sock, addr, sizeof(addr));

     if error = SOCKET_ERROR then
     begin
      closesocket(sock);
      WSACleanup;
      exit;
     end;

//    req := PACKET;
    if Send(Sock,pointer(req)^,length(req),0)=SOCKET_ERROR then
    exit;

     // fillchar(buf,sizeof(buf),0);
     // recv(Sock,buf,10000,0);//sizeof(buf
    closesocket(Sock);
      WSACleanup;
  end;


end;



procedure Make_requ(szHost,szURL :String );
begin
  Host := szHost;
  URL := szURL;
  ThreadHTTP := CreateThread(nil, 0, @HTTTP, nil, 0, idThreadHTTP);
end;

end.


//Вот так вызываю
Make_requ('http://forum.vingrad.ru','/showthread.php?p=1384217');

Это сообщение отредактировал(а) c0der - 14.11.2010, 22:36

naz191

Дата 18.11.2010, 14:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 3.8.2010

Репутация: нет
Всего: нет

А где потоки то? - этож просто цикл (вроде...)
http://www.cyberguru.ru/programming/delphi/threads.html
http://www.interface.ru/home.asp?artId=19789

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »