C++ (Cpp) TFile::WriteC Examples

Example #1

File: Administradora.cpp Project: sharstream/MailServer-C

//-----------------------------------------------------------------------------
//::::::::::::::::::::::::::::::::::FICHERO XML::::::::::::::::::::::::::::::::::
//-----------------------------------------------------------------------------
void TAdministradora :: SaveXMLServidores(TGLinkedList* pList, AnsiString pFileName)
{
  TFile* fOut = new TFile(pFileName);
  fOut->Open("wt");

  fOut->WriteS("<?xml version=\"1.0\"?>");
  fOut->WriteS("\n");
  fOut->WriteS("<XML>");
  fOut->WriteS("\n"); //bien hasta aqui

  fOut->WriteS("<SERVERS>");
  fOut->WriteS("\n");

  for (int i = 0; i < pList->Length(); i++)
  {
    TServidor* server = (TServidor*)pList->ItemInfo(i);

    fOut->WriteS("<SERVER>");
    fOut->WriteS("\n");

   fOut->WriteS("<NAME_SERVER>");
    fOut->WriteS("\n");

    fOut->WriteS(server->NameDomain().c_str());
    fOut->WriteS("\n");

    fOut->WriteS("</NAME_SERVER>");
    fOut->WriteS("\n");

    fOut->WriteS("<TOP_ACCOUNTS>");
    fOut->WriteS("\n");

    fOut->WriteS(IntToStr(server->Tope()).c_str());
    fOut->WriteS("\n");

    fOut->WriteS("</TOP_ACCOUNTS>");
    fOut->WriteS("\n");


    fOut->WriteS("<LENGTH_EMAIL>");
    fOut->WriteS("\n");

    fOut->WriteS(IntToStr(server->Max()).c_str());
    fOut->WriteS("\n");

    fOut->WriteS("</LENGTH_EMAIL>");
    fOut->WriteS("\n");

    fOut->WriteS("<ACCOUNTS>");
    fOut->WriteS("\n");

    for(int j = 0; j < server->Cuentas()->Length();j++)
    {
      TCuenta* cuenta = (TCuenta*)server->Cuentas()->ItemInfo(j);

      fOut->WriteS("<ACCOUNT>");
      fOut->WriteS("\n");

      fOut->WriteS("<USER>");
      fOut->WriteS("\n");

      fOut->WriteS(cuenta->Usuario().c_str());
      fOut->WriteS("\n");

      fOut->WriteS("</USER>");
      fOut->WriteS("\n");

      fOut->WriteS("<CUOTA>");
      fOut->WriteS("\n");

      fOut->WriteS(IntToStr(cuenta->Cuota()).c_str());
      fOut->WriteS("\n");

      fOut->WriteS("</CUOTA>");
      fOut->WriteS("\n");


      fOut->WriteS("<PERSON>");
      fOut->WriteS("\n");


      fOut->WriteS("<NAME>");
      fOut->WriteS("\n");

      fOut->WriteS(cuenta->Person()->Name().c_str());
      fOut->WriteS("\n");

       fOut->WriteS("</NAME>");
      fOut->WriteS("\n");

      fOut->WriteS("<APELLIDOS>");
      fOut->WriteS("\n");

      fOut->WriteS(cuenta->Person()->Apellidos().c_str());
      fOut->WriteS("\n");

      fOut->WriteS("</APELLIDOS>");
      fOut->WriteS("\n");

      fOut->WriteS("<SEXO>");
      fOut->WriteS("\n");

      fOut->WriteC(cuenta->Person()->Sexo());
      fOut->WriteS("\n");

      fOut->WriteS("</SEXO>");
      fOut->WriteS("\n");

      fOut->WriteS("</PERSON>");
      fOut->WriteS("\n");

      fOut->WriteS("</ACCOUNT>");
      fOut->WriteS("\n");

    }

    fOut->WriteS("</ACCOUNTS>");
    fOut->WriteS("\n");

    fOut->WriteS("</SERVER>");
    fOut->WriteS("\n");
  }

   fOut->WriteS("</SERVERS>");
   fOut->WriteS("\n");

  fOut->WriteS("</XML>");
  fOut->WriteS("\n");

  fOut->Close();
}