Nachodzenie na siebie zdarzeń

[Corvis]

WItam,

Mam taką funkcję:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TFrmMain::GetHotKey(TMessage &Msg) {


        if(wykresy->GetTrybOnlineAktywny()) {
                if(Msg.WParam == id1 && wykresy->PobierzWykresDlaOnline(1) != -1) {             // Dane 1

                        DanaOnline = CzytajPlik(pFile1);
                        DataOnline = Date().CurrentDateTime();
                        wykresy->DodajDaneOnline(DataOnline, DanaOnline, 1); // Dodawanie danych i przeliczanie danych

                        asgridOnline->Cells[2][1] = DataOnline.DateTimeString();
                        asgridOnline->Cells[3][1] = DanaOnline;
                }
        }

        HotKey(Msg);
}
 

Funkcja służy do pobierania danych z pliku na podstawie HOT_KEY-a. Wszystko działa super dopóki dane nie zaczynają przychodzić co 100 [ms]. Zaczyna się to wszystko kolejkować. Dzieje się tak dlatego, że przeliczenie danych może trwać dłużej niż czas przyjścia kolejnej danej.

Próbowałem to zabezpieczyć tak:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TFrmMain::GetHotKey(TMessage &Msg) {

        if(wykresy->GetTrybOnlineAktywny()) {
                if(Msg.WParam == id1 && wykresy->PobierzWykresDlaOnline(1) != -1) {

                        if(FlagaOnline) { goto KONIEC; }
                        FlagaOnline = true;

                        DanaOnline = CzytajPlik(pFile1);
                        DataOnline = Date().CurrentDateTime();
                        wykresy->DodajDaneOnline(DataOnline, DanaOnline, 1);

                        asgridOnline->Cells[2][1] = DataOnline.DateTimeString();
                        asgridOnline->Cells[3][1] = DanaOnline;

                        FlagaOnline = false;

                }
        }

        KONIEC:

        HotKey(Msg);
}
 

Ale to nie działa jak trzeba ( trochę dziwne, bo w przypadku timera i zabezpieczenie żeby kolejne takty zegara nie nachodziły na siebie - działa dobrze ).

Chciałbym zabezpieczyć to tak ( nawet kosztem utraty niektórych danych ) żebym nie mógł dodać kolejnej danej dopóki nie skończę obliczeń w funkcji DodajDaneOnline

Ps. Proszę się nie czepiać etykiety Używam bo pisząc czasem coś na procesor ( tam to jest podstawowa instrukcja ) coś tam zostaje w nawykach

Z góry dzięki za pomoc.

Pozdrawiam,

[Cyfrowy Baron]

Ja tu nie widzę żadnego HOT KEY'a, a jedynie funkcję odbierającą wszystkie komunikaty. Komunikaty są kolejkowane i nie zmienisz tego. Za mało wiadomo o tym programie, by cokolwiek więcej poradzić. Timer ma to do siebie, że niczego nie kolejkuje, aktywność aplikacji wpływa na jego szybkość działania, gdy aplikacja jest zajęta, to Timer jest wstrzymywany. Skoro działa dobrze z Timerem, to posłuż się nim, bo nasłuchiwanie wszystkich komunikatów jest raczej kiepskim pomysłem.

Po co ci tam to goto skoro możesz tak:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

if( FlagaOnline ) { HotKey(Msg); return; }

[Corvis]

Ja tu nie widzę żadnego HOT KEY'a

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

id1 = GlobalAddAtom(L"hkey1");
RegisterHotKey(Handle, id1, MOD_CONTROL, VK_F11);    
 

Tak to wygląda. Sposób obsługi hotkey-ów znalazłem tutaj na forum.

Program to ten sam co mielę go od 2 lat Dane lecą z metatrader-a i jak się nowe pojawią trader wyrzuca hotkey-a, ja go przechwytuję i odczytuję danę z pliku która przyszła.

Ps. Baronie jest jakiś sposób "łapania" gorących klawiszy przy użyciu ttimera albo wątku ??

[polymorphism]

(...) jest jakiś sposób "łapania" gorących klawiszy przy użyciu ttimera albo wątku ??

Stwórz wątek, zarejestruj w nim hotkeya (zamiast uchwytu okna daj NULLa), zdefiniuj (w nim) pętlę komunikatów, taką samą jak w WinMain dla okienek.

[Cyfrowy Baron]

Wątek raczej nie rozwiąże problemów z kolejkowaniem wiadomości, bo jak...? Ja bym raczej pozostał przy tym co jest i pomijał komunikaty, może to zadziała:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

bool bGetMes = true;

void __fastcall TFrmMain::GetHotKey(TMessage &Msg)
{
 if( !bGetMes ) { return; }                  

        if(wykresy->GetTrybOnlineAktywny())
        {
                if(Msg.WParam == id1 && wykresy->PobierzWykresDlaOnline(1) != -1) {             // Dane 1

                    bGetMes = false;
                    Application->ProcessMessages(); // może bez tego

                        DanaOnline = CzytajPlik(pFile1);
                        DataOnline = Date().CurrentDateTime();
                        wykresy->DodajDaneOnline(DataOnline, DanaOnline, 1); // Dodawanie danych i przeliczanie danych

                        asgridOnline->Cells[2][1] = DataOnline.DateTimeString();
                        asgridOnline->Cells[3][1] = DanaOnline;

                 bGetMes = true;
                }
        }

        HotKey(Msg);
}

[Corvis]

Dzięki,

Dziś sprawdzę jak to działa i dam znać

[Corvis]

Baronie - działa jedynie dobrze jak jest użyte:

Application->ProcessMessages();

Ale to mi wystarczy jak na razie

[Cyfrowy Baron]

działa jedynie dobrze jak jest użyte:

Tak mi się właśnie wydawało, że trzeba odświeżyć kolejkę komunikatów.