СЃ-plus-plusification

git-svn-id: http://svn.miranda-ng.org/main/trunk@3671 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 756 insertions, 0 deletions

diff --git a/plugins/TrafficCounter/src/statistics.cpp b/plugins/TrafficCounter/src/statistics.cpp
new file mode 100644
index 0000000000..859ecb40a9
--- /dev/null
+++ b/plugins/TrafficCounter/src/statistics.cpp
@@ -0,0 +1,756 @@
+/*

+Traffic Counter plugin for Miranda IM 

+Copyright 2007-2011 Mironych.

+

+This program is free software; you can redistribute it and/or

+modify it under the terms of the GNU General Public License

+as published by the Free Software Foundation; either version 2

+of the License, or (at your option) any later version.

+

+This program is distributed in the hope that it will be useful,

+but WITHOUT ANY WARRANTY; without even the implied warranty of

+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

+GNU General Public License for more details.

+

+You should have received a copy of the GNU General Public License

+along with this program; if not, write to the Free Software

+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

+*/

+/* ======================================================================================

+Здесь содержатся переменные и функции для работы со статистикой

+Автор: Mironych

+=======================================================================================*/

+

+#include "commonheaders.h"

+#include <math.h>

+

+extern HWND TrafficHwnd;

+extern PROTOLIST *ProtoList;

+extern uTCFLAGS unOptions;

+WORD Stat_SelAcc; // Выбранные аккаунты в окне статистики

+

+HWND hListAccs;

+

+INT_PTR CALLBACK DlgProcOptStatistics(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam)

+{

+	WORD i;

+	

+	switch (msg)

+	{

+		case WM_INITDIALOG:

+			TranslateDialogDefault(hwndDlg);

+			// Создаём ListBox c перечнем аккаунтов.

+			hListAccs = CreateWindowEx(WS_EX_CLIENTEDGE,

+								_T("ListBox"),

+								NULL, WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_TABSTOP | LBS_SORT | LBS_NOINTEGRALHEIGHT | LBS_EXTENDEDSEL | LBS_NOTIFY,

+								2, 20, 246, 112,

+								hwndDlg, NULL, NULL, NULL);

+			SendMessage(hListAccs, WM_SETFONT, (WPARAM)(HFONT)GetStockObject(DEFAULT_GUI_FONT), 0);

+			for (i = NumberOfAccounts; i--; )

+			{

+				// Готовим список аккаунтов

+				if (ProtoList[i].tszAccountName)

+					SendMessage(hListAccs, LB_ADDSTRING, 0, (LPARAM)ProtoList[i].tszAccountName);

+			}

+			for (i = NumberOfAccounts; i--; )

+				SendMessage(hListAccs, LB_SETSEL, (WPARAM)0x01&(Stat_SelAcc>>i), (LPARAM)i);

+			// Готовим список единиц измерения

+			SendDlgItemMessage(hwndDlg, IDC_COMBO_UNITS, CB_INSERTSTRING, -1, (LPARAM)TranslateT("Bytes"));

+			SendDlgItemMessage(hwndDlg, IDC_COMBO_UNITS, CB_INSERTSTRING, -1, (LPARAM)TranslateT("KB"));

+			SendDlgItemMessage(hwndDlg, IDC_COMBO_UNITS, CB_INSERTSTRING, -1, (LPARAM)TranslateT("MB"));

+			SendDlgItemMessage(hwndDlg, IDC_COMBO_UNITS, CB_INSERTSTRING, -1, (LPARAM)TranslateT("Adaptive"));

+			SendDlgItemMessage(hwndDlg, IDC_COMBO_UNITS, CB_SETCURSEL, unOptions.Stat_Units, 0);

+			// Готовим закладки

+			{

+				TCITEM tci;

+				tci.mask = TCIF_TEXT;

+				tci.cchTextMax = 32;

+				tci.pszText = TranslateT("Hourly");

+				SendDlgItemMessage(hwndDlg, IDC_TAB_STATS, TCM_INSERTITEM, 0, (LPARAM)&tci);

+				tci.pszText = TranslateT("Daily");

+				SendDlgItemMessage(hwndDlg, IDC_TAB_STATS, TCM_INSERTITEM, 1, (LPARAM)&tci);

+				tci.pszText = TranslateT("Weekly");

+				SendDlgItemMessage(hwndDlg, IDC_TAB_STATS, TCM_INSERTITEM, 2, (LPARAM)&tci);

+				tci.pszText = TranslateT("Monthly");

+				SendDlgItemMessage(hwndDlg, IDC_TAB_STATS, TCM_INSERTITEM, 3, (LPARAM)&tci);

+				tci.pszText = TranslateT("Yearly");

+				SendDlgItemMessage(hwndDlg, IDC_TAB_STATS, TCM_INSERTITEM, 4, (LPARAM)&tci);

+				SendDlgItemMessage(hwndDlg, IDC_TAB_STATS, TCM_SETCURSEL, unOptions.Stat_Tab, 0);

+			}

+			// Готовим ListView - колонки и стили

+			{

+				LVCOLUMN lvc ={0};

+

+				SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_SETEXTENDEDLISTVIEWSTYLE, 0,	LVS_EX_FULLROWSELECT);

+#ifdef UNICODE

+				SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_SETUNICODEFORMAT, 1, 0);

+#else

+				SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_SETUNICODEFORMAT, 0, 0);

