示例#1
0
文件: convmain.cpp 项目: Akehi/RTKLIB
// callback on button-output-directory --------------------------------------
void __fastcall TMainWindow::BtnOutDirClick(TObject *Sender)
{
#ifdef TCPP
    AnsiString dir=OutDir->Text;
    if (!SelectDirectory("Output Directory","",dir)) return;
    OutDir->Text=dir;
#else
    UnicodeString dir=OutDir->Text;
    TSelectDirExtOpts opt=TSelectDirExtOpts()<<sdNewUI<<sdNewFolder;
    if (!SelectDirectory(L"Output Directory",L"",dir,opt)) return;
    OutDir->Text=dir;
#endif
}
示例#2
0
//---------------------------------------------------------------------------
void __fastcall TOptDialog::BtnLocalDirClick(TObject *Sender)
{
#ifdef TCPP
	AnsiString dir=LocalDir->Text;
	if (!SelectDirectory("FTP/HTTP Local Directory","",dir)) return;
	LocalDir->Text=dir;
#else
    UnicodeString dir=LocalDir->Text;
    TSelectDirExtOpts opt=TSelectDirExtOpts()<<sdNewUI<<sdNewFolder;
    if (!SelectDirectory(L"FTP/HTTP Local Directory",L"",dir,opt)) return;
    LocalDir->Text=dir;
#endif
}
示例#3
0
// callback on button-output-directory --------------------------------------
void __fastcall TMainWindow::BtnOutDirClick(TObject *Sender)
{
#ifdef TCPP
    AnsiString dir=OutDir->Text;
    if (!SelectDirectory("Output Directory","",dir)) return;
    OutDir->Text=dir;
#else
    UnicodeString dir=OutDir->Text;
    TSelectDirOpts opt=TSelectDirOpts()<<sdAllowCreate<<sdPerformCreate;
    if (!SelectDirectory(dir,opt,0)) return;
    OutDir->Text=dir;
#endif
}
示例#4
0
void EditorUI::menuSetSpringDir()
{
	SelectDirectory (
		"Select S3O texture loading directory\n"
		"(for example c:\\games\\spring\\unittextures)", 
		Texture::textureLoadDir);
}
示例#5
0
void __fastcall TFormOptions::btnDirSegClick(TObject *Sender)
{
  AnsiString Dir;
  Dir = EditDirSeg->Text;
  if (SelectDirectory("Select directory", "", Dir))
    EditDirSeg->Text = Dir;
}
示例#6
0
void InsertPath(EditString *es)
{
	String s = SelectDirectory();
	if(IsNull(s))
		return;
	es->Clear();
	*es <<= s;
	es->SetWantFocus();
}
示例#7
0
//---------------------------------------------------------------------------
void __fastcall TSearchFilesFrm::btSelectSearchPathClick(TObject *Sender)
{
	String path;
	if (SelectDirectory(path, TSelectDirOpts(), NULL))
	{
		path += "\\";
		edtSearchPath->Text = path;
	}
}
示例#8
0
void __fastcall TForm9::BitBtn2Click(TObject *Sender)
{
   if(Form38->TBdata=="5")
    {
        ShowMessage("正在同步移库数据");
        return;
    }

   BitBtn1Click(Sender);
   String Dir;
   if(SelectDirectory("Directory Name","",Dir))
   {
         if(Dir.SubString(Dir.Length(),1)!="\\")
         {
                   Dir=Dir+"\\";
         }


      TStringList *SaveList=new TStringList();
      int selectnum=Form1->YK_ADOQuery->RecordCount;
      String str="";
      String FileName="移库表";
      String datetime= Now().FormatString("yyyymmddhhnnss");
      SaveList->Text="";
      for(int i=0;i<selectnum;i++)
      {
             str="";
           //  RK_Grid->Columns->Items[0]->Field->
             str="YK,"+
                 Form1->YK_ADOQuery->FieldByName("条码")->AsString+","+
                 Form1->YK_ADOQuery->FieldByName("名称")->AsString+","+
                 Form1->YK_ADOQuery->FieldByName("货号")->AsString+","+
                 Form1->YK_ADOQuery->FieldByName("规格")->AsString+","+
                 Form1->YK_ADOQuery->FieldByName("型号")->AsString+",";
             if(Form1->Pshow=="show")str+=Form1->YK_ADOQuery->FieldByName("进价")->AsString+",";
             str+=Form1->YK_ADOQuery->FieldByName("售价")->AsString+","+
                 Form1->YK_ADOQuery->FieldByName("单位")->AsString+","+
                 Form1->YK_ADOQuery->FieldByName("备注一")->AsString+","+
                 Form1->YK_ADOQuery->FieldByName("备注二")->AsString+","+
                 Form1->YK_ADOQuery->FieldByName("备注三")->AsString+","+
                 Form1->YK_ADOQuery->FieldByName("原仓库")->AsString+","+
                 Form1->YK_ADOQuery->FieldByName("目的仓库")->AsString+","+
                 Form1->YK_ADOQuery->FieldByName("数量")->AsString+","+
                 Form1->YK_ADOQuery->FieldByName("移库时间")->AsString+","+
                 Form1->YK_ADOQuery->FieldByName("员工编号")->AsString+","+
                 Form1->YK_ADOQuery->FieldByName("员工姓名")->AsString;
             SaveList->Add(str);
             Form1->YK_ADOQuery->Next();
      }
      Form1->SaveExcel(SaveList,Dir.Trim()+FileName+"-"+datetime+".xls") ;
      MessageDlg("导出完成",mtInformation,TMsgDlgButtons()<<mbOK,0);

      delete SaveList;
   }
   else
   return;
}
示例#9
0
void CDlgFavorites::OnBtRefFavorites(CString &strFavorite)
{
	// フォルダ選択ダイアログを開く
	wchar_t	sFolderName[_MAX_PATH] = { '\0' };
	wcscpy(sFolderName, strFavorite);
	if (SelectDirectory(sFolderName) == TRUE) {
		strFavorite = sFolderName;
	}
}
示例#10
0
//---------------------------------------------------------------------------
void __fastcall TFullSynchronizeDialog::LocalDirectoryBrowseButtonClick(
    TObject * /*Sender*/)
{
    UnicodeString Directory = LocalDirectoryEdit->Text;
    if (SelectDirectory(Directory, LoadStr(SELECT_LOCAL_DIRECTORY), false))
    {
        LocalDirectoryEdit->Text = Directory;
    }
}
示例#11
0
//选择保存目录
void CDlgFileConv::OnSelectDstDir()
{
	CStringW strDir = SelectDirectory(_T("请选择保存目录:"));
	if (!strDir.IsEmpty())
		m_strDstDir = strDir;
	else
		return;

	UpdateData(FALSE);
}
示例#12
0
// Щелчок на кнопке Каталог
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString dir;  // каталог, который выбрал пользователь
    if ( SelectDirectory("Выберите каталог","", dir))
    {
        // диалог Выбор файла завершен щелчком на OK
        Edit1->Text = dir;
        Button2->Enabled = true; // теперь кнопка Выполнить доступна
    };
}
示例#13
0
void AddPath(EditString *es)
{
	String s = SelectDirectory();
	if(IsNull(s))
		return;
	String h = ~*es;
	if(h.GetCount() && *h.Last() != ';')
		h << ';';
	h << s;
	*es <<= h;
	es->SetWantFocus();
}
示例#14
0
void CDlgLyricFile::OnBtRefLyrics() 
{
	// 現在指定されているログファイル名を取得
	CString	strFileName;
	GetDlgItemText(IDC_ED_LYRICS_PATH, strFileName);

	// フォルダ選択ダイアログを開く
	char	sFolderName[_MAX_PATH] = {'\0'};
	strcpy(sFolderName, strFileName);
	if (SelectDirectory(sFolderName) == TRUE) {
		SetDlgItemText(IDC_ED_LYRICS_PATH, sFolderName);
	}
}
示例#15
0
//---------------------------------------------------------------------------
void __fastcall TCopyDialog::LocalDirectoryBrowseButtonClick(
  TObject * /*Sender*/)
{
  assert(!FToRemote);
  UnicodeString ADirectory;
  // if we are duplicating, we have remote path there
  if (!RemotePaths())
  {
    ADirectory = Directory;
  }

  if (SelectDirectory(ADirectory, LoadStr(SELECT_LOCAL_DIRECTORY), true))
  {
    Directory = ADirectory;
    UpdateControls();
  }
}
示例#16
0
void __fastcall TForm12::Button1Click(TObject *Sender)
{
   BitBtn1Click(Sender);

   String Dir;
   if(SelectDirectory("Directory Name","",Dir))
   {
         if(Dir.SubString(Dir.Length(),1)!="\\")
         {
                   Dir=Dir+"\\";
         }
        try
        {
              TStringList *SaveList=new TStringList();
              int selectnum=Form1->KC_ADOQuery->RecordCount;
              String str="";
              SaveList->Text="";
              for(int i=0;i<selectnum;i++)
              {
                 str="";
                 str=
                 Form1->KC_ADOQuery->FieldByName("条码")->AsString+","+
                 Form1->KC_ADOQuery->FieldByName("库存")->AsString+","+
                 Form1->KC_ADOQuery->FieldByName("仓库")->AsString;
                 SaveList->Add(str);
                 Form1->KC_ADOQuery->Next();
               }
               SaveList->Add("");
              String FileName="DRKC";
              SaveList->SaveToFile(Dir+FileName+".txt") ;

              MessageDlg("导出成功",mtInformation,TMsgDlgButtons()<<mbOK,0);

              delete SaveList;
        }
        catch (Exception &exception)
        {
                Application->ShowException(&exception);
        }
   }
   else
   return;
}
示例#17
0
//转换源目录
void CDlgFileConv::OnSelectSrcDir()
{
	UpdateData(TRUE);

	CStringW strDir = SelectDirectory(_T("请选择一个要转换的目录:"));
	if (!strDir.IsEmpty())
		m_strSrcDir = strDir;
	else
		return;

	std::string charset;
	foreach_file(CStringToUTF8string(strDir).c_str(), find_file_charset_of_src_dir, m_bRecurDir, 1, &charset);
	if (!charset.empty())
		m_strSrcCharset = UTF8stringToCString(charset);
	else
		m_strSrcCharset = _T("");

	UpdateData(FALSE);
}
示例#18
0
char *TXT_SelectFile(char *window_title, char **extensions)
{
    OPENFILENAME fm;
    char selected[MAX_PATH] = "";
    char *filter_string, *result;

    if (!InitLibraries())
    {
        return NULL;
    }

    if (extensions == TXT_DIRECTORY)
    {
        return SelectDirectory(window_title);
    }

    filter_string = GenerateFilterString(extensions);

    ZeroMemory(&fm, sizeof(fm));
    fm.lStructSize = sizeof(OPENFILENAME);
    fm.hwndOwner = NULL;
    fm.lpstrTitle = window_title;
    fm.lpstrFilter = filter_string;
    fm.lpstrFile = selected;
    fm.nMaxFile = MAX_PATH;
    fm.Flags = OFN_EXPLORER | OFN_FILEMUSTEXIST | OFN_HIDEREADONLY;
    fm.lpstrDefExt = "";

    if (!MyGetOpenFileName(&fm))
    {
        result = NULL;
    }
    else
    {
        result = strdup(selected);
    }

    free(filter_string);

    return result;
}
示例#19
0
//---------------------------------------------------------------------------
void __fastcall TDialogProjectNew::ButtonOpenClick(TObject *Sender)
{
  String Path = Usul()->PathDocuments;
  if (Win32MajorVersion >= 6) {
    TFileOpenDialog *FileOpenDialog = new TFileOpenDialog(0);
    FileOpenDialog->Title = "Select Project Directory";
    FileOpenDialog->Options = TFileDialogOptions() << fdoPickFolders << fdoPathMustExist << fdoForceFileSystem;
    FileOpenDialog->OkButtonLabel = "Select";
    FileOpenDialog->DefaultFolder = Path;
    FileOpenDialog->FileName = Path;
    if (!FileOpenDialog->Execute()) {
      delete FileOpenDialog;
      return;
    }
    Path = FileOpenDialog->FileName;
    delete FileOpenDialog;
  } else {
    //if (!SelectDirectory(Path, TSelectDirOpts(), 0))
    if (!SelectDirectory("Select Project Directory", Path, Path))
      return;
  }
  Edit->Text = Path;
}
示例#20
0
//---------------------------------------------------------------------------
bool __fastcall SelectDirectory(UnicodeString & Path, const UnicodeString Prompt,
  bool PreserveFileName)
{
  bool Result;
  unsigned int ErrorMode;
  ErrorMode = SetErrorMode(SEM_NOOPENFILEERRORBOX | SEM_FAILCRITICALERRORS);

  try
  {
    UnicodeString Directory;
    UnicodeString FileName;
    if (!PreserveFileName || DirectoryExists(Path))
    {
      Directory = Path;
    }
    else
    {
      Directory = ExtractFilePath(Path);
      FileName = ExtractFileName(Path);
    }
    Result = SelectDirectory(Prompt, L"", Directory);
    if (Result)
    {
      Path = Directory;
      if (!FileName.IsEmpty())
      {
        Path = IncludeTrailingBackslash(Path) + FileName;
      }
    }
  }
  __finally
  {
    SetErrorMode(ErrorMode);
  }

  return Result;
}
void COptionsDirectoriesPage::SelectTextureDir(UINT /*Code*/, int /*id*/, HWND /*ctl*/)
{
	SelectDirectory(DIR_SELECT_TEXTURE, m_TextureDir, m_TextureDefault, m_TextureSelected);
}
void COptionsDirectoriesPage::SelectSnapShotDir(UINT /*Code*/, int /*id*/, HWND /*ctl*/)
{
	SelectDirectory(DIR_SELECT_SCREEN, m_ScreenShotDir, m_ScreenShotDefault, m_ScreenShotSelected);
}
void COptionsDirectoriesPage::SelectInstantDir(UINT /*Code*/, int /*id*/, HWND /*ctl*/)
{
	SelectDirectory(DIR_SELECT_INSTANT, m_InstantSaveDir, m_InstantDefault, m_InstantSelected);
}
void COptionsDirectoriesPage::SelectAutoDir(UINT /*Code*/, int /*id*/, HWND /*ctl*/)
{
	SelectDirectory(DIR_SELECT_AUTO, m_AutoSaveDir, m_AutoSaveDefault, m_AutoSaveSelected);
}
void COptionsDirectoriesPage::SelectPluginDir(UINT /*Code*/, int /*id*/, HWND /*ctl*/)
{
	SelectDirectory(DIR_SELECT_PLUGIN, m_PluginDir, m_PluginDefault, m_PluginSelected);
}
示例#26
0
bool SelectDirectory(wxString & Directory, TSelectDirOpts Options, long HelpCtx)
{
	wxUnusedVar(HelpCtx);
	wxUnusedVar(Options);
	return SelectDirectory(wxT("Select"), Directory, Directory);
}
示例#27
0
bool SelectDirectory(wxString const & Caption,
  wxString const & InitialDirectory, wxString & Directory)
{
	return SelectDirectory(Caption, InitialDirectory, Directory, true, 0);
}
示例#28
0
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        String   Dir;
        if(SelectDirectory( "请选择接驳文件根目录: ",Dir,Dir))
                Edit1-> Text=Dir;         
}
示例#29
0
//---------------------------------------------------------------------------
// ファイルを復号する処理
//---------------------------------------------------------------------------
void __fastcall TForm1::FileDecrypt(void)
{

int i;
String MsgText;

char password[32];
for (i = 0; i < 32; i++) {
	password[i] = NULL;
}

AnsiString Password;
AnsiString PasswordFileHash, PasswordFileHeader;


String AtcFilePath;
String OutDirPath;
String RootDirPath = ExtractFileDir(Application->ExeName);

TSelectDirExtOpts opt;

//フォームを実行中状態にする
ChangeFormStatus(1);

//親フォルダを生成しない
//if ( fNoParentFldr == true  )

if ( chkSaveToOtherDirectory->Checked == true ) {

	opt = TSelectDirExtOpts() << sdShowShares << sdNewUI << sdNewFolder << sdShowEdit << sdValidateDir;
	// '復号する先のフォルダーを指定してください。'
	if (SelectDirectory(LoadResourceString(&Msgexeout::_DIALOG_MSG_SELECT_SAVE_TO_FOLDER),
			RootDirPath, OutDirPath, opt, this) == false){
		return;
	}

}
else{
	OutDirPath = ExtractFileDir(Application->ExeName);
}


if ( DirectoryExists(OutDirPath) == false ) {
	//'保存する先のフォルダーが見つかりません。保存設定を再確認してください。'+#13+
	//'復号処理化を中止します。';
	MsgText = LoadResourceString(&Msgexeout::_MSG_ERROR_SAVE_DEC_TO_FOLDER_NOT_EXISTS)+"\n"+
						OutDirPath;
	MessageDlg(MsgText, mtError, TMsgDlgButtons() << mbOK, 0);
	//エラー終了表示
	ProgressBar1->Position = 0;
	lblProgressPercentNum->Caption = " - %";
	//'キャンセル'
	lblStatus->Caption = LoadResourceString(&Msgexeout::_LABEL_STATUS_TITLE_USER_CANCEL);
	//'復号が中止されました。'
	lblMsg->Caption = LoadResourceString(&Msgexeout::_LABEL_STATUS_DETAIL_STOPPED);
	return;
}

//-----------------------------------
// 復号処理の開始
//-----------------------------------

//復号処理インスタンスの作成
decrypt = new TAttacheCaseFileDecrypt2(true);
decrypt->OnTerminate = DecryptThreadTerminated;
decrypt->FreeOnTerminate = true;
decrypt->AppExeFilePath = Application->ExeName;  //アタッシェケース本体の場所(実行形式出力のときに参照する)
decrypt->AtcFilePath = Application->ExeName;     //入力する暗号化ファイルパス(自分自身)
decrypt->OutDirPath = OutDirPath;                //出力するディレクトリ
decrypt->fConfirmOverwirte = true;               //上書きの確認

//-----------------------------------
//パスワードのセット
//-----------------------------------

//パスワードファイルを使用する
if (PasswordFilePath != "") {

	//SHA-1ハッシュを求める
	if ( GetSHA1HashFromFile(PasswordFilePath, PasswordFileHash, PasswordFileHeader) == true ){
		StrLCopy(password, PasswordFileHash.c_str(), 32);
		decrypt->SetPasswordBinary(password);
		FileDecrypt();
	}
	else{
		//'パスワードファイルを開けません。他のアプリケーションで使用中の可能性があります。';
		MsgText = LoadResourceString(&Msgexeout::_MSG_ERROR_OPEN_PASSWORD_FILE)+"\n"+PasswordFilePath;
		MessageDlg(MsgText, mtError, TMsgDlgButtons() << mbOK, 0);
	}

}
else{
	//文字列をセット
	Password = (AnsiString)txtInputPassword->Text;
	StrLCopy(password, Password.c_str(), 32);
	decrypt->SetPasswordBinary(password);
}

//復号の実行
decrypt->Start();

//タスクバー進捗表示(Win7)
if(CoCreateInstance(CLSID_TaskbarList, NULL, CLSCTX_ALL, IID_ITaskbarList3, (void**)&ptl) != S_OK) {
	//失敗
}
if (ptl) ptl->SetProgressState(Application->Handle, TBPF_NORMAL);

//進捗をTimerで監視
TimerDecrypt->Enabled = true;

}