Странные проблемы(потоки, функции)

@TGrey[WoLf] · Регистрация: 14.09.2008

Студворк — интернет-сервис помощи студентам

Здравствуйте, делаем с другом авторизатор для чата. Отдельные модули писали в VC после чего я сделал интерфейс в Борланде и интегрировал все части. У меня работает все хорошо, ну относительной той части, что должно работать, а вот у друга сразу же возникают проблемы.
1)Для вывода текста используем CppWebBrowser у меня все работает отлично у друга при вызове функции Refresh() программа крашится.
2)Используем Сокеты для приема данных, как задержку я установил Sleep. Но поскольку он усыпляет основной поток, я создаю другой и он уже ловит сообщения. У меня по прежнему все хорошо, у друга, Слип действует на оба потока. Причем когда у него была предыдущая версия с неверным алгоритмом обработки строк Слип там действовал, как нужно, после того, как я переделал алгоритм, который никаким образом не относится к потокам и скинул новую версию другу, начался этот прикол со Слипом(только у него).

Попробовал скинуть готовый проект при запуске пишет обращение к запрещенной памяти(я полагаю Refresh() в браузере) и программа ложится.

Кто знает как с этим боротся, подскажите пожалуйста.

@TGrey[WoLf] · 04.10.2009, 21:28 **[ТС]**

Вот новые факты:
Программа блокируется не Слипами. Сперва я сделал через селект, всеравно блочило подумал это сами сокеты и блочат пока ждут инфу. Сменил режим на неблокирующий всеравно таже история.
Вот часть кода

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
void Connector::CLogin()
{
    if( connect(to, (sockaddr*)&adr, sizeof(adr)) != SOCKET_ERROR)
        //cout<<"Connecting..."<<endl;
    if( send(to, login, strlen(login), 0) != 0 )
        //cout<<"Login Attempt"<<endl;
    Sleep(7000);
    recv(to, resp2, 20000, 0);            //RECV LogIn answer
    Sleep(2000);
    SetCid(resp2);
    SetUid(resp2);
    SetGet1(cid, uid);
    memset(resp2, 0, sizeof(resp2) );
    send(to, get1, strlen(get1), 0 );        
    Sleep(5000);
    recv(to, resp2, sr, 0);
    char *str=cutform(resp2);
    SetNewUid(str);
    //cout<<"NEW UID: "<<newuid<<endl;
    SetGet2(cid, newuid);
    memset(resp2, 0, sizeof(resp2) );
    send(to, get2, strlen(get2), 0);
        Sleep(2000);
        //ChatWindow->Recv->Enabled = true;
        //while(1){}
    /*string fd;      //For Delete
    int fdp;        //For Delete Pos
        string fptb;    //First packet temp buffer
    while( WORK )
    {
        //Sleep(2000);
        recv(to, resp2, sr, 0);
        fd = resp2;
        fdp = fd.find("<body onLoad");
        if( fdp != -1 )
                {
            fd.erase(0, fdp);
                        fd.erase(0, fd.find("<script>m"));
                        fd.replace(0,1,"100\r\n<");
                }
        strcpy(resp2, fd.c_str());
               [color=red] ChatWindow->wb->Refresh();[/color]
               //MessageBox(NULL, resp2, "Resp2", 0);
               Together(resp2);
                //Form1->wb->Refresh();
        memset(resp2, 0, sr);
        //Sleep(3000);
    }*/
}