+#endif

+

+				lvc.mask = LVCF_FMT | LVCF_WIDTH | LVCF_TEXT | LVCF_SUBITEM;

+				lvc.fmt = LVCFMT_LEFT;

+				lvc.cchTextMax = 32;

+				lvc.pszText = TranslateT("Period");

+				lvc.cx = 135;

+				lvc.iSubItem = 0;

+				SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_INSERTCOLUMN, 0, (LPARAM)&lvc);

+				lvc.fmt = LVCFMT_RIGHT;

+				lvc.pszText = TranslateT("Incoming");

+				lvc.iSubItem = 1;

+				lvc.cx = 72;

+				SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_INSERTCOLUMN, 1, (LPARAM)&lvc);

+				lvc.pszText = TranslateT("Outgoing");

+				lvc.iSubItem = 2;

+				lvc.cx = 72;

+				SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_INSERTCOLUMN, 2, (LPARAM)&lvc);

+				lvc.pszText = TranslateT("Sum");

+				lvc.iSubItem = 3;

+				lvc.cx = 72;

+				SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_INSERTCOLUMN, 3, (LPARAM)&lvc);

+				lvc.pszText = TranslateT("Online");

+				lvc.iSubItem = 4;

+				lvc.cx = 72;

+				SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_INSERTCOLUMN, 4, (LPARAM)&lvc);

+			}

+			Stat_Show(hwndDlg);

+			break; // WM_INITDIALOG

+		case WM_COMMAND:

+			if ((HWND)lParam == hListAccs)

+			{

+				DWORD SelItems[16];

+				BYTE SelItemsCount;

+				if (HIWORD(wParam) == LBN_SELCHANGE)

+				{

+					SelItemsCount = SendMessage(hListAccs, LB_GETSELCOUNT, 0, 0);

+					SendMessage(hListAccs,

+						LB_GETSELITEMS,

+						SelItemsCount,

+						(LPARAM)SelItems);

+					for (Stat_SelAcc = i = 0; i < SelItemsCount; i++)

+						Stat_SelAcc |= 1 << SelItems[i];

+					Stat_Show(hwndDlg);	

+				}

+			}

+			switch (LOWORD(wParam))

+			{

+				case IDC_COMBO_UNITS:

+					if (HIWORD(wParam) != CBN_SELCHANGE) break;

+					unOptions.Stat_Units = SendDlgItemMessage(hwndDlg, IDC_COMBO_UNITS, CB_GETCURSEL, 0, 0);

+					Stat_Show(hwndDlg);

+					break;

+				case IDC_BUTTON_CLEAR:

+					{

+						SYSTEMTIME stNow;

+

+						if (IDOK != MessageBox(hwndDlg,

+												TranslateT("Now traffic statistics for selected accounts will be cleared.\nContinue?"),

+												TranslateT("Traffic counter"),

+												MB_OKCANCEL | MB_ICONWARNING))

+							break;

+						GetLocalTime(&stNow);

+						for (i = NumberOfAccounts; i--;)

+							if (0x01&(Stat_SelAcc>>i))

+							{

+								SetFilePointer(ProtoList[i].hFile, sizeof(HOURLYSTATS), NULL, FILE_BEGIN);

+								SetEndOfFile(ProtoList[i].hFile); // Усекаем файл до одной записи.

+								ProtoList[i].NumberOfRecords = 1;

+								ProtoList[i].AllStatistics = (HOURLYSTATS*)mir_realloc(ProtoList[i].AllStatistics, sizeof(HOURLYSTATS));

+								ProtoList[i].AllStatistics[0].Hour = stNow.wHour;

+								ProtoList[i].AllStatistics[0].Day = stNow.wDay;

+								ProtoList[i].AllStatistics[0].Month = stNow.wMonth;

+								ProtoList[i].AllStatistics[0].Year = stNow.wYear;

+								ProtoList[i].AllStatistics[0].Incoming = 0;

+								ProtoList[i].AllStatistics[0].Outgoing = 0;

+								ProtoList[i].StartIncoming = 0;

+								ProtoList[i].StartOutgoing = 0;

+								ProtoList[i].AllStatistics[0].Time = 0;

+								ProtoList[i].Total.TimeAtStart = GetTickCount();

+								Stat_CheckStatistics(i);

+							}

+						Stat_Show(hwndDlg);

+					}

+					break;

+			}

