CTIパッケージを安く作ってみよう

LINQ with VisualBasic ( ASP.NET ) 　簡単サンプルを作ってみた

片桐　継（Tugu Katagiri） — Sat, 25 Aug 2007 01:16:00 GMT

お気楽サンプルで♪

要件は、ユーザーの電話番号をキーにして、DBに情報を蓄積したい。WEBから登録できるようにしたいなぁってカンジ。蓄積するテーブルはこんなの。

で、登録をする前のダブりチェックには、LINQを使ってみる。ついでに、エラーだったときはSessionオブジェクトにItemを追加して、ページでMSGを出すようにしておきたい。けれど、わざとポストバックを使わずに、超ローテクで作ってみるサンプル（笑）

userm.dbml

まずはこれを作らないと始まらないらしい（＾＾；

SQLServer（Expressでも可）にテーブルを作ってます。今回は電話番号登録用だけのマスターテーブルみたいなの。で、LINQ to SQL クラスを選択して、白紙に目的のテーブルをサーバーエクスプローラからD&D、ドラドロ、まぁドラッグアンドドロップ、すると

こうなるから、これを名前をつけて保存しておきます。これが無いと話にならんらしいの。

regist.aspx.vb

で、WEBの方は、電話番号入力（txTelno)、登録ボタン(BtnOK)、メッセージ表示(lb_MSG)を準備して、実際にロジックを作成。

Imports System.Linq Partial Public Class _Default Inherits System.Web.UI.Page Protected Sub BtnOK_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnOK.Click Dim wTELNO As Long = 0 Try wTELNO = CLng(TxTel.Text.Replace("-", "").Replace("(", "").Replace(")", "")) Finally End Try Using UserCheck As usermDataContext = New usermDataContext Dim user = From U In UserCheck.UserM _ Where U.TELNO = wTELNO _ Select U.TELNO If user.Count > 0 Then Dim mKey = From K In Session.Keys Where K.ToString = "MSG" If mKey.Count > 0 Then Session.Remove("MSG") Session.Add("MSG", "ユーザーはすでに登録済です") Response.Redirect("./regist.aspx") End If End Using End Sub Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim mKey = From K In Session.Keys Where K.ToString = "MSG" If mKey.Count > 0 Then lb_msg.Text = Session("MSG").ToString End Sub End Class

赤い文字がLINQロジック、青い文字はその検索結果、緑の文字がデータベースとの処理をしているLINQ to SQLのオブジェクト部分。うん、動いた動いた。まぁまだまだツッコミどころはいっぱいなんだろうけど、ちょっと判ってきた。これを敲き台にチェックロジックやらごにょごにょやらしていくか（笑）

ランプサンスーチョンうまｗｗｗ

オリジナルCTIはちまちまと

片桐　継（Tugu Katagiri） — Fri, 03 Aug 2007 14:48:00 GMT

ひさしぶりにこっちの進捗（笑）

サーバーが出来上がりました。

次はエントリWEB画面の製作になります。
こっちは、結局ACCESSファイルでVB.NET、CTIコンポーネントもVB.NETで製作予定です

設計は上がったんだよね。
方式も。

後は、作る手と時間と体力。
一番重い問題が残ってら（笑）

で、閑話休題（おい）

UDとかSETIとかあったけど、日本では「関が原の合戦CGアニメーション」製作をするそうです。
和製分散こんぴゅーちんぐプロジェクトなのは判ったけど……けど、そのスペックは（遠い目）

参加に関する注意本プロジェクトの計算を行うのに必要なパソコンのスペックは以下の通りです。

OS：WindowsXP、Windows2000、Mac OS X 10.4.8以上、RedHat Linux、Fedora 7
JavaVM：1.5update6以上が動作する環境
メモリ：必須　1024MB　推奨　2048MB以上
ハードディスク：1GB以上の空き容量

Java版コアクライアント1.0.1以降をこちらからダウンロードし、インストール後、以下の手順でコアクライアントを起動してください。
・Windowsの場合
　start.batを起動。
・Linux、Macintoshの場合
　java -jar -Xmx1024m cellcomputing.jar と入力し起動。

プロジェクトのURL https://cell.cellcomputing.net/sekigahara

<注意事項>
計算のために皆様のパソコンにダウンロード必要なデータの総量が配布時には数百MB、パソコンでの計算時には約1GB程度になる場合もあります。
プロジェクトに参加させるパソコンのハードディスクの空きが十分か確認してご参加ください。
また、メモリが少ないPCで参加した場合、クライアントソフトが停止してしまう可能性がありますので十分確認してご参加ください。

