もりきゅうです。

SASADA Koichi <ko1@a...> wrote:
> 　どなたか、いらっしゃいませんか？　それとも、Ruby って使われ
> てないのかなあ。

では、私のお仕事からひとつ紹介します。

組織名：
株式会社ミッタシステム

対象とする問題の概要：
プラスチック射出成型機のエラー信号を受けて
ネットワークカメラの向きを変更、画像を保存し、メールを送信する。

特に難しいところ
* 開発に時間をかけられない。
* 現物なしに開発する必要がある (実地で調整する必要がある)。

Rubyによる解決の概要：
射出成型機のエラー信号を TCP ソケットで受け取れるようにしておく
(Hello Device 1100 を利用)。

WinXP 機上に仕掛けを用意するため Apollo (Delphi/Ruby) を導入した。

最初は Apollo で管理画面を用意したが、その後、外部から管理したい
との要望を受け、設定ファイルをサーバに置き、CGI(Ruby) を用意した。
これはその場で実装できた :)

エラー信号の受信部
Ruby の TCPSocket を用いると数行で実装できた。

  # エラーチェックは省略
  s = TCPSocket.open("192.168.11.20", 6001)
  s.write "\x75\x00\x00\x00"
  str = s.read(4)
  
  i0 = str[0]
  i1 = str[1]
  puts "%04d: %08b %08b" % [cnt, i0,i1]

ネットワークカメラの操作
Net::HTTP を用いた。

画像の保存
ネットワークカメラが MJPEG で画像を流すので、以下のように処理した。

  HEADER = "--myboundary\nContent-type: image\/jpeg\n\n"
  IMAGE_DIR = "/cam/images"
  
  @camera_host = "192.168.11.18"
  @camera_port = 8080
  
  def capture(host=@camera_host, port=@camera_port, user='', passwd='')
    request = Net::HTTP::Get.new('nphMotionJpeg?Resolution=160x120
&Quality=Standard')
    request.basic_auth(user, passwd)
    
    cnt = 0
    buf = ''
    
    Net::HTTP.start(host, port){|http|
    http.request(request){|response|
    response.read_body{|body|
      idx = body.index(HEADER)
      if idx.nil?
        buf << body
      else
        buf << body[0, idx-1] if idx != 0
        unless buf.empty?
          time = Time.now
          fname = time.strftime('%Y%m%d%H%M%S') + '.jpg'
          open(File.join(IMAGE_DIR,fname),'wb') do |o|
            o.print buf[buf.index("\xFF\xD8") ... buf.rindex("\xFF\xD9")+2]
          end
          return fname
        end
        buf[0..-1] = body[idx+HEADER.size .. -1]
      end
    }}}
    nil
  end

メールの送信
Net::SMTP を用いた。
サーバへ画像をアップロードし、メールにURLを記すようにした。
アップロードもメールで行った。
# 画像をメールに添付しメールサーバで処理した。

おわりに
Ruby (言語と有用なライブラリ群) のおかげで容易に開発できた。
上記のプロジェクトの成功を受けQRコードを用いた管理システムを
受注できたのだが、これも Ruby で開発する予定である。

----
YOSHIDA Kazuhiro  moriq@m...  http://www.moriq.com/

--
ML: ruby@m...
使い方: http://QuickML.com/