+			break; // WM_COMMAND

+		case WM_NOTIFY:

+			{

+				LPNMHDR lpnmhdr = (LPNMHDR)lParam;

+

+				switch(lpnmhdr->idFrom)

+				{

+					case IDC_TAB_STATS:

+						if (lpnmhdr->code != TCN_SELCHANGE) break;

+						unOptions.Stat_Tab = SendDlgItemMessage(hwndDlg, IDC_TAB_STATS, TCM_GETCURSEL, 0, 0);

+						Stat_Show(hwndDlg);

+						break;

+					case IDC_LIST_DATA:

+						switch (lpnmhdr->code)

+						{

+							case LVN_GETDISPINFO:

+								{

+									NMLVDISPINFO* pdi = (NMLVDISPINFO*)lParam;

+									SYSTEMTIME st = {0};

+									DWORD Index, Value;

+									double vartime;

+									TCHAR szBufW[64];

+									BYTE EldestAcc;

+

+									if (!(pdi->item.mask & LVIF_TEXT)) return 0;

+

+									// Если нужна надпись.

+									if (!pdi->item.iSubItem)

+									{

+										EldestAcc = Stat_GetEldestAcc(Stat_SelAcc);

+										// Индекс применим только для самого старого аккаунта!

+										Index = Stat_GetStartIndex(EldestAcc, unOptions.Stat_Tab, pdi->item.iItem, &st);

+										switch (unOptions.Stat_Tab)

+										{

+											case 0: // Hourly

+												GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, &st, NULL, szBufW, 32);

+												mir_sntprintf(pdi->item.pszText, 32, _T("%s %02d:00 - %02d:59"),

+													szBufW,

+													ProtoList[EldestAcc].AllStatistics[Index].Hour,

+													ProtoList[EldestAcc].AllStatistics[Index].Hour);

+												break;

+											case 1: // Dayly

+												GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, &st, NULL, pdi->item.pszText, 32);

+												break;

+											case 2: // Weekly

+												// Уходим к первому понедельнику слева.

+												SystemTimeToVariantTime(&st, &vartime);

+												vartime -= DayOfWeek(st.wDay, st.wMonth, st.wYear) - 1;

+												VariantTimeToSystemTime(vartime, &st);

+												GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, &st, NULL, pdi->item.pszText, 32);

+												// Теперь к воскресенью.

+												SystemTimeToVariantTime(&st, &vartime);

+												vartime += 6;

+												VariantTimeToSystemTime(vartime, &st);

+												GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, &st, NULL, szBufW, 32);

+												mir_sntprintf(pdi->item.pszText, 32, _T("%s - %s"), pdi->item.pszText, szBufW);

+												break;

+											case 3: // Monthly

+												GetDateFormat(LOCALE_USER_DEFAULT, DATE_YEARMONTH, &st, NULL, pdi->item.pszText, 32);

+												break;

+											case 4:	// Yearly

+												mir_sntprintf(pdi->item.pszText, 32, _T("%d"), st.wYear);

+												break;

+										}

+										return 0;

+									}

+

+									Value = Stat_GetItemValue(Stat_SelAcc, unOptions.Stat_Tab, pdi->item.iItem, pdi->item.iSubItem);

+

+									// Теперь можно записать в ListView циферки.

+									switch (pdi->item.iSubItem)

+									{

+										case 1: // Входящий

+										case 2: // Исходящий

+										case 3: // Сумма

+											GetFormattedTraffic(Value, unOptions.Stat_Units, pdi->item.pszText, 32);

+											break;

+										case 4: // Время

+											{

+												TCHAR *Fmt[5] = {_T("m:ss"), _T("h:mm:ss"), _T("h:mm:ss"), _T("d hh:mm:ss"), _T("d hh:mm:ss")};

+												GetDurationFormatM(Value, Fmt[unOptions.Stat_Tab], pdi->item.pszText, 32);

+											}

+											break;

+									}

+								}

+								break;

+							

+							case NM_CLICK:

+							case LVN_ITEMCHANGED:

+								{

+									DWORD i, j = -1, dwTotalIncoming = 0, dwTotalOutgoing = 0;

+														

+									i = SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_GETSELECTEDCOUNT, 0, 0);

