#include "fstream.h"
FILE *DlsFile;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if((DlsFile = fopen("D:\\ActDeals.log", "r+")) == NULL)
{
MessageBox(NULL, "Ошибка! Невозможно восстановить активные сделки.", "Монитор", MB_OK);
exit(0);
}
int ivar;
double dvar;
while(!feof(DlsFile))
{
if(!fread(&ivar, sizeof(int), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файл ActDeals.log!", "Монитор", MB_OK);
else MessageBox(NULL, IntToStr(ivar).c_str(), "Монитор", MB_OK);
if(!fread(&ivar, sizeof(int), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
else MessageBox(NULL, IntToStr(ivar).c_str(), "Монитор", MB_OK);
if(!fread(&ivar, sizeof(int), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
else MessageBox(NULL, IntToStr(ivar).c_str(), "Монитор", MB_OK);
if(!fread(&ivar, sizeof(int), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
else MessageBox(NULL, IntToStr(ivar).c_str(), "Монитор", MB_OK);
if(!fread(&dvar, sizeof(double), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
else MessageBox(NULL, FloatToStr(dvar).c_str(), "Монитор", MB_OK);
if(!fread(&ivar, sizeof(int), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
else MessageBox(NULL, IntToStr(ivar).c_str(), "Монитор", MB_OK);
if(!fread(&ivar, sizeof(int), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
else MessageBox(NULL, IntToStr(ivar).c_str(), "Монитор", MB_OK);
if(!fread(&ivar, sizeof(int), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
else MessageBox(NULL, IntToStr(ivar).c_str(), "Монитор", MB_OK);
if(!fread(&dvar,sizeof(double), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
else MessageBox(NULL, FloatToStr(dvar).c_str(), "Монитор", MB_OK);
if(!fread(&dvar, sizeof(double), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
else MessageBox(NULL, FloatToStr(dvar).c_str(), "Монитор", MB_OK);
if(!fread(&dvar, sizeof(double), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
else MessageBox(NULL, FloatToStr(dvar).c_str(), "Монитор", MB_OK);
if(!fread(&dvar, sizeof(double), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
else MessageBox(NULL, FloatToStr(dvar).c_str(), "Монитор", MB_OK);
if(!fread(&ivar, sizeof(int), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
else MessageBox(NULL, FloatToStr(ivar).c_str(), "Монитор", MB_OK);
if(!fread(&ivar, sizeof(int), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
else MessageBox(NULL, FloatToStr(ivar).c_str(), "Монитор", MB_OK);
}
fclose(DlsFile);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int ivar;
double dvar;
if((DlsFile = fopen("D:\\ActDeals.log", "w")) == NULL)
{
MessageBox(NULL, "Ошибка! Невозможно восстановить активные сделки.", "Монитор", MB_OK);
exit(0);
}
ivar = 1;
if(!fwrite(&ivar, sizeof(int), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файл ActDeals.log!", "Монитор", MB_OK);
ivar = 2;
if(!fwrite(&ivar, sizeof(int), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
ivar = 3;
if(!fwrite(&ivar, sizeof(int), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
ivar = 4;
if(!fwrite(&ivar, sizeof(int), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
dvar = 0.5;
if(!fwrite(&dvar, sizeof(double), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
ivar = 6;
if(!fwrite(&ivar, sizeof(int), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
ivar = 25 ;
if(!fwrite(&ivar, sizeof(int), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
ivar = 27 ;
if(!fwrite(&ivar, sizeof(int), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
dvar = 0.9 ;
if(!fwrite(&dvar,sizeof(double), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
dvar = 0.01 ;
if(!fwrite(&dvar, sizeof(double), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
dvar = 0.011 ;
if(!fwrite(&dvar, sizeof(double), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
dvar = 0.012;
if(!fwrite(&dvar, sizeof(double), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
ivar = 13;
if(!fwrite(&ivar, sizeof(int), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
ivar = 14;
if(!fwrite(&ivar, sizeof(int), 1, DlsFile))
MessageBox(NULL, "Ошибка чтения в файле ActDeals.log!", "Монитор", MB_OK);
fclose(DlsFile);
}
//----------------