Splash форма

@JoniRich · Регистрация: 07.02.2016

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

Проблема со формой в XE, она то зависает то не выдает значения в СтатикТекст
вроде код верный вот :

C++
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
_fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
   
    StatInfo = new TStringList;
}
 
void __fastcall TForm1::AppLoaded(TObject *Sender)
{
    IsApploading = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 
    IsApploading = true;
    TLoadApp *thr = new TLoadApp(true);
    
    thr->InfoField = SplashForm->StaticText1;
   
    thr->OnTerminate = AppLoaded;
    thr->FreeOnTerminate = true;
 
    thr->Start(); 
 
    while(IsApploading)
    {
        Application->HandleMessage();
    }
 
 
    Memo1->Lines->AddStrings(StatInfo);
}
//---------------------------------------------------------------------------

и вот:

C++
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
WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    try
    {
         SplashForm = new TSplashForm(0);
         SplashForm->Show();
 
         Application->Initialize();
         Application->MainFormOnTaskBar = true;
         Application->CreateForm(__classid(TForm1), &Form1);
         if(SplashForm)
         {
            SplashForm->CanCloseSplash = true;
         }
 
         Application->Run();
    }
    catch (Exception &exception)
    {
         Application->ShowException(&exception);
    }
    catch (...)
    {
         try
         {
             throw Exception("");
         }
         catch (Exception &exception)
         {
             Application->ShowException(&exception);
         }
    }
    return 0;
}

Добавлено через 58 минут
еще выдает ошибку CPU 006939DF 8B19 mov ebx,[ecx]

@nick42 · 27.03.2016, 00:29

Может мои сомнения "не с той оперы", но как-то встречалось предупреждение от авторов Builder'а (про XE не скажу...), что использовать FormCreate и одновременно с этим "конструктор" ( это, как я понимаю, то, что следует после _fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {... ) - чревато. Нужно что-то одно. У вас в "конструкторе создается стринглист, а в FormCreate вы его применяете.

@JoniRich · 27.03.2016, 01:18 **[ТС]**

да сейчас уже нормально запускается, точнее при компиляции то запускается то нет, я ворчу на XE)))
у меня теперь гораздо глобальнее проблема возникла с таймером и графом, таймер отключаю нет ошибки, подключаю компелируеться все, но не запускается ругается на cpu
вот сие творенье:

C++
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
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
       nowtime = GetTickCount();
        pertime = nowtime - oldtime;
        curtime += pertime;
        oldtime = nowtime;
 
        /*read the usage*/
       func(SystemProcessorTimes,
              &CurrentSysProcTimes[0],
              sizeof(CurrentSysProcTimes),
              &rez);
 
        temp = 0;
        for(int j=0;j<MAX_PROCESSORS;j++)
        {
            temp += CurrentSysProcTimes[j].IdleTime - PreviousSysProcTimes[j].IdleTime;
        }
        temp /= 10000;  //переводим из наносекунд в миллисекунды
        temp /= (int) GetProcessorsCount(); //делим на количество ядер
 
        temp = (int) pertime - temp;
 
 
        if (cycle_count >= 1)
        {
        msg = "";
        msg += "Current time: " + String(curtime) + " milisecond(s). Processor usage on " + String(temp) + " milisecond.";
  //        Memo1->Lines->Add(msg);
 
 
        cpu_usage[count_mas] = temp / (float) pertime*100;
//      Edit4->Text = IntToStr(count_mas + 1);
 
        msg = "";
        msg += "Usage of processors is " + IntToStr(cpu_usage[count_mas]) + "%";
//      Memo1->Lines->Add(msg);
//      Memo1->Lines->Add("");
        Caption = msg;
        PerformanceGraph1->Scale += 1;
//      PerformanceGraph1->StepSize = 1;
 
        count_mas++;
        }
 
        cycle_count++;
//        Edit2->Text = IntToStr(cycle_count);
 
        memcpy(&PreviousSysProcTimes[0],
                &CurrentSysProcTimes[0],
                sizeof(PreviousSysProcTimes));
}

Добавлено через 30 минут
да вы отчасти правы проблема конфликта в том что там реализуеться Splash форма, я ее закомментировал и все работает, а теперь возникает такой вопрос как реализовать загрузку Splash форма не в FormCreate
вот код:

C++
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
76
77
78
79
80
81
82
83
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 /*    IsApploading = true;
    TLoadApp *thr = new TLoadApp(true);
    thr->InfoField = SplashForm->StaticText1;
    thr->OnTerminate = AppLoaded;
    thr->FreeOnTerminate = true;
 
    thr->Resume();
 
    while(IsApploading)
    {
        Application->HandleMessage();
    }
 
    // thread has finished
    Memo1->Lines->AddStrings(StatInfo);    */
 
    cpu_usage = new int[100000];
    count_mas = 0;
 
    ZeroMemory(&CurrentSysProcTimes[0], sizeof(CurrentSysProcTimes));
    ZeroMemory(&PreviousSysProcTimes[0], sizeof(PreviousSysProcTimes));
 
    lib = LoadLibrary (L"Ntdll.dll");
    func = (ZwQuerySystemInformation)GetProcAddress(lib,
        "ZwQuerySystemInformation");
 
    nowtime = GetTickCount();
    pertime = nowtime - oldtime;
    curtime += pertime;
    oldtime = nowtime;
 
    func(SystemProcessorTimes, &CurrentSysProcTimes[0],
        sizeof(CurrentSysProcTimes), &rez);
 
    temp = 0;
    for (int j = 0; j < MAX_PROCESSORS; j++) {
        temp += CurrentSysProcTimes[j].IdleTime -
            PreviousSysProcTimes[j].IdleTime;
 
    }
    temp /= 10000;
    temp /= (int) GetProcessorsCount();
 
    temp = (int) pertime - temp;
 
    if (cycle_count >= 1) {
 
        cpu_usage[count_mas] = temp / (float) pertime * 100;
    }
 
    msg = "";
    msg += ("Usage of processors is " + IntToStr(cpu_usage[count_mas]) + "%");
 
    count_mas++;
 
    cycle_count++;
 
    memcpy(&PreviousSysProcTimes[0], &CurrentSysProcTimes[0],
        sizeof(PreviousSysProcTimes));
 
    Label1->Caption =
        /* "?????????:"+ AnsiString (L"select Name from WIN32_processor") */ +
        "Колличество ядер : " + IntToStr(GetProcessorsCount()) +
        " | Тип процессора  : " + IntToStr(GetProcessorType(SYSINFO)) +
        " | OemId : " + IntToStr(GetProcessorOemId(SYSINFO));
    RichEdit2->ReadOnly = false;
    RichEdit2->Clear();
    Timer1->Enabled;
    Timer1->Interval = (1000);
 
    MEMORYSTATUSEX stats;
    stats.dwLength = sizeof(stats);
    GlobalMemoryStatusEx(&stats);
    __int64 a;
    a = stats.dwMemoryLoad;
    RichEdit2->Lines->Add(IntToStr(a) + " %");
 
    PerformanceGraph1->Scale += 0;
 
    Refresh();
}