+									for ( ; i--;)

+									{

+										j = SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_GETNEXTITEM, j, LVNI_SELECTED);

+										dwTotalIncoming += Stat_GetItemValue(Stat_SelAcc, unOptions.Stat_Tab, j, 1);

+										dwTotalOutgoing += Stat_GetItemValue(Stat_SelAcc, unOptions.Stat_Tab, j, 2);

+									}

+									Stat_UpdateTotalTraffic(hwndDlg, dwTotalIncoming, dwTotalOutgoing);

+								}

+								break;

+

+							case NM_CUSTOMDRAW:

+								{

+									LPNMLVCUSTOMDRAW lplvcd = (LPNMLVCUSTOMDRAW)lParam;

+

+									switch (lplvcd->nmcd.dwDrawStage)

+									{

+										case CDDS_PREPAINT: // Перед началом рисования всего ListView.

+											SetWindowLong(hwndDlg, DWLP_MSGRESULT, CDRF_NOTIFYITEMDRAW);

+											return TRUE;

+										case CDDS_ITEMPREPAINT: // Перед началом рисования строки.

+											{

+												COLORREF Color;

+												BYTE r, g, b;

+												

+												if (lplvcd->nmcd.dwItemSpec & 0x01)

+												{

+													Color = SendDlgItemMessage(hwndDlg, IDC_LIST_DATA, LVM_GETBKCOLOR, 0, 0);

+													r = GetRValue(Color);

+													g = GetGValue(Color);

+													b = GetBValue(Color);

+													r += r > 0x80 ? -40 : 40;

+													g += g > 0x80 ? -40 : 40;

+													b += b > 0x80 ? -40 : 40;

+													lplvcd->clrTextBk = RGB(r, g, b);;

+												}

+												SetWindowLong(hwndDlg, DWLP_MSGRESULT, CDRF_NEWFONT);

+												return TRUE;

+											}

+									}

+								}

+								break;

+						}

+						break;

+				}

+			}

+			break; // WM_NOTIFY

+	}

+	return 0;

+}

+

+/*

+Функция читает статистику из файла для аккаунта с номером n.

+*/

+void Stat_ReadFile(BYTE n)

+{

+	LARGE_INTEGER Size;

+	DWORD BytesRead;

+	TCHAR FileName[MAX_PATH], *pszPath;

+	SYSTEMTIME stNow, stLast = {0};

+	

+	pszPath = Utils_ReplaceVarsT(_T("%miranda_userdata%\\statistics"));

+	CallService(MS_UTILS_CREATEDIRTREET, 0, (LPARAM)pszPath);

+	mir_sntprintf(FileName, MAX_PATH, _T("%s\\%S.stat"), pszPath, ProtoList[n].name);

+	mir_free(pszPath);

+	GetLocalTime(&stNow);

+	ProtoList[n].hFile = CreateFile(FileName, GENERIC_READ | GENERIC_WRITE,

+		FILE_SHARE_READ, NULL, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);

+	GetFileSizeEx(ProtoList[n].hFile, &Size);

+	if (Size.QuadPart != 0) // Если файл со статистикой существует и имеет ненулевой размер...

+	{

+		// ...то читаем статистику из файла

+		ProtoList[n].NumberOfRecords = Size.QuadPart/sizeof(HOURLYSTATS);

+		ProtoList[n].AllStatistics = (HOURLYSTATS*)mir_alloc(sizeof(HOURLYSTATS)*ProtoList[n].NumberOfRecords);

+		ReadFile(ProtoList[n].hFile, &ProtoList[n].AllStatistics[0], sizeof(HOURLYSTATS)*ProtoList[n].NumberOfRecords, &BytesRead, NULL);

+		if (!BytesRead)

+		{

+			MessageBox(TrafficHwnd, TranslateT("Couldn't read statistics file"), TranslateT("Traffic Counter"), MB_OK);

+			return;

+		}

+	}

+	else

+	{

+		// Необходимо создать новый файл.

+		ProtoList[n].NumberOfRecords = 1;

+		ProtoList[n].AllStatistics = (HOURLYSTATS*)mir_alloc(sizeof(HOURLYSTATS));

+		ProtoList[n].AllStatistics[0].Hour = stNow.wHour;

+		ProtoList[n].AllStatistics[0].Day = stNow.wDay;

+		ProtoList[n].AllStatistics[0].Month = stNow.wMonth;

+		ProtoList[n].AllStatistics[0].Year = stNow.wYear;

+		ProtoList[n].AllStatistics[0].Incoming =

+		ProtoList[n].AllStatistics[0].Outgoing =

+		ProtoList[n].AllStatistics[0].Time = 0;

+	}

+	Stat_CheckStatistics(n);

+}

