Daily Archives: 2008年8月8日

サーバにhttpにてデータを送信する。httpsの方が安全だけど、これは後回し。httpだけだと、非常に簡単。鯖のrecv.phpは、受信したパラメータを表示するだけ。後々、受信したコード・時刻をデータベースに保存する処理を追加する。
[http.rb]
require ‘net/http’
Net::HTTP.version_1_2
Net::HTTP.start(‘192.168.1.100’, 80) { |http|
  rc = http.post(‘/barcode/recv.php’, ‘COD=xxxxxxxxxxxxy&TIM=2008-08-08 00:00:00’)
  puts rc.body
}
[recv.php]
<?
print_r($_POST);
?>

鎌倉観光　深谷霊園　インターンシップ

折角なので、受信したデータをcsvファイルへ書き出します。csv出力にはFasterCSVってのを使います。早いらしいです。ここからdownloadして、解凍後、ruby setup.rb とするとインスコできます。
先程のsourceを変更し、csvへの出力部分を追加します。CRコード受信時、writeするので受信文字はglobalに保存しておかなければいけません。csvファイルには、日時・受信文字列・フラグの順で出力します。フラグは後々、サーバへのデータ出力時に使用します。旨く行くと、以下の様なファイルが作成されます。
[recv.log]
2008-08-08 15:23:48,xxxxxxxxxxxxxxx,0
2008-08-08 15:23:53,xxxxxxxxxxxxxxx,0
以降の予定
・TCP/IPにて、http経由でデータ送信のテスト
・thread処理で上記処理をバーコードリーダ処理ソフトに組み込む
・サーバへの通信エラー時のリトライ処理
いじょ。

[bcr.rb]
require "wincons"
require "wincom"
require 'fastercsv'
class BCR
@bcd
def initialize
@bcd  = ""
@con1 = Console.new
@com5 = Serial.new
end
def Open
ir = @com5.open(5, 0x1807, 9600, 8, 0, 0, 256, 256)
return ir
end
def Close
@com5.close
end
def main
rc = @com5.receive
if rc != nil
for ia in 0..(rc.length - 1) do
if rc[ia].chr == "\r"
day = Time.now
printf("%s %s\r\n", day.strftime("%Y-%m-%d %H:%M:%S"), @bcd)
# CSV write
FasterCSV.open("recv.log", "a") { |csv|
csv << [day.strftime("%Y-%m-%d %H:%M:%S"), @bcd, '0']
}
@bcd = ""
else
@bcd += rc[ia].chr
end
end
end
ca, = @con1.keyin
if ca == "e" || ca == "E"
return 1
end
return nil
end
end
b  = BCR.new
ic = b.Open
if ic != nil
print "open error"
end
while ic == nil
ic = b.main
sleep 0.01
end
b.Close

鎌倉観光　深谷霊園

rubyですよ。xpにバーコードリーダをクッツケテ、読み込んでみます。磁気カードリーダみたいですが、バーコードリーダなのです。USB-RS232Cアダプタ経由でRS232Cにします。USB経由だとkeyboardインタフェースで読めるので何も必要ないのですが、windowsの場合、frontに無いと動けないので、backgroudで動作できるようにRS232C経由なのです。

Ruby-mswin32 (ja)をdonwloadして解凍します。マイコンピュータ・プロパティ→詳細設定→環境変数で解凍した所にpathを通します。
ここのlibraryを使用して、ごにょごにょやります。受信やらCRの処理で手間取りましたが、何とか。rubyは初めてなので変なcodeかもしれませんが、許して。動けば勝ち。

require "wincons"
require "wincom"
class BCR
def initialize
@con1 = Console.new
@com5 = Serial.new
end
def Open
ir = @com5.open(5, 0x1807, 9600, 8, 0, 0, 256, 256)
return ir
end
def Close
@com5.close
end
def main
rc = @com5.receive
if rc != nil
print rc
for ia in 0..(rc.length - 1) do
if rc[ia].chr == "\r"
print "\n"
end
end
end
ca, = @con1.keyin
if ca == "e" || ca == "E"
return 1
end
return nil
end
end
b  = BCR.new
ic = b.Open
if ic != nil
print "open error"
end
while ic == nil
ic = b.main
sleep 0.01
end
b.Close

鎌倉観光　深谷霊園