うちの最高スペックはPentiumDだ（大汗）

片桐　継（Tugu Katagiri） — Fri, 06 Jul 2007 14:22:00 GMT

ちまちまと開発をすすめているのだけれど……
どうも開発端末が非力らしい（汗）
で、再度、確認してみた（＾＾；

ExpressEditionで必要なシステム要件（抜粋）

VisualStadio Express Edition 共通
http://www.microsoft.com/japan/msdn/vstudio/express/support/readme/
　
プロセッサ
　最小 :
　　600 MHz Pentium プロセッサ
　推奨 :
　　1 GHz Pentium プロセッサ
RAM1
　最小 : 192 MB
　推奨 : 256 MB
ハードディスク容量
　最大 1.7 GB の空き容量が必要

SQLServer Express Edition
http://www.microsoft.com/japan/sql/editions/express/sysreqs.mspx

プロセッサ
　Intel Pentium III 600 MHz 以上または同等の互換プロセッサ (1 GHz 以上を推奨)
メモリ
　192 MB 以上のメモリ (512 MB 以上を推奨)
ハードディスク
　推奨構成でのインストール場合約 200 MB のハードディスクの空き容量
その他の要件
　Microsoft Internet Explorer 6.0 SP1 以上

つまり、両方を使いたい、となると

プロセッサ
　1 GHz Pentium プロセッサ
メモリ
　512 MB 以上のメモリ
ハードディスク容量
　最大 2.0 GB の空き容量が必要
その他の要件
　Microsoft Internet Explorer 6.0 SP1 以上

は最低限必要……と。
Microsoftの開発ツールは全体的に「昔の資産を生かす」という考え方が根本的に無いのね。

GUIを開発するのに本当にそれだけのスペックが必要なんだろうか。
動作するために必要になったランタイムや統合環境を使用するために消費されるメモリが多くなったのがきっと大きな原因だと思うの。
VisualBasic4.0を使ってたとき、少々の低スペックマシンでも何とか動いてたのはランタイム小さかったし、統合言語環境、は？、何それ？　的な立場で独自の「VBアプリ」って存在でやれていたからなんだろうなぁ（笑）

ま、嘆いていてもしかたないので、メモリ買ってきます……最低でも512Mにせなならんのやし……

懸案事項＆ぷろぐらむの初体験

片桐　継（Tugu Katagiri） — Thu, 05 Jul 2007 11:22:00 GMT

諦めてないぞ、~~オブ指分会参加~~安く作るぞCTI！というわけで、問題点をリストアップ～

・VOICEモデムPCIカードが大きくて収まらない→これはPCを省スペース型からミドルタワーに変更
・実はVOICEモデムのドライバはXP専用だった！→ミドルタワーはOSがWindows2000　←イマココ

で、探しに探して（どこを？）XPを新しくGETしました。え？Vista？何それ＜おいこらまて

ミドルタワーをWindows2000からWindowsXPへ変更
VOICEモデムカードをりべんじ
IISもいっちゃえ～っ！
SQLServerExpress導入
VisualStadioExpress導入（とりあえずVB＆WEB）
CALLID-OCXも導入→再度、ソースを作り直し→テスト

んー、やること一杯（笑）
夏バテなのにな～
焼肉たべたいな～（ちょっとだけ）
今年は浴衣着たいな～（おい）

話はぶっとんで、はじめてのプログラム（笑）
だってエントリ分けるの悪いし＜おい

　初めてのプログラムはN88-BASIC。会場で微笑むだけ、とか、得意の英語と古典を教えてるだけ、とかでバイト代が笑っちゃうほどもらえた花のぢょしだいせい時代、何を呆けてか、ぱそこん、なるものを買ったのが始まりです。当時、X68000にするかNEC98シリーズにするか迷って、結局PC98にしました。PC9801VM21、当時最速のV30CPUを積んでいた代物、金にモノを言わせてメモリも信じられない大容量4MBに増設!!　で、やってたのが、キャッスルとか、ウィーザードリーとか、ティルナノグとか、ソーサリアンとか、イースとか（おい）
　そんな時、付属で付いてきていた5インチフロッピーに、「N88-BASIC」というものがありました。リファレンスとかいう本もついてきてました。何を呆けてか、そこに書かれていた手順どおりに文字と数字を打ち込んで、動かしてみると、なんと！画面に○やら□やらが描かれます。びっくりでした。どうやったらこんな事ができるんだろう、そう思ったのが全ての始まりでした。