+

+/* Функция готовит вывод в ListView статистики.

+Аргументы: hwndDialog - хэндл окна диалога. */

+void Stat_Show(HWND hwndDialog)

+{

+	DWORD MaxRecords;

+

+	// Нужно узнать количество записей.

+	MaxRecords = Stat_GetRecordsNumber(Stat_GetEldestAcc(Stat_SelAcc), unOptions.Stat_Tab);

+	// Установим такое же количество строк в ListView.

+	SendDlgItemMessage(hwndDialog, IDC_LIST_DATA, LVM_SETITEMCOUNT, MaxRecords, 0);

+	// Надо показать самые свежие записи.

+	SendDlgItemMessage(hwndDialog, IDC_LIST_DATA, LVM_ENSUREVISIBLE, (WPARAM)(MaxRecords - 1), 0);

+}

+

+void Stat_UpdateTotalTraffic(HWND hwndDialog, DWORD Incoming, DWORD Outgoing)

+{

+	TCHAR tmp[32];

+

+	GetFormattedTraffic(Incoming, unOptions.Stat_Units, tmp, 32);

+	SetDlgItemText(hwndDialog, IDC_STATIC_DNL, tmp);

+	GetFormattedTraffic(Outgoing, unOptions.Stat_Units, tmp, 32);

+	SetDlgItemText(hwndDialog, IDC_STATIC_UPL, tmp);

+	GetFormattedTraffic(Incoming + Outgoing, unOptions.Stat_Units, tmp, 32);

+	SetDlgItemText(hwndDialog, IDC_STATIC_SUMM, tmp);

+}

+

+/*

+Функция сравнивает с текущим время последней записи в статистике для аккаунта с номером n.

+Если они совпадают, ничего не происходит.

+Если текущее время меньше времени последней записи (часы перевели назад), 

+	количество записей уменьшается на соответствующее количество часов.

+Если текущее время больше, в статистику включается необходимое количество пустых записей.

+*/

+void Stat_CheckStatistics(BYTE n)

+{

+	SYSTEMTIME stNow, stLast = {0};

+	HOURLYSTATS htTmp = {0};

+	signed short int d;//, i;

+	DWORD q;

+

+	stLast.wHour = ProtoList[n].AllStatistics[ProtoList[n].NumberOfRecords-1].Hour;

+	stLast.wDay = ProtoList[n].AllStatistics[ProtoList[n].NumberOfRecords-1].Day;

+	stLast.wMonth = ProtoList[n].AllStatistics[ProtoList[n].NumberOfRecords-1].Month;

+	stLast.wYear = ProtoList[n].AllStatistics[ProtoList[n].NumberOfRecords-1].Year;	

+	

+	GetLocalTime(&stNow);

+	d = TimeCompare(stNow, stLast);

+	// Если текущее время совпадает со временем последней записи...

+	if (!d)

+	{

+		// ...сохраняем запись в файл и уходим.

+		SetFilePointer(ProtoList[n].hFile, 0-sizeof(HOURLYSTATS), NULL, FILE_END);

+		WriteFile(ProtoList[n].hFile, &ProtoList[n].AllStatistics[ProtoList[n].NumberOfRecords-1], sizeof(HOURLYSTATS), &q, NULL);

+		return;	

+	}

+

+	// Если часы перевели назад.

+	if (d < 0)

+	{

+		do

+		{

+			stLast.wHour--;

+			if (stLast.wHour == 0xFFFF)

+			{

+				stLast.wDay--;

+				if (!stLast.wDay)

+				{

+					stLast.wMonth--;

+					if (!stLast.wMonth)

+					{

+						stLast.wMonth = 12;

+						stLast.wYear--;

+					}

+					stLast.wDay = DaysInMonth(htTmp.Month, htTmp.Year);

+				}

+			}

+

+			ProtoList[n].NumberOfRecords--;

+		} while (TimeCompare(stNow, stLast));

+		return;	

+	}

+

+	if (d > 0)

+	{

+		// Сохраняем.

+		SetFilePointer(ProtoList[n].hFile, 0-sizeof(HOURLYSTATS), NULL, FILE_END);

+		WriteFile(ProtoList[n].hFile, &ProtoList[n].AllStatistics[ProtoList[n].NumberOfRecords-1], sizeof(HOURLYSTATS), &q, NULL);

+

+		// Последняя запись из статистики понадобится для вычисления новых записей, поэтому копируем её (кроме трафика и времени).

+		memcpy(&htTmp, &ProtoList[n].AllStatistics[ProtoList[n].NumberOfRecords - 1],

+					sizeof(HOURLYSTATS) - 2 * sizeof(DWORD) - sizeof(WORD));

+		// Счётчик времени каждый час должен начинать считать с нуля.

+		ProtoList[n].Total.TimeAtStart = GetTickCount() - stNow.wMilliseconds;

+

+		do

+		{

+			ProtoList[n].AllStatistics =

+				(HOURLYSTATS*)mir_realloc(ProtoList[n].AllStatistics, sizeof(HOURLYSTATS) * ++ProtoList[n].NumberOfRecords);

+

+			htTmp.Hour++;

+			if (htTmp.Hour > 23)

+			{

+				htTmp.Hour = 0; htTmp.Day++;

+				if (htTmp.Day > DaysInMonth(htTmp.Month, htTmp.Year))

+				{

+					htTmp.Day = 1; htTmp.Month++;

+					if (htTmp.Month > 12)

+					{

+						htTmp.Month = 1; htTmp.Year++;

+					}

+				}

+			}

+

+			stLast.wHour = htTmp.Hour;

+			stLast.wDay = htTmp.Day;

+			stLast.wMonth = htTmp.Month;

+			stLast.wYear = htTmp.Year;

+

+			// Добавляем записи одновременно в ОЗУ и в файл.

+			WriteFile(ProtoList[n].hFile, &htTmp, sizeof(HOURLYSTATS), &q, NULL);

+			memcpy(&ProtoList[n].AllStatistics[ProtoList[n].NumberOfRecords - 1], &htTmp, sizeof(HOURLYSTATS));

+

+		} while (TimeCompare(stNow, stLast));

+	}

+}