@volvo · 27.03.2016, 12:18

JoniRich, мою подпись читал? Там есть ссылка, где я специально показал, как создаются Splash-формы. И загружаются они не в OnCreate основной формы ни разу.

@JoniRich · 27.03.2016, 15:16 **[ТС]**

вот из вашего исходника

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
    // Начинаем загрузку приложения
    IsApploading = true;
    TLoadApp *thr = new TLoadApp(true);
    // выводить информацию о ходе загрузки будем в этот StaticText
    thr->InfoField = SplashForm->StaticText1;
    // при завершении процесса загрузки выполним метод AppLoaded и автоматически
    // завершим поток
    thr->OnTerminate = AppLoaded;
    thr->FreeOnTerminate = true;
 
    thr->Start(); // "Поехали!"
 
    // А чтобы форма не распознавалась как "зависшая" - обрабатываем сообщения
    while(IsApploading)
    {
        Application->HandleMessage();
    }
 
    // Когда мы здесь - поток загрузки закончил работу
    // Показываем, чего "наработали"
    Memo1->Lines->AddStrings(StatInfo);
}

@volvo · 27.03.2016, 15:28

Ну, и где у меня создается сплеш-форма? Еще раньше MainForm, это так, на всякий случай. То, что в FormCreate с ней, уже полностью загруженной осуществляется работа - это понятно, создается-то она раньше...

В общем, показывай код, который не работает, и рассказывай, как он ДОЛЖЕН работать, проблему ты объяснить не можешь, нужно ее воспроизвести, чтобы понять, что и как. Куски кода можешь не постить, мне неинтересно восстанавливать полную картину. Есть код, который можно откомпилировать, запустить, увидеть проблему - будет ответ. Нет - так и ответа не будет.

@JoniRich · 27.03.2016, 15:46 **[ТС]**

Спасибо. вот полный код, существует внутренний конфликт ....

C++
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
#include <vcl.h>
#pragma hdrstop
 
#include "qxsysteminfo.h"
#include "Splash_form.h"
#include "Load_thread.h"
#include "Data_unit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "perfgrap"
#pragma resource "*.dfm"
#include  <comdef.h>
#include  <wbemidl.h>
TForm1 *Form1;
 
// ---------------------------------------------------------------------------
_fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
 
{
    // Создавать стркутуры модуля данных можно здесь, при создании формы
    StatInfo = new TStringList;
}
 
 
void __fastcall TForm1::AppLoaded(TObject *Sender)
  {
    IsApploading = false;
   }
