view/CopalPro/Exec.cpp

//---------------------------------------------------------------------------
// 実行関係のメソッド
//---------------------------------------------------------------------------
#include <vcl.h>
#include <windows.h>
#pragma hdrstop

#include <vcl\Clipbrd.hpp>
#include "main.h"
#include "Exec.h"
#include "Editor.h"
#include "KExecProc.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
//---------------------------------------------------------------------------
/**
 * スクリプトを実行
 */
void
TFMain::Execute(AnsiString File) {

  if(!CopalConfig->CheckPath()) {
    return;
  }
  CloseError();

  FResult->Init();

  AnsiString cmd = CopalConfig->GetExePath();
  cmd += " " + CopalConfig->GetOption();
  cmd += " \"" + CopalConfig->GetTempFile();
  cmd += "\" " + File;

  FScript->SaveToTemporaryFile(CopalConfig->GetTempFile());

  KExecProc *ep = new KExecProc(cmd);

  //CGIデータを使う
  if(CopalConfig->UseCGI) {
    FEditor->GetCGIData(ep);
  }


  bool result =ep->Execute();

  if(FScript->GetCode()==C_SJIS) {
    FResult->LoadFromStream(ep->GetStdoutStream());
    FStdError->LoadFromStream(ep->GetStderrorStream());
  } else {
    TMemoryStream *msOut = new TMemoryStream;
    KCodeConv::ConvertStream((TMemoryStream*)ep->GetStdoutStream(),msOut,"-s");
    FResult->LoadFromStream(msOut);
    delete msOut;

    TMemoryStream *msErr = new TMemoryStream;
    KCodeConv::ConvertStream((TMemoryStream*)ep->GetStderrorStream(),msErr,"-s");
    FStdError->LoadFromStream(msErr);
    delete msErr;
  }

  if(CopalConfig->CheckErrorCode()){
    if(result) {
      ChangeWindow(RESULT_WINDOW);
    } else {
      ChangeWindow(SCRIPT_WINDOW);
    }
  }else{
    if(FStdError->IsEmpty()){
      ChangeWindow(RESULT_WINDOW);
    }else{
      ChangeWindow(SCRIPT_WINDOW);
    }
  }

  SetErrorCode(ep->GetExitCode());
  delete ep;

  if(CopalConfig->GetShowError()& GetErrorCode()!=0) {
    ShowMessage("Error Code : "+ IntToStr(GetErrorCode()));
  }

  DeleteFile(CopalConfig->GetTempFile());
}
//---------------------------------------------------------------------------
/**
 * DOS窓で実行する
 */
void
TFMain::ExecDOS(void) {
  FScript->SaveToTemporaryFile(CopalConfig->GetTempFile());
  TStringList *st1 = new TStringList;
  AnsiString as1 = CopalConfig->GetTempFile();
  as1 = "\"" + as1 + "\"";
  st1->Add("\""+CopalConfig->GetExePath()+"\" "+as1);
  if(CopalConfig->UsePause) {
    st1->Add("@PAUSE");
  }
  st1->SaveToFile(CopalConfig->TempBat);
  delete st1;

  ShellExecute(this->Handle,NULL,CopalConfig->TempBat.c_str(),NULL,NULL,SW_SHOW);

}
//---------------------------------------------------------------------------
/**
 * クリップボードの内容を入力として実行
 */
void
TFMain::ExecToClip(void) {

  TClipboard *Co = Clipboard();
  char filename[256];
  char path[256];

  GetTempPath(sizeof(path),path);
  GetTempFileName(path,"cpl",0,filename);
  AnsiString FileName = filename;
  TStringList *st1 = new TStringList;
  st1->Text = Co->AsText;
  st1->SaveToFile(FileName);

  Execute(FileName);

  // 実行結果をクリップボードにコピー
  if(!MMNotClip->Checked) {
    Co->AsText = FResult->REResult->Text;
  }

  DeleteFile(FileName);
  delete st1;

  if(MMSaveAll->Checked) {
    SaveResultToFile();
  }

  if(MMToBrowserAll->Checked) {
    ToBrowser();
  }
}
//---------------------------------------------------------------------------
/**
 * 実行結果をブラウザへ
 */
void
TFMain::ExecToBrowser(void) {

  if(MMMemoryDroppedFiles->Checked) {
    Execute(CopalConfig->LastDroppedFiles);
  } else {
    Execute("");
  }

  if(MMSaveAll->Checked) {
    SaveResultToFile();
  }

  ToBrowser();
}
//---------------------------------------------------------------------------
/**
 * ドロップを受けての実行
 */
void
TFMain::ExecuteOnDrop(AnsiString Files, AnsiString HintText) {

  Execute(Files);

  if(MMSaveAll->Checked) {
    SaveResultToFile();
  }

  if(MMToBrowserAll->Checked) {
    ToBrowser();
  }

  //ドロップしたファイル名を保存
  CopalConfig->LastDroppedFiles = Files;

  //ドロップファイルをTipヘルプで見られるようにする
  TBMemoryDroppedFiles->Hint = "ドロップファイルを記憶\n\n 直前にドロップしたファイル"+HintText;
  if(CopalConfig->MemoryFileWhenDropped && !MMMemoryDroppedFiles->Checked) {
    MMMemoryDroppedFiles->Click();
  }
  //ドロップ時にカレントディレクトリを変更
  if(CopalConfig->ChangeCurrentDirOnDrop) {
    AnsiString Dir = ExtractFileDir(Files);
    if(!(Dir.AnsiPos("デスクトップ")&&CopalConfig->DontChangeDirFromDesktop)) {
      if(Dir!="") {
        FResult->SetMyCurrentDir(Dir);
        UpdateStatusBar();
      }
    }
  }
}
//---------------------------------------------------------------------------
// 実行関連のサブルーチン
//---------------------------------------------------------------------------
/**
 *テキストのヘッダ削除
 */
void
CutHeader(TStringList *st) {
  if(st->Count <=2){
    return;
  }
  if(st->Strings[0].AnsiPos("Content-type")) {
    st->Delete(0);
    st->Delete(0);
  }
}
//---------------------------------------------------------------------------
/**
 * ブラウザへ出力
 */
void
TFMain::ToBrowser(void) {

  //エラーがあったら実行しない
  if(CopalConfig->CheckErrorCode()){
    if(GetErrorCode()!=0) {
      return;
    }
  }else{
    if(!FStdError->IsEmpty()) {
      return;
    }
  }

  TStringList *st1 = new TStringList;
  st1->Text = FResult->REResult->Text;
  if(CopalConfig->CutHead){
    CutHeader(st1);
  }
  st1->SaveToFile(CopalConfig->TempHtml);
  ShellExecute(Handle,NULL,CopalConfig->TempHtml.c_str(),NULL,NULL,SW_SHOW);
  delete st1;
}
//---------------------------------------------------------------------------
/**
 * 結果を常にファイルへ保存
 */
void
TFMain::SaveResultToFile(void) {
  FResult->SaveToFile(CopalConfig->SaveResultFile);
}
//---------------------------------------------------------------------------