[상수도관망해석] 웹기반 Epanet 분석시스템 만들기 V1

[공공칠빵]

[상수도관망해석] 웹기반 Epanet 분석시스템 만들기 V1

Web Epanet 미들웨어 만들기

관망해석모듈(Epanet .dll)을 웹서비스(WebBroker 이용) 기반으로 시스템 구축(Delphi)

- 기존 수리해석용 Epanet.dll모듈의 함수를 사용하여 웹서버(미들웨어)를 구축한다
- 구축된 미들웨어는 WebBroker를 이용하여 웹서비스를 하고 기 개발된 웹클라이언트에 입력과 출력을 통신한다
- 서버군에서는 일반 C/S처럼 자원과 기능을 구축하고, 각종 모듈을 재 사용한다

- 향후 2단계는 지도위에 관망을 도식하고 결과값을 스타일과 조회한다.

이렇게 만든 사유....

- 기존 Epanet 데스크탑 시스템을 웹 개발언어로 만들기 역부족 (웹개발자가 아니라서 ㅠㅠ)

   서버모듈의 Epanet을 재개발하기보다는 신뢰된 오픈 모듈인 epanet.dll 그대로 사용하고 싶다

- 입력파일(*.inp) 파일을 읽고, epanet.dll로 분석한 각 Link(Flow, Velocity, Headloss)와 Node(Demand, Head, Pressure)을

  결과를 커스트마이징하는 클라이언트 코딩을 웹개발언어로 만들기도 역부족.

  서버의 Web Epanet 미들웨어에서 처리해서 클라이언트에 값을 넘겨준다

- 기존 일반 C/S프로그램으로 통신하는 개발은 웹서비스하기엔 부족하고 멀티유저용 웹서비스 곤란.

   WebBroker를 이용하여 웹서비스 서버를 구축하기로 함.

- 오래전 Epanet초기버젼이 델파이라서 공부해오고 각종 응용을하던터라 서버용으로 자바를 배울수도 없고,

  클라이언트에서 분석결과를 레포트나 바이너리 결과를 파서해서 사용할 자바스크립 코딩도 어렵고...ㅠㅠ

*관련글

- [상수도관망해석]Epanet 분석 모니터링 - Flow Arrows

- [Delphi]Epanet 관망분석을 위한 툴킷 - inp 파일 파서, Node / Link Results

- [상수도관망해석]Epanet해석과 관망모니터링 진행중...수정2

- [Delphi]Epanet 관망분석을 위한 툴킷 (Epanet+구글맵 중첩)

1단계로 Web Epanet 미들웨어를 만들고 간단한 결과 표시 프로그램 만들기

Web Epanet 데모실행

1) Html/javascript 버젼 : http://www.gisapplication.kr/EpanetWebGIS/web.html

2) Flex/Flash 버젼 : http://www.gisapplication.kr/EpanetWebGIS/

Web Epanet 주요소스

1) Delphi 미들웨어

 procedure RunSimulation(inpFileName: PWideChar); export;
var
  i : integer;
  err, n: Integer;
  TimeFlag: Boolean;
  TimePeriod : Integer;
  StrLst: TStringList;
  inp_FileName, ReportFile : String;