void __fastcall TForm1::FormShow(TObject *Sender)
{
    IsApploading = true;
    TLoadApp *thr = new TLoadApp(true);
    thr->InfoField = SplashForm->StaticText1;
    thr->OnTerminate = AppLoaded;
    thr->FreeOnTerminate = true;
 
    thr->Resume();
 
    while(IsApploading)
    {
        Application->HandleMessage();
    }
 
    // thread has finished
    Memo1->Lines->AddStrings(StatInfo);
}
//---------------------------------------------------------------------------
 
 
//---------------------------------------------------------------------------
AnsiString fn = ""; //
 
 
void GetWmiInfo(TStrings *L, wchar_t* wsQuery) {
    HRESULT hres;
    hres = CoInitializeSecurity(NULL, -1, NULL, NULL, RPC_C_AUTHN_LEVEL_DEFAULT,
        RPC_C_IMP_LEVEL_IMPERSONATE, NULL, EOAC_NONE, NULL);
 
    IWbemLocator *pWbemLocator = NULL; // провайдер
    if (CoCreateInstance(CLSID_WbemAdministrativeLocator, NULL,
        CLSCTX_INPROC_SERVER | CLSCTX_LOCAL_SERVER, IID_IUnknown,
        (void**)&pWbemLocator) == S_OK) {
        IWbemServices *pWbemServices = NULL;
        wchar_t* wsNamespace = (L"ROOT\\CIMV2");
        if (pWbemLocator->ConnectServer(wsNamespace, NULL, NULL, NULL, 0, NULL,
            NULL, &pWbemServices) == S_OK) {
            if (CoSetProxyBlanket(pWbemServices, RPC_C_AUTHN_WINNT,
                RPC_C_AUTHZ_NONE, NULL, RPC_C_AUTHN_LEVEL_CALL,
                RPC_C_IMP_LEVEL_IMPERSONATE, NULL, EOAC_NONE) == S_OK) {
                IEnumWbemClassObject *pEnumClassObject = NULL;
                wchar_t* wsWQL = L"WQL";
                if (pWbemServices->ExecQuery(wsWQL, wsQuery,
                    WBEM_FLAG_RETURN_IMMEDIATELY, NULL, &pEnumClassObject)
                    == S_OK) {
                    IWbemClassObject *pClassObject = NULL;
                    ULONG uCount = 1, uReturned = 0;
                    if (pEnumClassObject->Reset() == S_OK) {
                        int iEnumIdx = 0;
                        hres = pEnumClassObject->Next(WBEM_INFINITE, uCount,
                            &pClassObject, &uReturned);
                        while (hres == S_OK) {
                            L->Add("[" + IntToStr(iEnumIdx) + "]");
                            SAFEARRAY *pvNames = NULL;
                            if (pClassObject->GetNames(NULL,
                                WBEM_FLAG_ALWAYS | WBEM_MASK_CONDITION_ORIGIN,
                                NULL, &pvNames) == S_OK) {
                                long vbl, vbu;
                                SafeArrayGetLBound(pvNames, 1, &vbl);
                                SafeArrayGetUBound(pvNames, 1, &vbu);
                                for (long idx = vbl; idx <= vbu; idx++) {
                                    long aidx = idx;
                                    wchar_t *wsName = 0;
                                    VARIANT vValue;
                                    VariantInit(&vValue);
                                    SafeArrayGetElement(pvNames, &aidx,
                                        &wsName);
                                    BSTR bs = SysAllocString(wsName);
                                    HRESULT hRes =
                                        pClassObject->Get(bs, 0, &vValue,
                                        NULL, 0);
                                    SysFreeString(bs);
                                    if (hRes == S_OK) {
                                        AnsiString s;
                                        Variant v = *(Variant*)&vValue;
                                        if (v.IsArray()) {
                                        for (int i = v.ArrayLowBound();
                                        i <= v.ArrayHighBound(); i++) {
                                        Variant a = v.GetElement(i);
                                        if (!s.IsEmpty())
                                        s += ", ";
                                        s += VarToStr(a);
                                        }
                                        }
                                        else {
                                        s = VarToStr(v);
                                        }
                                        L->Add(AnsiString(wsName) + "=" + s);
                                    }
                                    VariantClear(&vValue);
                                    SysFreeString(wsName);
                                }
                            }
                            if (pvNames)
                                SafeArrayDestroy(pvNames);
                            iEnumIdx++;
                            hres = pEnumClassObject->Next(WBEM_INFINITE, uCount,
                                &pClassObject, &uReturned);
                        } // WHILE
                        if (hres != S_OK)
                            L->Add((hres & 0xFFFF));
                    } // pEnumClassObject->Reset()
                    if (pClassObject)
                        pClassObject->Release();
                }
                if (pEnumClassObject)
                    pEnumClassObject->Release();
            }
        }
        if (pWbemServices)
            pWbemServices->Release();
    }
    if (pWbemLocator)
        pWbemLocator->Release();
}
 
// -------------информация о материнской плате-----------------------------
void __fastcall TForm1::SpeedButton2Click(TObject *Sender) {
    wchar_t* ss = L"select * from WIN32_BaseBoard";
    GetWmiInfo(Memo1->Lines, ss);
}
// --------------информация о процессоре------------------------------------
 
void __fastcall TForm1::SpeedButton3Click(TObject *Sender) {
    wchar_t* ss = L"select * from WIN32_processor";
    GetWmiInfo(Memo1->Lines, ss);
}
// ---------------------------------------------------------------------------
 
#define SystemProcessorTimes 8
#define MAX_PROCESSORS 32
// ---------------------------------------------------------------------------
// ---------------------------------------------------------------------------
// ----------------------СИСТЕМНЫЙ МОНИТОР------------------------------------
//---------------------------------------------------------------------------
 
typedef struct _SYSTEM_BASIC_INFORMATION
{
    ULONG Unknown,
    MaximumIncrement,
    PhysicalPageSize,
    NumberOfPhysicalPages,
    LowestPhysicalPage,
    HighestPhysicalPage,
    AllocationGranularity,
    LowestUserAddress,
    ProcessorName,
    HighestUserAddress,
    ActiveProcessors;
    char NumberProcessors;
}SYSTEM_BASIC_INFORMATION, *PSYSTEM_BASIC_INFORMATION;
 
typedef struct _SYSTEM_PROCESSOR_TIMES
{
    __int64 IdleTime,
    KernelTime,
    UserTime,
    DpcTime,
    InterruptTime;
    ULONG InterruptCount;
} SYSTEM_PROCESSORS_TIMES[MAX_PROCESSORS], SYSTEM_PROCESSOR_TIMES, *PSYSTEM_PROCESSOR_TIMES;
 
typedef UINT __stdcall (*ZwQuerySystemInformation)(DWORD,void*,DWORD,DWORD*);
 
SYSTEM_INFO SYSINFO;
int GetProcessorName(SYSTEM_INFO& SYSINFO)
{
GetSystemInfo(&SYSINFO);
//return //SYSINFO GetCentralProcessor;
}
int GetProcessorsCount(void)
{
  SYSTEM_INFO SYSINFO;
  GetSystemInfo(&SYSINFO);
  return SYSINFO.dwNumberOfProcessors;
}
int GetProcessorType(SYSTEM_INFO& SYSINFO)
{
GetSystemInfo(&SYSINFO);
return SYSINFO.dwProcessorType;
}
int GetProcessorOemId(SYSTEM_INFO& SYSINFO)
 {
GetSystemInfo(&SYSINFO);
return SYSINFO.dwOemId;
 }
 int * cpu_usage;
__int64 temp = 0;
 unsigned int cycle_count = 0,
             count_mas = 0,
             interval = 1000;
 
 
HMODULE lib = NULL;
DWORD nowtime, oldtime, pertime, rez, curtime = 0;
SYSTEM_PROCESSORS_TIMES CurrentSysProcTimes, PreviousSysProcTimes;
 
