TMSWebCore

さて、TMSWebcoreのマニアックな情報です。 たぶん日本で数人しか興味ないと思います。（笑） 私が身をもって確かめたことを共有しておきます。 それほどレアです。 TMSWebcoreではJavaScript側からPascal側を呼ぶことができるのですが、 その方法について本当に限られた情報しかありません。 逆については asm end; 内にJavaScriptを書くというわかりやすい手順です。 まあこの情報もマニュアルにしっかり書いてあるかというとそうでもないのですが。 いろいろ情報を探すうちに覚えるというところはあります。 そうPas2jsでトランスパイルする形ですので、Pascal…

さて,TMSWebCoreのJSON取り出しですが、 ものすごい手法を発見してしまいました。 わかりやすさでは前回を上回ります。 効率は？ですが、ご紹介します。 var s:string; v:integer; begin s:=SocketData.jsobject.toString; asm let jo=JSON.parse(s); v=jo.hoge; end; v:=v+1; ： ； end; です。 気持ち悪い構文が並んでいますね（笑） asm ～ end; の間のBlockにはJavaScriptが書けます。 なので、受信したJSON文字列 sをJavaScriptに渡します。 …

さて、TMS Webcoreです。 WebSocketから受信した時にJSON形式の伝文で送られてきた場合の 値取り出しについて、あまりに情報がないので、書いておきます。 通常はhogeのキーでstrに値が取り出されますが文字列です。 str:=jo.GetJSONValue('hoge'); という記法がBasicなやり方みたい。 しかし文字->数値変換などが必要な場合、 関数をかまさないといけません。 JavaScript側で数値だったものをJSONにしてまたDelphi側に数値で戻したい わけです。 できることはわかっていますが、記法が面倒だなということで、調べますと、 GetValue…

さて TMSWebCoreの超マイナーネタです。 TTMSFNCStatusBarというFNCコンポでWebcoreでも使える ステータスバーがあります。 貼っただけで即使えますが、既存のItem内がテキストか時間、時刻 などあまり私が欲しいタイプが選べません。 何か欲しいかというと四角のエリアで文字と背景の四角領域の色が変えられるものが 欲しいです。ＦＡ用途で通信ステータスを表示するのに長年この方法を 使っています。 頭を切り替えて別の方法でもいいですが、やっぱりこれがＵＩとしては しっくりきます。 ＦＡ系の人はわかってくれるかと。 そうなるとOwnerDrawで自分でやれというオプションが…