Форум АНТИЧАТ - Проблема с многопточностью. Borland C++ Builder

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Проблема с многопточностью. Borland C++ Builder (https://forum.antichat.xyz/showthread.php?t=193272)

Проблема с многопточностью. Borland C++ Builder

Возникла проблема с многопоточностью. Есть 100-поточная программа, которая для теста обращается к странице http://example.com. Проблема в том, что при первом нажатие кнопки (код ниже) происходит не 100, а рандумное количество запросов до 100 (н.п. 84, 95, 66, 52)... При втором же - ровно 100, как положено. Отснифал Process Explorer'ом - потоки создаются все, но вот запросы идут не все. И это только при ПЕРВОМ нажатии кнопки. При втором и всем последующим все идет как надо. Почему? Буду очень благодарен за помощь. Использую Borland C++ Builder 6.

Вот код запуска потоков:

PHP код:


		
			
TMyThread * Thr[1000];

void __fastcall TForm1::Button1Click(TObject *Sender)

{

int i;



for(i=0;i<100;i++)

Thr[i] = new TMyThread(false);

}

Вот метод Execute:

PHP код:


		
			
void __fastcall TMyThread::Execute()

{

 HINSTANCE libcurl = NULL;

     if((libcurl = LoadLibrary( "libcurl.dll" )) == NULL)

          MessageBox(NULL, "ы", MB_OK, 0);



     CURL*(__stdcall *curl_easy_init)();

     CURLcode(__stdcall *curl_easy_setopt )(CURL *curl, CURLoption option, ...);

     CURLcode (__stdcall *curl_easy_perform )(CURL *curl);

     void (__stdcall *curl_easy_cleanup )(CURL *curl);

     curl_easy_init=(CURL*(__stdcall*)())GetProcAddress(libcurl, "curl_easy_init" );

     curl_easy_setopt=(CURLcode(__stdcall *)(CURL *curl, CURLoption option, ...))

     GetProcAddress(libcurl, "curl_easy_setopt");

     curl_easy_perform=(CURLcode(__stdcall *)(CURL *curl))GetProcAddress(libcurl, "curl_easy_perform" );

     curl_easy_cleanup=(void (__stdcall *)(CURL *curl))GetProcAddress(libcurl, "curl_easy_cleanup" );



CURL *curl;

curl = curl_easy_init();

curl_easy_setopt(curl, CURLOPT_URL, "http://www.example.com/");

curl_easy_setopt(curl, CURLOPT_WRITEFUNCTION, Writer);

curl_easy_setopt(curl, CURLOPT_WRITEDATA, &table);

curl_easy_perform(curl);

curl_easy_cleanup(curl);



}

Этот код сделай в крит.секции:

Код:

HINSTANCE libcurl = NULL; 

     if((libcurl = LoadLibrary( "libcurl.dll" )) == NULL) 

          MessageBox(NULL, "ы", MB_OK, 0); 



     CURL*(__stdcall *curl_easy_init)(); 

     CURLcode(__stdcall *curl_easy_setopt )(CURL *curl, CURLoption option, ...); 

     CURLcode (__stdcall *curl_easy_perform )(CURL *curl); 

     void (__stdcall *curl_easy_cleanup )(CURL *curl); 

     curl_easy_init=(CURL*(__stdcall*)())GetProcAddress  (libcurl, "curl_easy_init" ); 

     curl_easy_setopt=(CURLcode(__stdcall *)(CURL *curl, CURLoption option, ...)) 

     GetProcAddress(libcurl, "curl_easy_setopt"); 

     curl_easy_perform=(CURLcode(__stdcall *)(CURL *curl))GetProcAddress(libcurl, "curl_easy_perform" ); 

     curl_easy_cleanup=(void (__stdcall *)(CURL *curl))GetProcAddress(libcurl, "curl_easy_cleanup" );

M_script_, не помогает.

Вот так сделал:

PHP код:


		
			
EnterCriticalSection(&Form1->CS);

 HINSTANCE libcurl = NULL;

     if((libcurl = LoadLibrary( "libcurl.dll" )) == NULL)

          MessageBox(NULL, "û", MB_OK, 0);



     CURL*(__stdcall *curl_easy_init)();

     CURLcode(__stdcall *curl_easy_setopt )(CURL *curl, CURLoption option, ...);

     CURLcode (__stdcall *curl_easy_perform )(CURL *curl);

     void (__stdcall *curl_easy_cleanup )(CURL *curl);

     curl_easy_init=(CURL*(__stdcall*)())GetProcAddress(libcurl, "curl_easy_init" );

     curl_easy_setopt=(CURLcode(__stdcall *)(CURL *curl, CURLoption option, ...))

     GetProcAddress(libcurl, "curl_easy_setopt");

     curl_easy_perform=(CURLcode(__stdcall *)(CURL *curl))GetProcAddress(libcurl, "curl_easy_perform" );

     curl_easy_cleanup=(void (__stdcall *)(CURL *curl))GetProcAddress(libcurl, "curl_easy_cleanup" );

LeaveCriticalSection(&Form1->CS);

А в Unit1.h прописал:

PHP код:


		
			
public:        // User declarations

        CRITICAL_SECTION CS;

За первым разом только что выполнилось 84 запроса, нажал еще раз - ровно 100.

Уверен на 99.9%, что ты забыл про InitializeCriticalSection(&CS); =)
(перед запуском потоков в Button1Click)

Сделал я это, только не в Button1Click, а в

Цитата:

__fastcall TForm1::TForm1(TComponent* Owner)

Вот щас перенес инициализацию в Button1Click. Заметил, что колличество запросов увеличилось до 90-95. Но никак не 100, как мне требовалось. За вторым и последующими нажатиями все ок (ровно 100), как и было раньше.

M_script_, зайди, пожалуйста, в ICQ, или напиши мне в 674542, не могу до тебя достучатся.

Фух, решил проблему. Спасибо, M_script_.
Вот рабочий метод Execute():

PHP код:


		
			
void __fastcall TMyThread::Execute()

{

EnterCriticalSection(&Form1->CS);

 HINSTANCE libcurl = NULL;

     if((libcurl = LoadLibrary( "libcurl.dll" )) == NULL)

          MessageBox(NULL, "û", MB_OK, 0);



     CURL*(__stdcall *curl_easy_init)();

     CURLcode(__stdcall *curl_easy_setopt )(CURL *curl, CURLoption option, ...);

     CURLcode (__stdcall *curl_easy_perform )(CURL *curl);

     void (__stdcall *curl_easy_cleanup )(CURL *curl);

     curl_easy_init=(CURL*(__stdcall*)())GetProcAddress(libcurl, "curl_easy_init" );

     curl_easy_setopt=(CURLcode(__stdcall *)(CURL *curl, CURLoption option, ...))

     GetProcAddress(libcurl, "curl_easy_setopt");

     curl_easy_perform=(CURLcode(__stdcall *)(CURL *curl))GetProcAddress(libcurl, "curl_easy_perform" );

     curl_easy_cleanup=(void (__stdcall *)(CURL *curl))GetProcAddress(libcurl, "curl_easy_cleanup" );



CURL *curl;

curl = curl_easy_init();

LeaveCriticalSection(&Form1->CS); 

curl_easy_setopt(curl, CURLOPT_URL, "http://www.example.com/");

curl_easy_setopt(curl, CURLOPT_WRITEFUNCTION, Writer);

curl_easy_setopt(curl, CURLOPT_WRITEDATA, &table);

curl_easy_perform(curl);

curl_easy_cleanup(curl);

}