+

+/* Функция возращает индекс первой записи в статистике, относящейся к выбранному интервалу.

+При вычислении учитывается выбранный интервал и аккаунты.

+Аргументы:

+ItemNumber - номер строки в ListView (номер периода).

+stReq - дата, соответствующая вычисленному индексу.

+*/

+DWORD Stat_GetStartIndex(BYTE AccNum, BYTE Interval, DWORD ItemNumber, SYSTEMTIME *stReq)

+{

+	DWORD Left, Right, Probe; // Границы интервала для поиска (индексы статистики).

+	SYSTEMTIME stProbe = {0}; // Время тыка.

+	signed short int d = 1;

+

+	if (!ItemNumber) 

+	{

+		stReq->wHour = ProtoList[AccNum].AllStatistics[0].Hour;

+		stReq->wDay = ProtoList[AccNum].AllStatistics[0].Day;

+		stReq->wMonth = ProtoList[AccNum].AllStatistics[0].Month;

+		stReq->wYear = ProtoList[AccNum].AllStatistics[0].Year;

+		return 0;

+	}

+

+	// Вычисляем время, соответствующее началу интервала.

+	for (Probe = 0, Left = 1; Left < ProtoList[AccNum].NumberOfRecords; Left++)

+	{

+		switch(Interval)

+		{

+			case STAT_INTERVAL_HOUR:

+				stReq->wHour = ProtoList[AccNum].AllStatistics[ItemNumber].Hour;

+				stReq->wDay = ProtoList[AccNum].AllStatistics[ItemNumber].Day;

+				stReq->wMonth = ProtoList[AccNum].AllStatistics[ItemNumber].Month;

+				stReq->wYear = ProtoList[AccNum].AllStatistics[ItemNumber].Year;

+				return ItemNumber;

+				break;

+			case STAT_INTERVAL_DAY:

+				if (ProtoList[AccNum].AllStatistics[Left].Day != ProtoList[AccNum].AllStatistics[Left - 1].Day)

+					Probe++;

+				break;

+			case STAT_INTERVAL_WEEK:

+				if (   !ProtoList[AccNum].AllStatistics[Left].Hour

+					&& DayOfWeek(ProtoList[AccNum].AllStatistics[Left].Day,

+								 ProtoList[AccNum].AllStatistics[Left].Month,

+								 ProtoList[AccNum].AllStatistics[Left].Year) == 1)

+					Probe++;

+				break;

+			case STAT_INTERVAL_MONTH:

+				if (ProtoList[AccNum].AllStatistics[Left].Month != ProtoList[AccNum].AllStatistics[Left - 1].Month)

+					Probe++;

+				break;

+			case STAT_INTERVAL_YEAR:

+				if (ProtoList[AccNum].AllStatistics[Left].Year != ProtoList[AccNum].AllStatistics[Left - 1].Year)

+					Probe++;

+				break;

+		}

+		if (Probe == ItemNumber) break;

+	}

+

+	stReq->wHour = ProtoList[AccNum].AllStatistics[Left].Hour;

+	stReq->wDay = ProtoList[AccNum].AllStatistics[Left].Day;

+	stReq->wMonth = ProtoList[AccNum].AllStatistics[Left].Month;

+	stReq->wYear = ProtoList[AccNum].AllStatistics[Left].Year;

+

+	Left = 0; Right = ProtoList[AccNum].NumberOfRecords - 1;

+

+	// Вычисляем индекс начала интервала.

+	while (TRUE)

+	{

+		if (Right - Left == 1) return Right;

+		Probe = (Left + Right) >> 1;

+		stProbe.wYear = ProtoList[AccNum].AllStatistics[Probe].Year;

+		stProbe.wMonth = ProtoList[AccNum].AllStatistics[Probe].Month;

+		stProbe.wDay = ProtoList[AccNum].AllStatistics[Probe].Day;

+		stProbe.wHour = ProtoList[AccNum].AllStatistics[Probe].Hour;

+		d = TimeCompare(*stReq, stProbe);

+		if (!d) break;

+		if (d < 0) Right = Probe;

+		if (d > 0) Left = Probe;

+	}

+	return Probe;

+}

