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

[mailbrush]

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

Вот код запуска потоков:
TMyThread * Thr[1000];
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i;

for(i=0;i<100;i++)
Thr[i] = new TMyThread(false);
}
Вот метод Execute:
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);

}

[M_script_]

Этот код сделай в крит.секции:
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" );

[mailbrush]

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

Вот так сделал:
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 прописал:
public: // User declarations
CRITICAL_SECTION CS;

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

[M_script_]

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

[mailbrush]

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

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

[mailbrush]

Фух, решил проблему. Спасибо, M_script_.
Вот рабочий метод Execute():
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);
}