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

@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.
Но поскольку в моей программе в потоке выполняется только обработка строк и она не связана с компонентами, то мне осталось только убрать тестовые выводы информации в компоненты на форме. Теперь все работает как нужно.

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

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

	Странные проблемы(потоки, функции) 04.10.2009, 17:38. Показов 1320. Ответов 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