Example #1
0
//---------------------------------------------------------------------------
void __fastcall TForm1::AbCabBrowser1Load(TObject *Sender)
{
  Memo1->Clear();
  Memo1->Lines->Add(AbCabBrowser1->FileName);
  Memo1->Lines->Add("----------------------------------------------");
  String s = "  Size: \t \t ";
  Memo1->Lines->Add(s + IntToStr(AbCabBrowser1->CabSize));
  s = "  Folders: \t \t ";
  Memo1->Lines->Add(s + IntToStr(AbCabBrowser1->FolderCount));
  s = "  Files: \t \t ";
  Memo1->Lines->Add(s + IntToStr(AbCabBrowser1->Count));
  s = "  SetID: \t \t ";
  Memo1->Lines->Add(s + IntToStr(AbCabBrowser1->SetID));
  s = "  Cab #: \t \t ";
  Memo1->Lines->Add(s + IntToStr(AbCabBrowser1->CurrentCab));
  s = "  hasPrev: \t ";
  if (AbCabBrowser1->HasPrev)
    s = s + "Yes";
  else
    s = s + "No";
  Memo1->Lines->Add(s);
  s = "  hasNext: \t ";
  if (AbCabBrowser1->HasNext)
    s = s + "Yes";
  else
    s = s + "No";
  Memo1->Lines->Add(s);
  Memo1->Lines->Add("  ");

  if (AbCabBrowser1->Count > 0) {
    s = "Files: \t \t Size \t Timestamp \t Attributes \t Partial File";
    Memo1->Lines->Add(s);
    s = "------------------------------------------------------------------";
    Memo1->Lines->Add(s);
    for (int i=0; i<AbCabBrowser1->Count; i++) {
      Longint LI = AbCabBrowser1->Items[i]->LastModFileDate;
      LI = LI << 16;
      LI = LI + AbCabBrowser1->Items[i]->LastModFileTime;
      TDateTime DT = FileDateToDateTime(LI);
      s = AbCabBrowser1->Items[i]->FileName + "\t" +
        IntToStr(AbCabBrowser1->Items[i]->UncompressedSize) + "\t" +
        DateTimeToStr(DT) + "\t" +
        IntToStr(AbCabBrowser1->Items[i]->ExternalFileAttributes) + "\t";
      if (AbCabBrowser1->Items[i]->PartialFile)
        s = s + "Yes";
      else
        s = s + "No";
      Memo1->Lines->Add(s);
    }
  }
}
Example #2
0
//---------------------------------------------------------------------------
bool __fastcall TCopyProgress::VerifyStatements(AnsiString file, int num)
{
  bool exist = FileExists(file);
  switch(FCopyMode)
    {
    case fcmConfirmWrite:
      if(exist && FConfirmMode != cmYesToAll)
        {
        if(FConfirmMode == cmAsk)
          {
          TMsgDlgButtons btn;
          btn << mbYes << mbNo << mbCancel << mbNoToAll << mbYesToAll;
          int m = MessageDlg("File " + ExtractFileName(file) + " already exist. Overwrite?",mtConfirmation,btn,-1);
          if(m == mrNo)  //??
            return false;//??
          }
        else  
          return false;
        }
      break;
    case fcmSkipExists:
      return !exist;
    case fcmRefreshOld:
      if(exist)
        {
        int i = FileOpen(file,fmOpenRead|fmShareCompat);
        if (i == -1)
          break;
        int time = FileGetDate(i);
        FileClose(i);
        if(FileDateToDateTime(time) > FileDateToDateTime(FFileList->File[num]->Time))
          return false;
        }
    }
  return true;
}