procedure TFrm_PT60100.bbtn_OpenClick(Sender: TObject);
begin

  try
    picOperDiagram.Picture.Create;//변수초기화


    if op_digbox.Execute then begin


      FILE_ADD := op_digbox.FileName; //파일경로 불로오기

      //JPG파일인지 확인
      IF 'JPG' <> UPPERCASE(COPY(FILE_ADD,LENGTH(FILE_ADD)-2,3)) THEN  BEGIN
          SHOWMESSAGE(COPY(FILE_ADD,LENGTH(FILE_ADD)-2,3)+' -->   JPG 파일만 등록 가능합니다!!');
      END ELSE BEGIN  //JPG이면
          IM_PICA :=  FILE_ADD ; //경로 저장
          // 사진불러오기
          if FileEXists(IM_PICA) then BEGIN  //사진이 있으면
             picOperDiagram.Picture.LoadFromFile(IM_PICA);  //사진을 화면에 보여주기
             //SPFileStream := TFileStream.Create(IM_pica,fmopenRead );
          END;
      END;
    end;
  Except on E:Exception do begin
    //Forminit;
    exit;
    end;
  end;
end;