//---------------------------------------------------------------------------
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);
}
}
}
//---------------------------------------------------------------------------
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;
}