REALbasic

子ディレクトリにテキストファイル書き込み

アプリケーションを実行しているカレントディレクトリの子ディレクトリにアプリの設定などを保存したい場合の処理。 //tmpは書き込みたい内容 Dim cr as String cr=EndOfLine.Windows //crにWindowsの改行コード(CR+LF)を代入 Dim tmp as string //tmpは書き…

ソフトウェア終了時に問いかける

Dim n as Integer n=MsgBox("終了しますか?",36) If n=6 then return false elseif n=7 then return true end ifこれをCancelCloseに書けばOKです。 ウィンドウを閉じたときに終了しますか?と問いかけます。

ウィンドウを閉じたときにアプリケーションを終了

Application.AutoQuitを使います。 具体的には、Openあたりに「app.AutoQuit=True」などと。 するとMacでもウィンドウを閉じるとソフト自体も終了します。リファレンスを見ると、「AutoQuit defaults to True on non-MDI Windows applications and True on L…

TCP通信でバイナリ送信

Dim m as New MemoryBlock(4) m.byte(0)=Val(”&h54″) m.byte(1)=Asc(”R”) m.byte(2)=84 m.byte(3)=80 MainSocket.Write(str(m))“TRTP”を送信している。バイト配列が無いなーと思ったら、MemoryBlockクラスがあるのね。文字列とバイナリを送りたいのだが、う…