begin
  //inp_FileName := AnsiString(inpFileName);
  inp_FileName := inpFileName;

  Network := TNetwork.Create;
  for i := 0 to NODEVIEWS do NodeUnits[i].Digits := 2;
  for i := 0 to LINKVIEWS do LinkUnits[i].Digits := 2;
  InputFileName := inp_FileName;
  Ufileio.OpenProject(InputFileName);
  //////////////////////////////////////////////////////////////////////////////
  TempDir := Uutils.GetTempFolder;
  Uoutput.ClearOutput;
  DeleteTempFiles;
  CreateTempFiles;

  Uexport.ExportDataBase(TempInputFile,False);
  try
    err := ENopen(PChar(TempInputFile),PChar(TempReportFile),
                  PChar(TempOutputFile));
    if (err = 0) and (RunStatus <> rsCancelled) then  err := RunHydraulics;
    if (err = 0) and (RunStatus <> rsCancelled) then  RunQuality;
    ENclose;
  except
    on E: Exception do
    begin
      //MessageDlg(E.Message, mtError, [mbOK], 0);
      ENclose;
      Runstatus := rsShutdown;
    end;
  end;
  //DisplayRunStatus;
  if not (RunStatus in [rsCancelled, rsShutdown]) then
  begin
    if GetFileSize(TempReportFile) <= 0 then RunStatus := rsFailed
    else RunStatus := Uoutput.CheckRunStatus(TempOutputFile);
  end;
  if RunStatus in [rsSuccess, rsWarning] then
    RunFlag := True;
  //
  if (RunStatus = rsShutdown) or (RunStatus = rsCancelled) then begin
    DeleteTempFiles;
  end;
  //
  Uoutput.GetBasicOutput;
  //////////////////////////////////////////////////////////////////////////////
  if RunFlag and (Nperiods > 1) then TimeFlag := True
  else TimeFlag := False;

  TimePeriod := 0;
  if(TimeFlag)then TimePeriod := Nperiods-1;

  try
     ReportFile := copy(inp_FileName, 1, Length(inp_FileName)-4) + '.rpt';
     StrLst := TStringList.Create;
     StrLst.Add( Get_Nodes(TimePeriod) );
     StrLst.Add( '*****************************************************************************************' );
     StrLst.Add( Get_Links(TimePeriod) );
     StrLst.SaveToFile(ReportFile);
  finally
      StrLst.Free;
  end;

  DeleteTempFiles;
end;

2) Flex 클라이언트

 public function Call_InpFileSend(inpFile:String):void{
    Memo_Node.text = "";
    Memo_Link.text = "";
    var params:Object = new Object();
    params["EPANET_INP"] = inpFile;
    
    var service:HTTPService = new HTTPService();
    service.url = GISAppURL;
    service.method = "POST";
    service.contentType = HTTPService.CONTENT_TYPE_FORM; //"application/xml";
    service.resultFormat = "text"; //"e4x";
    service.useProxy = false;
    
    cursorManager.setBusyCursor();
    BusyIndicator.visible = true;
    var token :AsyncToken = service.send(params);
    token.addResponder( new AsyncResponder(
     function onSuccess( result :ResultEvent, token :Object = null ) :void{
      var _GUBUN:String = '*****************************************************************************************';
      var _Node:String = String(result.result);
      var _Link:String = _Node.substr(_Node.indexOf(_GUBUN)+_GUBUN.length + 2);
      Memo_Link.text = _Link; 
      _Node = _Node.substr(0, _Node.indexOf(_GUBUN));
      Memo_Node.text = _Node;
      
      cursorManager.removeBusyCursor();
      BusyIndicator.visible = false;
     },
     function onFailure( error :FaultEvent, token :Object = null ) :void{
      cursorManager.removeBusyCursor();
      BusyIndicator.visible = false;
     },
     this
    ) );
   }

3) javascript 클라이언트

  function readFile1(e) {
     var file = e.target.files[0];
     if (!file) {
         return;
     }
     var reader = new FileReader();
     reader.xxxxxxonload = function(e) {
         var fileData = e.target.result;
                var myElem = document.getElementById('editbox_1');
                myElem.value = fileData;

  var xhr = new XMLHttpRequest();
  xhr.open('POST', 'http://localhost:8081', true);
  //xhr.open('POST', 'http://www.gisapplication.kr:8081', true);
  xhr.onreadystatechange = function(){
                    if(xhr.readyState == XMLHttpRequest.DONE && xhr.status == 200) {
                    var myElem2 = document.getElementById('editbox_2');
                       myElem2.value = xhr.responseText;
                    }
   
  }
  xhr.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
                //fileData = fileData.replace(/\r\n/g,' ');
                fileData = encodeURI(encodeURIComponent(fileData));
  var data = 'EPANET_INP_EN=' + fileData;
  //var data = new FormData();
                //data.append('EPANET_INP', fileData);
  xhr.send(data);

     };
     reader.readAsText(file, 'euc-kr');
     //reader.readAsText(file, 'UTF-8');
 }

2단계 Web Epanet을 이용한 GIS기반의 클라이언트

데모개발시간이 있으면 공개 예정. 본화면은 기존 상수도시스템에서 개발된 예시화면입니다