ZwQuerySystemInformation func;
AnsiString msg = "";
 
 
 
 
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 
 
    cpu_usage = new int[100000];
    count_mas = 0;
 
    ZeroMemory(&CurrentSysProcTimes[0], sizeof(CurrentSysProcTimes));
    ZeroMemory(&PreviousSysProcTimes[0], sizeof(PreviousSysProcTimes));
 
    lib = LoadLibrary (L"Ntdll.dll");
    func = (ZwQuerySystemInformation)GetProcAddress(lib,
        "ZwQuerySystemInformation");
 
    nowtime = GetTickCount();
    pertime = nowtime - oldtime;
    curtime += pertime;
    oldtime = nowtime;
 
    func(SystemProcessorTimes, &CurrentSysProcTimes[0],
        sizeof(CurrentSysProcTimes), &rez);
 
    temp = 0;
    for (int j = 0; j < MAX_PROCESSORS; j++) {
        temp += CurrentSysProcTimes[j].IdleTime -
            PreviousSysProcTimes[j].IdleTime;
 
    }
    temp /= 10000;
    temp /= (int) GetProcessorsCount();
 
    temp = (int) pertime - temp;
 
    if (cycle_count >= 1) {
 
        cpu_usage[count_mas] = temp / (float) pertime * 100;
    }
 
    msg = "";
    msg += ("Usage of processors is " + IntToStr(cpu_usage[count_mas]) + "%");
    Memo2->Lines->Add(msg);
    Memo2->Lines->Add("");
 
    count_mas++;
 
    cycle_count++;
 
    memcpy(&PreviousSysProcTimes[0], &CurrentSysProcTimes[0],
        sizeof(PreviousSysProcTimes));
        {
              //    wchar_t* ss = L"select Name from WIN32_processor";
    //GetWmiInfo("Процессор"+(Label1->Lines, ss);
        }
    Label1->Caption =
 
        "Процессор:" + AnsiString(GetProcessorName(SYSINFO))+
        "| Колличество ядер : " + IntToStr(GetProcessorsCount()) +
        " | Тип процессора  : " + IntToStr(GetProcessorType(SYSINFO)) +
        " | OemId : " + IntToStr(GetProcessorOemId(SYSINFO));
    RichEdit2->ReadOnly = false;
    RichEdit2->Clear();
    Timer1->Enabled;
    Timer1->Interval = (1000);
 
   //   PROCESSORSTATUSEX stats;
    //stats.dwLength = sizeof(stats);
   //   GlobalProcessorStatusEx(&stats);
    //__int64 a;
    //a = stats.dwMemoryLoad;
    //RichEdit1->Lines->Add(IntToStr(a) + " %");
 
    MEMORYSTATUSEX stats;
    stats.dwLength = sizeof(stats);
    GlobalMemoryStatusEx(&stats);
    __int64 a;
    a = stats.dwMemoryLoad;
    RichEdit2->Lines->Add(IntToStr(a) + " %");
 
    PerformanceGraph1->Scale += 0;
 
    Refresh();
 
 
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender) {
    nowtime = GetTickCount();
    pertime = nowtime - oldtime;
    curtime += pertime;
    oldtime = nowtime;
 
    /* read the usage */
    func(SystemProcessorTimes, &CurrentSysProcTimes[0],
        sizeof(CurrentSysProcTimes), &rez);
 
    temp = 0;
    for (int j = 0; j < MAX_PROCESSORS; j++) {
        temp += CurrentSysProcTimes[j].IdleTime -
            PreviousSysProcTimes[j].IdleTime;
    }
    temp /= 10000; // ????????? ?? ?????????? ? ????????????
    temp /= (int) GetProcessorsCount(); // ????? ?? ?????????? ????
 
    temp = (int) pertime - temp;
 
    if (cycle_count >= 1) {
        msg = "";
        msg += "Current time: " + String(curtime) +
            " milisecond(s). Processor usage on " + String(temp) +
            " milisecond.";
        // Memo1->Lines->Add(msg);
 
        cpu_usage[count_mas] = temp / (float) pertime * 100;
 
 
       msg = "";
        msg += "Usage of processors is: " + IntToStr(cpu_usage[count_mas]) + "%";
         Memo2->Lines->Add(msg);
         Memo2->Lines->Add("");
        Caption = msg;
        PerformanceGraph1->Scale += 1;
        // PerformanceGraph1->StepSize = 1;
 
        count_mas++;
    }
 
    cycle_count++;
    // Edit2->Text = IntToStr(cycle_count);
 
    memcpy(&PreviousSysProcTimes[0], &CurrentSysProcTimes[0],
        sizeof(PreviousSysProcTimes));
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::PerformanceGraph1ScaleChange(TObject *Sender) {
    PerformanceGraph1->DataPoint(clLime, cpu_usage[count_mas] + 1);
    PerformanceGraph1->Update();
}
 
 
 
 
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
 delete StatInfo;
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::FormActivate(TObject *Sender)
{
  IsApploading = true;
    TLoadApp *thr = new TLoadApp(true);
    thr->InfoField = SplashForm->StaticText1;
    thr->OnTerminate = AppLoaded;
    thr->FreeOnTerminate = true;
 
    thr->Resume();
 
    while(IsApploading)
    {
        Application->HandleMessage();
    }
 
    // thread has finished
    Memo1->Lines->AddStrings(StatInfo);
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Timer3Timer(TObject *Sender)
{
Label6->Caption=Time().FormatString("hh:mm:ss:zz");
Timer3->Interval=1;
}

@JoniRich · 27.03.2016, 19:47 **[ТС]**

вот что делает программа

@JoniRich · 27.03.2016, 22:04 **[ТС]**

еще вот такой вопрос как в данном коде прописать что бы отображалась модель процессора например ntel(R) Core(TM) i7-6700K CPU @ 4.00GHz, просто надо что б в одной строке все отображалось

C++
1
2
3
4
5
6
Label1->Caption =
 
        //"Процессор:"?????????+
        "| Колличество ядер : " + IntToStr(GetProcessorsCount()) +
        " | Тип процессора  : " + IntToStr(GetProcessorType(SYSINFO)) +
        " | OemId : " + IntToStr(GetProcessorOemId(SYSINFO));

Добавлено через 1 час 32 минуты
решил вопрос, может и криво но зато все работает

C++
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
#include <vcl.h>
#pragma hdrstop
 
#include "qxsysteminfo.h"
#include "Splash_form.h"
#include "Load_thread.h"
#include "Data_unit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "perfgrap"
#pragma resource "*.dfm"
#include  <comdef.h>
#include  <wbemidl.h>
TForm1 *Form1;
#define SystemProcessorTimes 8
#define MAX_PROCESSORS 32
// ---------------------------------------------------------------------------
// ----------------------СИСТЕМНЫЙ МОНИТОР------------------------------------
//---------------------------------------------------------------------------
 
typedef struct _SYSTEM_BASIC_INFORMATION
{
    ULONG Unknown,
    MaximumIncrement,
    PhysicalPageSize,
    NumberOfPhysicalPages,
    LowestPhysicalPage,
    HighestPhysicalPage,
    AllocationGranularity,
    LowestUserAddress,
    ProcessorName,
    HighestUserAddress,
    ActiveProcessors;
    char NumberProcessors;
}SYSTEM_BASIC_INFORMATION, *PSYSTEM_BASIC_INFORMATION;
 
typedef struct _SYSTEM_PROCESSOR_TIMES
{
    __int64 IdleTime,
    KernelTime,
    UserTime,
    DpcTime,
    InterruptTime;
    ULONG InterruptCount;
} SYSTEM_PROCESSORS_TIMES[MAX_PROCESSORS], SYSTEM_PROCESSOR_TIMES, *PSYSTEM_PROCESSOR_TIMES;
 
typedef UINT __stdcall (*ZwQuerySystemInformation)(DWORD,void*,DWORD,DWORD*);
 
SYSTEM_INFO SYSINFO;
int GetProcessorName(SYSTEM_INFO& SYSINFO)
{
GetSystemInfo(&SYSINFO);
//return //SYSINFO GetCentralProcessor;
}
int GetProcessorsCount(void)
{
  SYSTEM_INFO SYSINFO;
  GetSystemInfo(&SYSINFO);
  return SYSINFO.dwNumberOfProcessors;
}
int GetProcessorType(SYSTEM_INFO& SYSINFO)
{
GetSystemInfo(&SYSINFO);
return SYSINFO.dwProcessorType;
}
int GetProcessorOemId(SYSTEM_INFO& SYSINFO)
 {
GetSystemInfo(&SYSINFO);
return SYSINFO.dwOemId;
 }
 int * cpu_usage;
__int64 temp = 0;
 unsigned int cycle_count = 0,
             count_mas = 0,
             interval = 1000;
 
 
HMODULE lib = NULL;
DWORD nowtime, oldtime, pertime, rez, curtime = 0;
SYSTEM_PROCESSORS_TIMES CurrentSysProcTimes, PreviousSysProcTimes;
 
ZwQuerySystemInformation func;
AnsiString msg = "";
 
 
 
 
// ---------------------------------------------------------------------------
_fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
 
 
 
{
    // Создавать стркутуры модуля данных можно здесь, при создании формы
    StatInfo = new TStringList;
 
 
 
 
 
    cpu_usage = new int[100000];
    count_mas = 0;
    ZeroMemory(&CurrentSysProcTimes[0], sizeof(CurrentSysProcTimes));
    ZeroMemory(&PreviousSysProcTimes[0], sizeof(PreviousSysProcTimes));
 
    lib = LoadLibrary (L"Ntdll.dll");
    func = (ZwQuerySystemInformation)GetProcAddress(lib,
        "ZwQuerySystemInformation");
 
    nowtime = GetTickCount();
    pertime = nowtime - oldtime;
    curtime += pertime;
    oldtime = nowtime;
 
    func(SystemProcessorTimes, &CurrentSysProcTimes[0],
        sizeof(CurrentSysProcTimes), &rez);
 
    temp = 0;
 
    for (int j = 0; j < MAX_PROCESSORS; j++) {
        temp += CurrentSysProcTimes[j].IdleTime -
            PreviousSysProcTimes[j].IdleTime;
 
    }
    temp /= 10000;
    temp /= (int) GetProcessorsCount();
 
    temp = (int) pertime - temp;
 
    if (cycle_count >= 1) {
 
        cpu_usage[count_mas] = temp / (float) pertime * 100;
    }
 
    msg = "";
    msg += ("Usage of processors is " + IntToStr(cpu_usage[count_mas]) + "%");
    Memo2->Lines->Add(msg);
    Memo2->Lines->Add("");
 
    count_mas++;
 
    cycle_count++;
 
    memcpy(&PreviousSysProcTimes[0], &CurrentSysProcTimes[0],
        sizeof(PreviousSysProcTimes));
        {
              //    wchar_t* ss = L"select Name from WIN32_processor";
    //GetWmiInfo("Процессор"+(Label1->Lines, ss);
        }
 
    Label1->Caption =
 
        "Процессор:" + AnsiString(GetProcessorName(SYSINFO))+
        "| Колличество ядер : " + IntToStr(GetProcessorsCount()) +
        " | Тип процессора  : " + IntToStr(GetProcessorType(SYSINFO)) +
        " | OemId : " + IntToStr(GetProcessorOemId(SYSINFO));
    RichEdit2->ReadOnly = false;
    RichEdit2->Clear();
    Timer1->Enabled;
    Timer1->Interval = (1000);
 
    MEMORYSTATUSEX stats;
    stats.dwLength = sizeof(stats);
    GlobalMemoryStatusEx(&stats);
    __int64 a;
    a = stats.dwMemoryLoad;
    RichEdit2->Lines->Add(IntToStr(a) + " %");
 
    PerformanceGraph1->Scale += 0;
 
    Refresh();
  /*    for (int i = 0; i < a / 10; i++) {
        if ((a > 0) && (a <= 10)) {
            Canvas->Brush->Color = RGB(25.5 * i, 255 - 25.5 * i, 0);
            Canvas->Rectangle(20, 130 - 12*i, 50, 140 - 12*i);
        }
        if ((a > 10) && (a <= 20)) {
            Canvas->Brush->Color = RGB(25.5 * i, 255 - 25.5 * i, 0);
            Canvas->Rectangle(20, 130 - 12*i, 50, 140 - 12*i);
        }
        if ((a > 20) && (a <= 30)) {
            Canvas->Brush->Color = RGB(25.5 * i, 255 - 25.5 * i, 0);
            Canvas->Rectangle(20, 130 - 12*i, 50, 140 - 12*i);
        }
        if ((a > 30) && (a <= 40)) {
            Canvas->Brush->Color = RGB(25.5 * i, 255 - 25.5 * i, 0);
            Canvas->Rectangle(20, 130 - 12*i, 50, 140 - 12*i);
        }
        if ((a > 40) && (a <= 50)) {
            Canvas->Brush->Color = RGB(25.5 * i, 255 - 25.5 * i, 0);
            Canvas->Rectangle(20, 130 - 12*i, 50, 140 - 12*i);
        }
        if ((a > 50) && (a <= 60)) {
            Canvas->Brush->Color = RGB(25.5 * i, 255 - 25.5 * i, 0);
            Canvas->Rectangle(20, 130 - 12*i, 50, 140 - 12*i);
        }
        if ((a > 60) && (a <= 70)) {
            Canvas->Brush->Color = RGB(25.5 * i, 255 - 25.5 * i, 0);
            Canvas->Rectangle(20, 130 - 12*i, 50, 140 - 12*i);
        }
        if ((a > 70) && (a <= 80)) {
            Canvas->Brush->Color = RGB(25.5 * i, 255 - 25.5 * i, 0);
            Canvas->Rectangle(20, 130 - 12*i, 50, 140 - 12*i);
        }
        if ((a > 80) && (a <= 90)) {
            Canvas->Brush->Color = RGB(25.5 * i, 255 - 25.5 * i, 0);
            Canvas->Rectangle(20, 130 - 12*i, 50, 140 - 12*i);
        }
        if ((a > 90) && (a <= 100)) {
            Canvas->Brush->Color = RGB(25.5 * i, 255 - 25.5 * i, 0);
            Canvas->Rectangle(20, 130 - 12*i, 50, 140 - 12*i);
        }
  */
 }
 
//---------------------------------------------------------------------------
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender) {
    nowtime = GetTickCount();
    pertime = nowtime - oldtime;
    curtime += pertime;
    oldtime = nowtime;
 
    /* read the usage */
    func(SystemProcessorTimes, &CurrentSysProcTimes[0],
        sizeof(CurrentSysProcTimes), &rez);
 
    temp = 0;
    for (int j = 0; j < MAX_PROCESSORS; j++) {
        temp += CurrentSysProcTimes[j].IdleTime -
            PreviousSysProcTimes[j].IdleTime;
    }
    temp /= 10000; // ????????? ?? ?????????? ? ????????????
    temp /= (int) GetProcessorsCount(); // ????? ?? ?????????? ????
 
    temp = (int) pertime - temp;
 
    if (cycle_count >= 1) {
        msg = "";
        msg += "Current time: " + String(curtime) +
            " milisecond(s). Processor usage on " + String(temp) +
            " milisecond.";
        // Memo1->Lines->Add(msg);
 
        cpu_usage[count_mas] = temp / (float) pertime * 100;
 
 
       msg = "";
        msg += "Usage of processors is: " + IntToStr(cpu_usage[count_mas]) + "%";
         Memo2->Lines->Add(msg);
         Memo2->Lines->Add("");
        Caption = msg;
        PerformanceGraph1->Scale += 1;
        // PerformanceGraph1->StepSize = 1;
 
        count_mas++;
    }
 
    cycle_count++;
    // Edit2->Text = IntToStr(cycle_count);
 
    memcpy(&PreviousSysProcTimes[0], &CurrentSysProcTimes[0],
        sizeof(PreviousSysProcTimes));
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::PerformanceGraph1ScaleChange(TObject *Sender) {
    PerformanceGraph1->DataPoint(clLime, cpu_usage[count_mas] + 1);
    PerformanceGraph1->Update();
}
 
 
 
//---------------------------------------------------------------------------
 
 
 
 
 
void __fastcall TForm1::AppLoaded(TObject *Sender)
{
    IsApploading = false;
}
 
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    IsApploading = true;
    TLoadApp *thr = new TLoadApp(true);
    thr->InfoField = SplashForm->StaticText1;
    thr->OnTerminate = AppLoaded;
    thr->FreeOnTerminate = true;
 
    thr->Resume();
 
    while(IsApploading)
    {
        Application->HandleMessage();
    }
 
    // thread has finished
    Memo1->Lines->AddStrings(StatInfo);
 
}
 
 
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
 delete StatInfo;
}
//---------------------------------------------------------------------------
 
 
//---------------------------------------------------------------------------
AnsiString fn = ""; //
 
 
void GetWmiInfo(TStrings *L, wchar_t* wsQuery) {
    HRESULT hres;
    hres = CoInitializeSecurity(NULL, -1, NULL, NULL, RPC_C_AUTHN_LEVEL_DEFAULT,
        RPC_C_IMP_LEVEL_IMPERSONATE, NULL, EOAC_NONE, NULL);
 
    IWbemLocator *pWbemLocator = NULL; // провайдер
    if (CoCreateInstance(CLSID_WbemAdministrativeLocator, NULL,
        CLSCTX_INPROC_SERVER | CLSCTX_LOCAL_SERVER, IID_IUnknown,
        (void**)&pWbemLocator) == S_OK) {
        IWbemServices *pWbemServices = NULL;
        wchar_t* wsNamespace = (L"ROOT\\CIMV2");
        if (pWbemLocator->ConnectServer(wsNamespace, NULL, NULL, NULL, 0, NULL,
            NULL, &pWbemServices) == S_OK) {
            if (CoSetProxyBlanket(pWbemServices, RPC_C_AUTHN_WINNT,
                RPC_C_AUTHZ_NONE, NULL, RPC_C_AUTHN_LEVEL_CALL,
                RPC_C_IMP_LEVEL_IMPERSONATE, NULL, EOAC_NONE) == S_OK) {
                IEnumWbemClassObject *pEnumClassObject = NULL;
                wchar_t* wsWQL = L"WQL";
                if (pWbemServices->ExecQuery(wsWQL, wsQuery,
                    WBEM_FLAG_RETURN_IMMEDIATELY, NULL, &pEnumClassObject)
                    == S_OK) {
                    IWbemClassObject *pClassObject = NULL;
                    ULONG uCount = 1, uReturned = 0;
                    if (pEnumClassObject->Reset() == S_OK) {
                        int iEnumIdx = 0;
                        hres = pEnumClassObject->Next(WBEM_INFINITE, uCount,
                            &pClassObject, &uReturned);
                        while (hres == S_OK) {
                            L->Add("[" + IntToStr(iEnumIdx) + "]");
                            SAFEARRAY *pvNames = NULL;
                            if (pClassObject->GetNames(NULL,
                                WBEM_FLAG_ALWAYS | WBEM_MASK_CONDITION_ORIGIN,
                                NULL, &pvNames) == S_OK) {
                                long vbl, vbu;
                                SafeArrayGetLBound(pvNames, 1, &vbl);
                                SafeArrayGetUBound(pvNames, 1, &vbu);
                                for (long idx = vbl; idx <= vbu; idx++) {
                                    long aidx = idx;
                                    wchar_t *wsName = 0;
                                    VARIANT vValue;
                                    VariantInit(&vValue);
                                    SafeArrayGetElement(pvNames, &aidx,
                                        &wsName);
                                    BSTR bs = SysAllocString(wsName);
                                    HRESULT hRes =
                                        pClassObject->Get(bs, 0, &vValue,
                                        NULL, 0);
                                    SysFreeString(bs);
                                    if (hRes == S_OK) {
                                        AnsiString s;
                                        Variant v = *(Variant*)&vValue;
                                        if (v.IsArray()) {
                                        for (int i = v.ArrayLowBound();
                                        i <= v.ArrayHighBound(); i++) {
                                        Variant a = v.GetElement(i);
                                        if (!s.IsEmpty())
                                        s += ", ";
                                        s += VarToStr(a);
                                        }
                                        }
                                        else {
                                        s = VarToStr(v);
                                        }
                                        L->Add(AnsiString(wsName) + "=" + s);
                                    }
                                    VariantClear(&vValue);
                                    SysFreeString(wsName);
                                }
                            }
                            if (pvNames)
                                SafeArrayDestroy(pvNames);
                            iEnumIdx++;
                            hres = pEnumClassObject->Next(WBEM_INFINITE, uCount,
                                &pClassObject, &uReturned);
                        } // WHILE
                        if (hres != S_OK)
                            L->Add((hres & 0xFFFF));
                    } // pEnumClassObject->Reset()
                    if (pClassObject)
                        pClassObject->Release();
                }
                if (pEnumClassObject)
                    pEnumClassObject->Release();
            }
        }
        if (pWbemServices)
            pWbemServices->Release();
    }
    if (pWbemLocator)
        pWbemLocator->Release();
}
 