Новая версия

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
void Connector::CLogin()
{
    if( connect(to, (sockaddr*)&adr, sizeof(adr)) != SOCKET_ERROR)
        //cout<<"Connecting..."<<endl;
    if( send(to, login, strlen(login), 0) != 0 )
        //cout<<"Login Attempt"<<endl;
 
    Sleep(7000);
    recv(to, resp2, 20000, 0);          //RECV LogIn answer
    Sleep(2000);
 
    SetCid(resp2);
    SetUid(resp2);
 
    SetGet1(cid, uid);
 
    memset(resp2, 0, sizeof(resp2) );
    send(to, get1, strlen(get1), 0 );       
    Sleep(5000);
    recv(to, resp2, sr, 0);
 
    char *str=cutform(resp2);
 
    SetNewUid(str);
    //cout<<"NEW UID: "<<newuid<<endl;
 
    SetGet2(cid, newuid);
    memset(resp2, 0, sizeof(resp2) );
    send(to, get2, strlen(get2), 0);
 
        unsigned long st=1;
        ioctlsocket(to, FIONBIO, &st);
        Sleep(2000);
        //ChatWindow->Recv->Enabled = true;
    string fd;      //For Delete
    int fdp;        //For Delete Pos
        string fptb;    //First packet temp buffer
 
        fd_set fs;
        timeval tot;
        tot.tv_sec = 0;
        tot.tv_usec = 1000;
 
    while( WORK )
    {
                FD_ZERO(&fs);
                FD_SET(to, &fs);
                select(0, &fs, NULL, NULL, &tot );
        //Sleep(2000);
        if( FD_ISSET(to, &fs) )
        {
        recv(to, resp2, sr, 0);
        fd = resp2;
        fdp = fd.find("<body onLoad");
        if( fdp != -1 )
                {
            fd.erase(0, fdp);
                        fd.erase(0, fd.find("<script>m"));
                        fd.replace(0,1,"100\r\n<");
                }
        strcpy(resp2, fd.c_str());
 
                //ChatWindow->wb->Refresh();
               // if( !MapInited )
               //         fptb = resp2;
               //MessageBox(NULL, resp2, "Resp2", 0);
               Together(resp2);
        //checkbuffer(resp2);
                //Form1->wb->Refresh();
                //Form1->wb->ScrollBy(0,1000);
        memset(resp2, 0, sr);
        //Sleep(3000);
        }
    }
}

+
создание потока

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
int WINAPI WorkThread(void*)
{
        c.CInit();
        c.CLogin();
        return 0;
}
//---------------------------------------------------------------------------
void __fastcall TChatWindow::Button1Click(TObject *Sender)
{
        TVariant url = w1.c_str();
        wb->Navigate2(&url, NULL, NULL, NULL, NULL);
        WT = CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE)&WorkThread, NULL, NULL, NULL);
}

@TGrey[WoLf] · 06.10.2009, 12:41 **[ТС]**

Если кому понадобится, то решение вот в чем:
Как оказалось, нельзя обращаться из потока к VCL объектам без синхронизации, поэтому мне посоветовали использовать поток TThread.
Но поскольку в моей программе в потоке выполняется только обработка строк и она не связана с компонентами, то мне осталось только убрать тестовые выводы информации в компоненты на форме. Теперь все работает как нужно.

Новые блоги и статьи Все статьи Все блоги /
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .

@TGrey[WoLf] 42 / 42 / 4 Регистрация: 14.09.2008 Сообщений: 683

	Странные проблемы(потоки, функции) 04.10.2009, 17:38. Показов 1309. Ответов 2 Метки нет (Все метки) Здравствуйте, делаем с другом авторизатор для чата. Отдельные модули писали в VC после чего я сделал интерфейс в Борланде и интегрировал все части. У меня работает все хорошо, ну относительной той части, что должно работать, а вот у друга сразу же возникают проблемы. 1)Для вывода текста используем CppWebBrowser у меня все работает отлично у друга при вызове функции Refresh() программа крашится. 2)Используем Сокеты для приема данных, как задержку я установил Sleep. Но поскольку он усыпляет основной поток, я создаю другой и он уже ловит сообщения. У меня по прежнему все хорошо, у друга, Слип действует на оба потока. Причем когда у него была предыдущая версия с неверным алгоритмом обработки строк Слип там действовал, как нужно, после того, как я переделал алгоритм, который никаким образом не относится к потокам и скинул новую версию другу, начался этот прикол со Слипом(только у него). Попробовал скинуть готовый проект при запуске пишет обращение к запрещенной памяти(я полагаю Refresh() в браузере) и программа ложится. Кто знает как с этим боротся, подскажите пожалуйста. 0

@TGrey[WoLf] 42 / 42 / 4 Регистрация: 14.09.2008 Сообщений: 683
	06.10.2009, 12:41 [ТС]
	Если кому понадобится, то решение вот в чем: Как оказалось, нельзя обращаться из потока к VCL объектам без синхронизации, поэтому мне посоветовали использовать поток TThread. Но поскольку в моей программе в потоке выполняется только обработка строк и она не связана с компонентами, то мне осталось только убрать тестовые выводы информации в компоненты на форме. Теперь все работает как нужно. 0