+

+/* Функция устанавливает величину сдвига для заданного аккаунта,

+то есть номер записи в статистике старейшего из выбранных аккаунтов,

+дата которой соответствует началу статистики указанного аккаунта. */

+void Stat_SetAccShift(BYTE AccNum, BYTE EldestAccount)

+{

+	DWORD Left, Right, Probe; // Границы интервала для поиска (индексы статистики).

+	SYSTEMTIME stReq = {0}, stProbe;

+	signed short int d = 1;

+

+	if (AccNum == EldestAccount)

+	{

+		ProtoList[AccNum].Shift = 0;

+		return;

+	}

+

+	stReq.wHour = ProtoList[AccNum].AllStatistics[0].Hour;

+	stReq.wDay = ProtoList[AccNum].AllStatistics[0].Day;

+	stReq.wMonth = ProtoList[AccNum].AllStatistics[0].Month;

+	stReq.wYear = ProtoList[AccNum].AllStatistics[0].Year;

+

+	// Вычисляем индекс начала интервала.

+	Left = 0; Right = ProtoList[EldestAccount].NumberOfRecords - 1;

+	while (TRUE)

+	{

+		if (Right - Left == 1)

+		{

+			ProtoList[AccNum].Shift = Probe + d;

+			return;

+		}

+		Probe = (Left + Right) >> 1;

+		stProbe.wYear = ProtoList[EldestAccount].AllStatistics[Probe].Year;

+		stProbe.wMonth = ProtoList[EldestAccount].AllStatistics[Probe].Month;

+		stProbe.wDay = ProtoList[EldestAccount].AllStatistics[Probe].Day;

+		stProbe.wHour = ProtoList[EldestAccount].AllStatistics[Probe].Hour;

+		d = TimeCompare(stReq, stProbe);

+		if (!d) break;

+		if (d < 0) Right = Probe;

+		if (d > 0) Left = Probe;

+	}

+	ProtoList[AccNum].Shift = Probe;

+}

+

+/* Функция вычисляет значение, соответствующее указанному подэлементу

+указанной строки ListView.

+Аргументы:

+SelectedAccs - слово, в котором единичные биты соответствуют выбранным аккаунтам;

+Interval - выбранный интервал;

+ItemNum - номер строки в ListVew;

+SubitemNum - номер колонки, определяет вид информации. */

+DWORD Stat_GetItemValue(WORD SelectedAccs, BYTE Interval, DWORD ItemNum, BYTE SubItemNum)

