Проблемы с PerformanceGraph в Borland C++

[Iong]

У меня возникла проблема, я делаю вот так:
Form1->PerformanceGraph1->DataPoint(clWhite,15);
Form1->PerformanceGraph1->Update();
Sleep(100);
Ну это все естественно в потоке либо просто в функции делаю, без разницы и так и так пробовал, короче проблема в том что после нескольких секунд(каждый раз разный промежуток времени) PerformanceGraph подвисает и висит-висит. Слееп пробовал по разному ставить. Помогите пожалуйста. Срочно надо.

[mrChester]

проблема в самой функции Sleep(), она сильно грузит систему, если действия происходят в цикле, тогда точно из-за нее

[Iong]

Да, и еще когда закрываешь программу, то выдает ошибку:
Project ....\имя проекта.exe faulted with message: 'access violation at 0x5060b7f4: read of address 0x000001f0'. Process Stopped. Use step or run to continue.
На всякий случай код программы всей:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "PERFGRAP"
#pragma resource "*.dfm"
TForm1 *Form1;
HANDLE hRead,th;
LONG ch;
DWORD razm=1;
DWORD dwBytesWritten = 0;

DWORD CALLBACK Zap1(void *q)
{
 while(TRUE)    
{
/*ReadFile(hRead,&ch,razm,&dwBytesWritten,NULL);
Form1->Memo1->Lines->Add(ch) ;
Form1->PerformanceGraph1->DataPoint(clWhite,ch);
Form1->PerformanceGraph1->Update();
Sleep(500);            */
Form1->PerformanceGraph1->DataPoint(clWhite,15);
Form1->PerformanceGraph1->Update();
Form1->PerformanceGraph1->Refresh();
Sleep(100);
}
}


//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
CloseHandle(th);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
hRead=GetStdHandle(STD_INPUT_HANDLE);
th=CreateThread(NULL,0,Zap1,NULL,0,NULL);        
}
//---------------------------------------------------------------------------

хех. попробовал через компонент таймер. не виснет. и что теперь только так по нубски делать через таймер, это совсен не круто. может еще какой выход есть?

[NiCola999]

почему по нубски? таймер это новый поток, а Sleep тормозит текущий поток

[Iong]

Спасибо за помощь. А то я весь интернет перегуглил, и ничего не нашел.)

Блин. Как только программу какую то запускаю в системе, так моя программа подвисает сразу и висит.

[mrChester]

WaitForSingleObject(NULL,time); вот еще одна функция задержки экрана, попробуй ее, хотя тормоза связанные с запуском других программ уже не от задержки экрана...

[Iong]

Не помогает, паузы нет. вот текст программы:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "PERFGRAP"
#pragma resource "*.dfm"
TForm1 *Form1;
HANDLE hRead,th;
int ch;
DWORD razm=1;
DWORD dwBytesWritten = 0;

DWORD CALLBACK priem(void *q)
{
 while(TRUE)
{
ReadFile(hRead,&ch,razm,&dwBytesWritten,NULL);
Form1->Edit1->Text=ch;
Form1->PerformanceGraph1->DataPoint(clWhite,ch);
Form1->PerformanceGraph1->Update();
WaitForSingleObject(NULL,150);
}

}

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm1::FormCreate(TObject *Sender)
{
hRead=GetStdHandle(STD_INPUT_HANDLE);
th=CreateThread(NULL,0,priem,NULL,0,NULL);
}
//---------------------------------------------------------------------------


void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
CloseHandle(th);        
}
//---------------------------------------------------------------------------

вообще без слипа она пролетает определенное количество циклов и виснет. Может там переполнение в этом performancegraph буфера какого ни будь.

[mrChester]

Скинь весь проект, не поленюсь сегодня вечером посмотрю...

[Iong]

ну это код второй программы которая читает из анономного канала данные. можно чтение просто в коммент поставить а строки можно так сделать, все равно висит:

Form1->PerformanceGraph1->DataPoint(clWhite,152);
Form1->PerformanceGraph1->Update();

короче стабильно не работает.

Помогите, что за глюки то с этим графиком.

[Виталий Серов]

Попробовал откомпилировать ваш код, график действительно завис в отладчике вылезло Access Vialation, после беглого просмотра ассемблерного кода выяснилось, что через eax в функцию DataPoint должен был поступить некий не нулевой параметр, который потом используется для адресации памяти. Насколько я знаю у Delphi через eax передается указатель Self (или Sender или ещё как, короче это как то связано с объектом вызвавшим функцию). Значит в определенный момент времени (заранее не известный) указатель на PerformanceGraph1 становиться недоступным, вместо него передается нулевое значение и график зависает...
Отсюда вывод:
Виснет скорее всего из за того, что поток сделан через API ф-ю, а надо создавать Thread Object. Если хотите делать через API, то можно в потоке отсылать окну сообщения и в обработчике этих сообщений рисовать новые точки на графике...
А вообще самый рульный(простой) способ - таймер...

EDIT..........................
Виснет и в Thread Object, значит был не прав...