　気がつけば、プログラム解析やって、コード打ち込んで、動かして、また解析して……自分でモノを作り出していく面白さにはまりきってしまい、気がつけば妾マシン、X68000AceHD、Human68K　に手をだしてShellの世界を知ってしまい、BASICを知り、DOSコマンドを自在に駆使し……もう全てが初体験……つか、金持ちだったな、当時（爆笑）

　なにやってるんだ、ぢょしだいせい（笑）しかも、お前は、文系専門で、高校時代数学も物理もやってねーじゃねーか！　合コンしつつ、マハラジャしつつ、プログラムまでやってた頃、静かにバブルが終わろうとしてました（遠い目）

……で、今に至る（おい）

携帯端末番号を取得する

片桐　継（Tugu Katagiri） — Mon, 02 Jul 2007 18:30:00 GMT

タイトルのとおり。

イーモバイルとエッジは未対応なのでこれはこれから仕様書読んで追記、かな……ハンパですみませんです。

Public Class HPhone

　　Private Const DOCOMO1 As String = "/ser"
　　Private Const DOCOMO2 As String = ";ser"
　　Private Const VODA1 As String = "/SN"

　　Public Function GetHID(ByVal UserAgent As String, ByVal XSubNo As String, ByVal IP As String) As String

　　　　If UserAgent = "" Then Return ""

　　　　Dim HID As String = ""

　　　　'キャリアを検出して端末番号を取得する。だめだった場合はIPを記録
　　　　Select Case True
　　　　　　Case UserAgent.Contains(DOCOMO1)
　　　　　　　　HID = UserAgent.Split("/"c).GetValue(UserAgent.Split("/"c).GetUpperBound(0)).ToString.Replace("ser", "")
　　　　　　Case UserAgent.Contains(DOCOMO2)
　　　　　　　　HID = UserAgent.Split(";"c).GetValue(UserAgent.Split(";"c).GetUpperBound(0) - 1).ToString.Replace("ser", "")
　　　　　　Case UserAgent.Contains(VODA1)
　　　　　　　　HID = UserAgent.Split(" "c).GetValue(0).split("/"c).getvalue(UserAgent.Split(" "c).GetValue(0).ToString.Split("/"c).GetUpperBound(0)).ToString.Replace("SN", "")
　　　　　　Case Else
　　　　　　　　If XSubNo = "" Then
　　　　　　　　　　HID = IP
　　　　　　　　Else
　　　　　　　　　　HID = XSubNo.Split("."c).GetValue(0).ToString
　　　　　　　　End If
　　　　End Select

　　　　Return HID
　　End Function

End Class

自分用のメモも兼ねてるけどね（笑）

VB Express で TAPI のCTI ～その１

片桐　継（Tugu Katagiri） — Mon, 28 May 2007 09:07:00 GMT

キャプテン・ジャック・スパロゥって変なやつｗ　
ジョニー・デップなのも、変さに輪をかけてるというかさ、つか、暑苦しいなぁ……（やめなさい）

ということは置いといて、タイトルのシリーズ。今、抱えている案件なんですが、ちまちまとやってるわけです。
今更のCTIなんだけど、なめちゃいけない。一から作るとなると泣くよ？しかもOCX高いよ？

で、安く作ろう、見たいな目論見のもと、いきなりプロジェクト始めました。

CTIパッケージ、どこまで安く出来るのか（笑）

安く開発環境を作ろう

安くて高性能PCをGet！中古の省スペースでPentiumDの激安みっけ♪これはけっこう簡単。
内蔵FAX-Voiceモデム、これも簡単。

そう、なんて簡単なんだ！ハードウェアをそろえるなんて！＜バカ
ええバカでしたよ、大馬鹿ですよ。

http://primeserver.fujitsu.com/primergy/comment/vol1/img01.html

PCIカードには、サイズ、というものがあります。
これ、ちゃんと見ておかないと、省スペースPCだとカードが入らないことがあるんです。
フツーのミドルタワーかデスクトップにしとけと小一時間ｗ

まぁ、とりあえず、蓋しなければ繋がっているので、そのままにして、OSセット。

とりあえず、付いてきたWinXPProでそのままGO。
ドライバ導入もちょちょぃっとOK。
VisualBasicExpressも入ってOK。

ここで、次に、CTI構築用のOCXをダウンロードして導入。
今回はCallerIDという海外製を使います。
JPY(Japanese Yen)で9000円もあればOKです。破格の安さですね。

さ、とりあえず、開発環境はそろった。
次はプログラミングにかかりますよ～。