|目次|前ページ|次ページ|
───────────────────────────────────
19.イメージ表示面のシーケンス再確認
---------------------------------------------------------------------
■<<<イメージ表示面のサイズを取得>>>
---------------------------------------------------------------------
[1] シーケンス
cid <== イメージ表示面のコントロールid番号
<esc>%70;600;cid;;; sp M
【応答メッセージ】がtelnetサーバから送信されて来ます
───────────────────────────────────
[2] Cache用共通関数
cid <== イメージ表示面のコントロールid番号
D GETSIZE^ZVCMIMG6
【応答メッセージ】
Rselno -> イメージ表示面の幅をピクセル単位で
Rselcnt -> イメージ表示面の縦方向のサイズをピクセル数で
Rerr2 -> 内部エラー(処理の過程や例外発生エラー)
───────────────────────────────────
◆ Windowsファイルからイメージコントロールに描画(LoadFromFile())
───────────────────────────────────
[1] シーケンス
cid <== イメージ表示面のコントロールid番号
[4]edit <-- ファイルパス名(.BMP/.DIB/.ICO/.JPG/.JPEG)を受け渡す編集領域番号
[6]stretch <-- 0:元のまま 1:枠に収まるように変更
[7]center <-- 0:左上隅 1:中央に表示
[8]scale <-- (JPEGファイルのみ)0:フルサイズ 2:1/2サイズ 4:1/4サイズ 8:1/8サイズ
<esc>%70;610;[3]id;[4]edit;;[6]stretch;[7]center;[8]scale;; sp M
※ Windowsファイルからイメージコントロールに描画します
───────────────────────────────────
[2] Cache用共通関数
cid <== イメージ表示面のコントロールid番号
edit <-- ファイルパス名(.BMP/.DIB/.ICO/.JPG/.JPEG)を受け渡す編集領域番号
editstr <-- ファイルパス名
stretch <-- 0:元のまま 1:枠に収まるように変更
center <-- 0:左上隅 1:中央に表示
scale <-- (JPEGファイルのみ)0:フルサイズ 2:1/2サイズ 4:1/4サイズ 8:1/8サイズ
D LOADFROMFILE^ZVCMIMG6
【応答メッセージ】
Rselno -> 読み込み後のJPEG,ビットマップの幅をピクセル単位で
Rselcnt -> 読み込み後のJPEG,ビットマップの縦方向のサイズをピクセル数で
Rerr2 -> 内部エラー(処理の過程や例外発生エラー)
───────────────────────────────────
◆ イメージコントロールからWindowsファイルに格納(SaveToFile())
───────────────────────────────────
[1] シーケンス
cid <== イメージ表示面のコントロールid番号
[4]edit <-- ファイルパス名(.BMP/.DIB/.ICO/.JPG/.JPEG)を受け渡す編集領域番号
[8]compress <-- (JPEGファイルのみ)圧縮率 0:以前の値
1(サイズ最小) <---> 100(画質最高)
<esc>%70;611;[3]id;[4]edit;;;;[8]compress;; sp M
※ イメージコントロールからWindowsファイルに格納します
───────────────────────────────────
[2] Cache用共通関数
cid <== イメージ表示面のコントロールid番号
edit <-- ファイルパス名(.BMP/.DIB/.ICO/.JPG/.JPEG)を受け渡す編集領域番号
editstr <-- ファイルパス名
compress <-- (JPEGファイルのみ)圧縮率 0:以前の値
1(サイズ最小) <---> 100(画質最高)
D SAVETOFILE^ZVCMIMG6
【応答メッセージ】
Rselno -> 格納時のJPEG,ビットマップの幅をピクセル単位で
Rselcnt -> 格納時のJPEG,ビットマップの縦方向のサイズをピクセル数で
Rerr2 -> 内部エラー(処理の過程や例外発生エラー)
───────────────────────────────────
◆ JPEGファイルからイメージコントロールに描画(LoadFromFile())
───────────────────────────────────
[1] シーケンス
cid <== イメージ表示面のコントロールid番号
[4]edit <-- ファイルパス名(.JPG/.JPEG)を受け渡す編集領域番号
[6]stretch <-- 0:元のまま 1:枠に収まるように変更
[7]center <-- 0:左上隅 1:中央に表示
[8]scale <-- 0:フルサイズ 2:1/2サイズ 4:1/4サイズ 8:1/8サイズ
<esc>%70;620;[3]id;[4]edit;;[6]stretch;[7]center;[8]scale;; sp M
※ JPEGファイルからイメージコントロールに描画します
───────────────────────────────────
[2] Cache用共通関数
cid <== イメージ表示面のコントロールid番号
edit <-- ファイルパス名(.JPG/.JPEG)を受け渡す編集領域番号
editstr <-- ファイルパス名(.JPG/.JPEG)
stretch <-- 0:元のまま 1:枠に収まるように変更
center <-- 0:左上隅 1:中央に表示
scale <-- 0:フルサイズ 2:1/2サイズ 4:1/4サイズ 8:1/8サイズ
D LOADFROMJPEG^ZVCMIMG6
【応答メッセージ】
Rselno -> 読み込み後のJPEG,ビットマップの幅をピクセル単位で
Rselcnt -> 読み込み後のJPEG,ビットマップの縦方向のサイズをピクセル数で
Rerr2 -> 内部エラー(処理の過程や例外発生エラー)
───────────────────────────────────
◆ イメージコントロールからJPEGファイルに格納(SaveToFile())
───────────────────────────────────
[1] シーケンス
cid <== イメージ表示面のコントロールid番号
[4]edit --> ファイルパス名(.JPG/.JPEG)を受け渡す編集領域番号
[8]compress --> 圧縮率 0:以前の値
1(サイズ最小) <---> 100(画質最高)
<esc>%70;621;[3]id;[4]edit;;;;[8]compress;; sp M
※ イメージコントロールからJPEGファイルに格納します
───────────────────────────────────
[2] Cache用共通関数
cid <== イメージ表示面のコントロールid番号
edit <-- ファイルパス名(.JPG/.JPEG)を受け渡す編集領域番号
editstr <-- ファイルパス名(.JPG/.JPEG)
compress <-- 圧縮率 0:以前の値
1(サイズ最小) <---> 100(画質最高)
D SAVETOJPEG^ZVCMIMG6
【応答メッセージ】
Rselno -> 格納時のJPEG,ビットマップの幅をピクセル単位で
Rselcnt -> 格納時のJPEG,ビットマップの縦方向のサイズをピクセル数で
Rerr2 -> 内部エラー(処理の過程や例外発生エラー)
───────────────────────────────────
19
|目次|前ページ|次ページ|