+{

+	DWORD Result = 0;

+	SYSTEMTIME st = {0};

+	DWORD Index, IndexP, i;

+	signed long int IndexM;

+	BYTE a, EldestAcc;

+

+	EldestAcc = Stat_GetEldestAcc(SelectedAccs);

+	Index = Stat_GetStartIndex(EldestAcc, Interval, ItemNum, &st);

+

+	for (a = NumberOfAccounts; a--; )

+	{

+		if (!((1 << a) & SelectedAccs)) continue;

+		Stat_SetAccShift(a, EldestAcc);

+		IndexM = Index - ProtoList[a].Shift;

+		IndexP = Index;

+

+		for (i = 0; ; )

+		{

+			if (IndexM >= 0)

+				switch (SubItemNum)

+				{

+					case 1: // Входящий

+						Result += ProtoList[a].AllStatistics[IndexM].Incoming;

+						break;

+					case 2: // Исходящий

+						Result += ProtoList[a].AllStatistics[IndexM].Outgoing;

+						break;

+					case 3: // Сумма

+						Result += ProtoList[a].AllStatistics[IndexM].Incoming

+								+ ProtoList[a].AllStatistics[IndexM].Outgoing;

+						break;

+					case 4: // Время

+						Result += ProtoList[a].AllStatistics[IndexM].Time;

+						break;

+				}

+

+			IndexM++; IndexP++; // Переходим к следующей записи.

+			if (IndexM == ProtoList[a].NumberOfRecords) break;

+									

+				// Когда остановиться?

+			switch (Interval)

+			{

+				case STAT_INTERVAL_HOUR:

+					i = 1; // Новый час начинается каждый час.

+					break;

+				case STAT_INTERVAL_DAY:

+					i = (0 == ProtoList[EldestAcc].AllStatistics[IndexP].Hour);

+					break;

+				case STAT_INTERVAL_WEEK:

+					i =    (1 == DayOfWeek(ProtoList[EldestAcc].AllStatistics[IndexP].Day,

+											ProtoList[EldestAcc].AllStatistics[IndexP].Month,

+											ProtoList[EldestAcc].AllStatistics[IndexP].Year))

+						&& (0 == ProtoList[EldestAcc].AllStatistics[IndexP].Hour);

+					break;

+				case STAT_INTERVAL_MONTH:

+					i =    (1 == ProtoList[EldestAcc].AllStatistics[IndexP].Day)

+						&& (0 == ProtoList[EldestAcc].AllStatistics[IndexP].Hour);

+					break;

+				case STAT_INTERVAL_YEAR:

+					i =    (1 == ProtoList[EldestAcc].AllStatistics[IndexP].Month)

+						&& (1 == ProtoList[EldestAcc].AllStatistics[IndexP].Day)

+						&& (0 == ProtoList[EldestAcc].AllStatistics[IndexP].Hour);

+					break;

+			}

+

+			if (i) break;

+		}

+	}

+

+	return Result;

+}

+

+/* Функция возвращает количество записей в статистике для

+заданного аккаунта и заданного интервала. */

+DWORD Stat_GetRecordsNumber(BYTE AccNum, BYTE Interval)

+{

+	DWORD Result, i;

+

+	// Нужно узнать количество записей.

+	switch (Interval)

+	{

+		case STAT_INTERVAL_HOUR:

+			Result = ProtoList[AccNum].NumberOfRecords; // Для почасовой статистики совпадает.

+			break;

+		case STAT_INTERVAL_DAY:

+			for (Result = 1, i = ProtoList[AccNum].NumberOfRecords - 1; i--; )

+				if (ProtoList[AccNum].AllStatistics[i].Day != ProtoList[AccNum].AllStatistics[i+1].Day)

+					Result++;

+			break;

+		case STAT_INTERVAL_WEEK:

+			for (Result = 1, i = ProtoList[AccNum].NumberOfRecords; i--; )

+				if (   ProtoList[AccNum].AllStatistics[i].Hour == 23

+					&& DayOfWeek(ProtoList[AccNum].AllStatistics[i].Day,

+								 ProtoList[AccNum].AllStatistics[i].Month,

+								 ProtoList[AccNum].AllStatistics[i].Year) == 7)

+					Result++;

+			break;

+		case STAT_INTERVAL_MONTH:

+			for (Result = 1, i = ProtoList[AccNum].NumberOfRecords - 1; i--; )

+				if (ProtoList[AccNum].AllStatistics[i].Month != ProtoList[AccNum].AllStatistics[i+1].Month)

+					Result++;

+			break;

+		case STAT_INTERVAL_YEAR:

+			for (Result = 1, i = ProtoList[AccNum].NumberOfRecords - 1; i--; )

+				if (ProtoList[AccNum].AllStatistics[i].Year != ProtoList[AccNum].AllStatistics[i+1].Year)

+					Result++;

+			break;

+	}

+

+	return Result;

+}

+

+BYTE Stat_GetEldestAcc(WORD SelectedAccs)

+{

+	BYTE Result, i;

+

+	// Узнаём номер аккаунта из числа выбранных, имеющего самую старую первую запись.

+	// (Это аккаунт с максимальным количеством записей.)

+	for (Result = i = 0; i < NumberOfAccounts; i++)

+	{

+		// Надо с чего-то начать поиск.

+		if ( 0x01 & (SelectedAccs >> i))

+		{

+			Result = i;

+			break;

+		}

+	}

+	// Продолжаем поиск.

+	for (; ++i < NumberOfAccounts; )

+	{

+		if ( 0x01 & (SelectedAccs >> i)	&& (ProtoList[i].NumberOfRecords > ProtoList[Result].NumberOfRecords) )

+			Result = i;

+	}

+

+	return Result;

+}