//-----------------------------------------------------------------------------
void TAdministradora :: LoadDomainsNacionales(AnsiString pDomainNacional)
{
TFile* TreeFile = new TFile(pDomainNacional);
TreeFile->Open("rb+");
TreeFile->SeekTo(0);
if(TreeFile->IsOpen())
{
TSDomainInfo SDominio;
TreeFile->Read(&SDominio,sizeof(TSServerInfo));
while(!TreeFile->Eof())
{
TPreOrderNode* node = new TPreOrderNode();
TDomain* domain = new TDomain();
node->End(SDominio.End);
node->RightLink(SDominio.LinkedRight);
domain->NameDomain(SDominio.Name);
node->Info(domain);
aDomainsPreOrderList->Insert(node);
TreeFile->Read(&SDominio,sizeof(TSDomainInfo));
}
}
TreeFile->Close();
delete TreeFile;
}
//-----------------------------------------------------------------------------
void TAdministradora::LoadServersInternacional(AnsiString pNameFile)
{
TFile* internacional = new TFile(pNameFile);
internacional->Open("rb+");
internacional->SeekTo(0);
if(internacional->IsOpen())
{
TSServerInfo server;
internacional->Read(&server,sizeof(TSServerInfo));
while(!internacional->Eof())
{
TServidor* Servidor = new TServidor();
Servidor->Tope(server.Tope);
Servidor->Max(server.MaxMail);
Servidor->NameDomain(server.Name);
aInternacionales->Insert(Servidor);
internacional->Read(&server,sizeof(TSServerInfo));
}
}
internacional->Close();
delete internacional;
}
//-----------------------------------------------------------------------------
void TAdministradora :: LoadServersNacionales(AnsiString pServerName)
{
TFile* serverFile = new TFile(pServerName);
serverFile->Open("rb+");
serverFile->SeekTo(0);
if(serverFile->IsOpen())
{
TSServerInfo server;
serverFile->Read(&server,sizeof(TSServerInfo));
while(!serverFile->Eof())
{
TServidor* Servidor = new TServidor();
Servidor->Tope(server.Tope);
Servidor->Max(server.MaxMail);
Servidor->NameDomain(server.Name);
aNacionalesServers->Insert(Servidor);
serverFile->Read(&server,sizeof(TSServerInfo));
}
}
serverFile->Close();
delete serverFile;
}
