C++ (Cpp) TFileStream::WriteBufferの例

コード例 #1

ファイル: Unit1.cpp プロジェクト: vagabond1132/Code

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 AnsiString s;
 TFileStream* fs;
 int i;

 s = "";
 if (lbTables->SelCount > 0)
  for (i = 0; i < lbTables->Items->Count; i++)
   if (lbTables->Selected[i])
    {
     ACRTable1->TableName = lbTables->Items->Strings[i];
     s = s + ACRTable1->ExportTableToSQL(
      cbExportStructure->Checked,
      cbAddDROPTable->Checked,
      cbExportIndexes->Checked,
      cbAddDROPIndex->Checked,
      cbExportData->Checked,
      cbExportBLOBFields->Checked,
      cbUseBrackets->Checked);
    };
 Memo1->Text = s;
 fs = new TFileStream("test.sql",fmCreate);
 fs->WriteBuffer(&s[1],s.Length());
 delete fs;
}

コード例 #2

ファイル: UnboundExternalDataDemoClasses.cpp プロジェクト: chinnyannieb/Meus-Projetos

void TUserIniFile::RecreateSections()
{
  const String CR = "\n";
  String* S;
  TFileStream* FileStream = new TFileStream(FileName, fmCreate);
  try {
    for(int i=0; i < SectionCount(); i++) {
      FileStream->Seek(0, soFromEnd);
      S = new String();
      *S = Format((String)"%s[%s]%s", ARRAYOFCONST((CR, SectionNames[i], CR)));
      FileStream->WriteBuffer((const void *)S, S->Length());
      delete S;
    }
  }
  __finally {
    delete FileStream;
  }
}

コード例 #3

ファイル: Unit1.cpp プロジェクト: vagabond1132/Code

//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
 AnsiString s;
 TFileStream* fs;

 s = ACRDatabase1->ExportDatabaseToSQL(
      cbExportStructure->Checked,
      cbAddDROPTable->Checked,
      cbExportIndexes->Checked,
      cbAddDROPIndex->Checked,
      cbExportData->Checked,
      cbExportBLOBFields->Checked,
      cbUseBrackets->Checked);
 Memo1->Text = s;
 fs = new TFileStream("test.sql",fmCreate);
 fs->WriteBuffer(&s[1],s.Length());
 delete fs;
}

コード例 #4

ファイル: stripinfo.cpp プロジェクト: japgo/mygithub

BOOL	TStripInfo::SaveInfo(CONST TCHAR* szFilePath)
{
    TFileStream* inStream = new TFileStream(szFilePath, fmCreate);

    inStream->WriteBuffer(&_stripVisual->fPRSMarkX, sizeof(INT32));
    inStream->WriteBuffer(&_stripVisual->fPRSMarkY, sizeof(INT32));
    inStream->WriteBuffer(&_stripVisual->fDeviceSizeX, sizeof(FLOAT));
    inStream->WriteBuffer(&_stripVisual->fDeviceSizeY, sizeof(FLOAT));
    inStream->WriteBuffer(&_stripVisual->clSelectUnitSheet, sizeof(TColor));
    inStream->WriteBuffer(&_stripVisual->clSelectUnitOutline, sizeof(TColor));
    inStream->WriteBuffer(&_stripVisual->clDefaultUnitSheet, sizeof(TColor));
    inStream->WriteBuffer(&_stripVisual->clDefaultUnitOutline, sizeof(TColor));
    inStream->WriteBuffer(&_stripVisual->nAngle, sizeof(INT32));
    inStream->WriteBuffer(&_stripVisual->clIndicateLine, sizeof(TColor));
    inStream->WriteBuffer(&_stripVisual->nOriginLocation, sizeof(INT32));

    inStream->WriteBuffer(&_stripUnits->fUnitXSize, sizeof(FLOAT));
    inStream->WriteBuffer(&_stripUnits->fUnitYSize, sizeof(FLOAT));
    inStream->WriteBuffer(&_stripUnits->fUnitXPitch, sizeof(FLOAT));
    inStream->WriteBuffer(&_stripUnits->fUnitYPitch, sizeof(FLOAT));
    inStream->WriteBuffer(&_stripUnits->nUnitXCountPerBlock, sizeof(INT32));
    inStream->WriteBuffer(&_stripUnits->nUnitYCountPerBlock, sizeof(INT32));
    inStream->WriteBuffer(&_stripUnits->fFirstMarkToUnitCenterX, sizeof(FLOAT));
    inStream->WriteBuffer(&_stripUnits->fFirstMarkToUnitCenterY, sizeof(FLOAT));

    inStream->WriteBuffer(&_stripBlock->nBlockXCount, sizeof(INT32));
    inStream->WriteBuffer(&_stripBlock->nBlockYCount, sizeof(INT32));
    inStream->WriteBuffer(&_stripBlock->fBlockXPitch, sizeof(FLOAT));
    inStream->WriteBuffer(&_stripBlock->fBlockYPitch, sizeof(FLOAT));


    delete inStream;
    return true;
}