//---------------------------------------------------------------------------
bool __fastcall TRemoteTransferDialog::Execute(void *& Session, UnicodeString & Target,
UnicodeString & FileMask, bool & DirectCopy)
{
FCurrentSession = -1;
for (int Index = 0; Index < SessionCombo->Items->Count; Index++)
{
if (SessionCombo->Items->Objects[Index] == Session)
{
FCurrentSession = Index;
SessionCombo->ItemIndex = Index;
break;
}
}
assert(FCurrentSession >= 0);
DirectoryEdit->Items = CustomWinConfiguration->History[L"RemoteTarget"];
DirectoryEdit->Text = UnixIncludeTrailingBackslash(Target) + FileMask;
FDirectCopy = DirectCopy;
NotDirectCopyCheck->Checked = !DirectCopy;
bool Result = (ShowModal() == DefaultResult(this));
if (Result)
{
Session = SessionCombo->Items->Objects[SessionCombo->ItemIndex];
CustomWinConfiguration->History[L"RemoteTarget"] = DirectoryEdit->Items;
Target = UnixExtractFilePath(DirectoryEdit->Text);
FileMask = UnixExtractFileName(DirectoryEdit->Text);
DirectCopy = !NotDirectCopyCheck->Checked;
}
return Result;
}
//---------------------------------------------------------------------------
void __fastcall TFileFindDialog::FileFound(TTerminal * /*Terminal*/,
const UnicodeString FileName, const TRemoteFile * AFile, bool & Cancel)
{
TListItem * Item = FileView->Items->Add();
TRemoteFile * File = AFile->Duplicate(true);
Item->Data = File;
Item->ImageIndex = File->IconIndex;
UnicodeString Caption = File->FileName;
if (File->IsDirectory)
{
Caption = UnixIncludeTrailingBackslash(Caption);
}
Item->Caption = Caption;
UnicodeString Directory = UnixExtractFilePath(File->FullFileName);
if (AnsiSameText(FDirectory, Directory.SubString(1, FDirectory.Length())))
{
Directory[1] = L'.';
Directory.Delete(2, FDirectory.Length() - 1);
}
else
{
assert(false);
}
Item->SubItems->Add(Directory);
if (File->IsDirectory)
{
Item->SubItems->Add(L"");
}
else
{
Item->SubItems->Add(
FormatBytes(File->Size,
WinConfiguration->FormatSizeBytes, WinConfiguration->FormatSizeBytes));
}
Item->SubItems->Add(UserModificationStr(File->Modification, File->ModificationFmt));
UpdateControls();
Cancel = (FState == ffAborting);
Application->ProcessMessages();
}
//---------------------------------------------------------------------------
UnicodeString __fastcall TCopyDialog::GetDirectory()
{
assert(DirectoryEdit);
UnicodeString Result = DirectoryEdit->Text;
if (RemotePaths())
{
Result = UnixExtractFilePath(Result);
if (!Result.IsEmpty())
{
Result = UnixIncludeTrailingBackslash(Result);
}
}
else
{
Result = ExtractFilePath(Result);
if (!Result.IsEmpty())
{
Result = IncludeTrailingBackslash(Result);
}
}
return Result;
}