// -------------информация о материнской плате-----------------------------
void __fastcall TForm1::SpeedButton2Click(TObject *Sender) {
    wchar_t* ss = L"select * from WIN32_BaseBoard";
    GetWmiInfo(Memo1->Lines, ss);
}
// --------------информация о процессоре------------------------------------
 
void __fastcall TForm1::SpeedButton3Click(TObject *Sender) {
    wchar_t* ss = L"select * from WIN32_processor";
    GetWmiInfo(Memo1->Lines, ss);
}
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer3Timer(TObject *Sender)
{
Label6->Caption=Time().FormatString("hh:mm:ss:zz");
Timer3->Interval=1;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Label7Click(TObject *Sender)
{
UnicodeString URL=L"http://cpp.qx-systems.com";
ShellExecuteW(Handle, L"open", URL.w_str(), NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------

@volvo · 28.03.2016, 10:13

Сообщение от JoniRich

вот полный код

Это был НЕ полный код, поэтому ответа на вопрос ты не получил, и сделал криво. Я же просил прикрепить проект. Я что, должен был телепатировать, как был изменен Project1.cpp? У меня есть более интересные занятия. Прикрепил бы то, что просили - было бы более корректное решение. А так - ждем очередных вопросов "ААААААА!!!! Оно у меня только что работало и тут бац, и перестало/зависло/отображает информацию рывками/не показывает прогресс, а только начальное значение и потом сразу конечное"

@gunslinger · 28.03.2016, 12:02

Не по теме:

Набросал для индикации того, что что-то происходит, небольшой код.

C++
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
void TForm1::star (TImage *Image, TPoint center, int outer_radius, int inner_radius, int beam_count, TColor fill_color, TColor outline_color)
{
  // center - центр фигуры
  // outer_radius и inner_radius - внешний и внутр. радиусы
  // beam_count - кол-во лучей
  // fill_color и outline_color - цвет заливки (закраски) и контура
 
  // обновляем изображение
  Image->Canvas->FillRect(Image->Canvas->ClipRect);
 
  // цвет контура
  Image->Canvas->Pen->Color = outline_color;
 
  // переходим в "начальную точку" звезды
  Image->Canvas->MoveTo(center.x+sin(0)*outer_radius, center.y-cos(0)*outer_radius);
 
  // рисуем лучи
  Image->Canvas->Pen->Width = 2;
  for (int i = 1; i <= beam_count; i++)
  {
    Image->Canvas->LineTo(center.x+sin((i*2-1)*M_PI/beam_count)*inner_radius, center.y-cos((i*2-1)*M_PI/beam_count)*inner_radius);
    Image->Canvas->LineTo(center.x+sin(i*2*M_PI/beam_count)*outer_radius+1, center.y-cos(i*2*M_PI/beam_count)*outer_radius-1);
  }
 
  // закрашиваем фигуру
  Image->Canvas->Brush->Color = fill_color;
  Image->Canvas->FloodFill(center.x, center.y, Canvas->Pixels[center.x][center.y], fsSurface);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TimerTimer(TObject *Sender)
{
  Timer->Interval = 20;
  static int j = 0;
  j++;
  int outer_radius = 135, inner_radius = 85, beam_count = 30;
  TColor fill_color = clBlack, outline_color = clGray;
  star(Image, TPoint(Image->Width / 2, Image->Height / 2), outer_radius, inner_radius, beam_count, fill_color, outline_color);
  j %= beam_count;
  Image->Canvas->Pen->Color = clRed;
  Image->Canvas->Pen->Width = 4;
  for (int i = j; i < j+1; i++)
  {
    Image->Canvas->MoveTo(Image->Width/2+sin((i*2-1)*M_PI/beam_count)*inner_radius, Image->Height/2-cos((i*2-1)*M_PI/beam_count)*inner_radius);
    Image->Canvas->LineTo(Image->Width/2+sin((i*2-0)*M_PI/beam_count)*outer_radius+1, Image->Height/2-cos((i*2-0)*M_PI/beam_count)*outer_radius-1);
    Image->Canvas->LineTo(Image->Width/2+sin((i*2+1)*M_PI/beam_count)*inner_radius, Image->Height/2-cos((i*2+1)*M_PI/beam_count)*inner_radius);
  }
}

@JoniRich · 29.03.2016, 01:43 **[ТС]**

Спасибо. да интересная индикация, по поводу кода следующие разы буду архивом крепить проект, это я понял.

Добавлено через 4 часа 21 минуту
volvo, у меня просто есть коммерческие проекты и исходники публично не могу выкладывать, а как вам в личку это посылать не знаю.

Добавлено через 1 час 39 минут
volvo, Как Вам приватно можно переслать проект?

Добавлено через 4 минуты
volvo, Я работаю в сфере инженерного программирования, пишу постпроцессоры и управляющие программы для станков с ЧПУ, а сейчас пробую себя в новом амплуа - разработка прикладных программ, это для меня не совсем новое в начале 2000-х пытался еще на Си что-то делать, но работы было много, сейчас на инвалидности и работаю дома, есть много времени что б заниматься еще собственными проектами совершенствуясь в С++....

Добавлено через 28 минут
gunslinger, а того что происходит, это вымысле системных процессов ? а не подскажите как сделать индикацию в столбик как зарядка батареи?

@gunslinger · 29.03.2016, 11:24

Ничего не происходит, простая "анимация".
Про "индикацию в столбик" и не только: Краткое руководство по работе с классом TCanvas для начинающих.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	27.03.2016, 00:29
	Может мои сомнения "не с той оперы", но как-то встречалось предупреждение от авторов Builder'а (про XE не скажу...), что использовать FormCreate и одновременно с этим "конструктор" ( это, как я понимаю, то, что следует после _fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {... ) - чревато. Нужно что-то одно. У вас в "конструкторе создается стринглист, а в FormCreate вы его применяете. 0

@volvo Супер-модератор 33372 / 21498 / 8234 Регистрация: 22.10.2011 Сообщений: 36,893 Записей в блоге: 12
	27.03.2016, 12:18
	JoniRich, мою подпись читал? Там есть ссылка, где я специально показал, как создаются Splash-формы. И загружаются они не в OnCreate основной формы ни разу. 0

@volvo Супер-модератор 33372 / 21498 / 8234 Регистрация: 22.10.2011 Сообщений: 36,893 Записей в блоге: 12
	27.03.2016, 15:28
	Ну, и где у меня `создается` сплеш-форма? Еще раньше MainForm, это так, на всякий случай. То, что в FormCreate с ней, уже полностью загруженной осуществляется работа - это понятно, создается-то она раньше... В общем, показывай код, который не работает, и рассказывай, как он ДОЛЖЕН работать, проблему ты объяснить не можешь, нужно ее воспроизвести, чтобы понять, что и как. Куски кода можешь не постить, мне неинтересно восстанавливать полную картину. Есть код, который можно откомпилировать, запустить, увидеть проблему - будет ответ. Нет - так и ответа не будет. 0

@JoniRich 0 / 0 / 0 Регистрация: 07.02.2016 Сообщений: 30
	27.03.2016, 19:47 [ТС]
	вот что делает программа Миниатюры 0

@JoniRich 0 / 0 / 0 Регистрация: 07.02.2016 Сообщений: 30
	29.03.2016, 01:43 [ТС]
	Спасибо. да интересная индикация, по поводу кода следующие разы буду архивом крепить проект, это я понял. Добавлено через 4 часа 21 минуту volvo, у меня просто есть коммерческие проекты и исходники публично не могу выкладывать, а как вам в личку это посылать не знаю. Добавлено через 1 час 39 минут volvo, Как Вам приватно можно переслать проект? Добавлено через 4 минуты volvo, Я работаю в сфере инженерного программирования, пишу постпроцессоры и управляющие программы для станков с ЧПУ, а сейчас пробую себя в новом амплуа - разработка прикладных программ, это для меня не совсем новое в начале 2000-х пытался еще на Си что-то делать, но работы было много, сейчас на инвалидности и работаю дома, есть много времени что б заниматься еще собственными проектами совершенствуясь в С++.... Добавлено через 28 минут gunslinger, а того что происходит, это вымысле системных процессов ? а не подскажите как сделать индикацию в столбик как зарядка батареи? 0

@gunslinger place status here 3186 / 2220 / 640 Регистрация: 20.07.2013 Сообщений: 6,013
	29.03.2016, 11:24
	Ничего не происходит, простая "анимация". Про "индикацию в столбик" и не только: Краткое руководство по работе с классом TCanvas для начинающих. 0