PB 電子会議室

コメント

発言No. 更新日 題名(クリックすると発言内容と関連するコメントが表示されます)
11153 00/04/26 14:48:26 RE(4):PB6.5: LEADTOOLSを使って画像を保存したいんですが・・・ By イモぐらぶ
11151 00/04/26 13:07:07 RE(3):PB6.5: LEADTOOLSを使って画像を保存したいんですが・・・ By てとらぽっと
11150 00/04/26 10:01:15 RE(2):PB6.5: LEADTOOLSを使って画像を保存したいんですが・・・ By イモぐらぶ
11149 00/04/25 16:24:36 RE(1):PB6.5: LEADTOOLSを使って画像を保存したいんですが・・・ By M.M
11142 00/04/25 10:10:06 PB6.5: LEADTOOLSを使って画像を保存したいんですが・・・ By イモぐらぶ

カテゴリ:PowerBuilderの開発環境
日付:2000年04月26日 10:01 発信者:イモぐらぶ
題名:RE(2):PB6.5: LEADTOOLSを使って画像を保存したいんですが・・・

M.Mさん、おはようございます。

すみません。説明が悪かったようで・・・マニュアルにある原文をそのまま載せます。

///////////////////////////////////////////////////////////////////////
Save機能 指定したファイルにビットマップを保存します。

書式

Visual Basic [form.]Lead.Save(pszName$, iFormat%, iBitsPerPixel%, iQuality%, bMultiPage)
C++ short Save(BSTR pszName, short iFormat, short iBitsPerPixel, short iQuality, BOOL 
bMultiPage);

引数
pszName ファイル名
iFormat ファイル形式
iBitsPerPixel 1ピクセルあたりのビット数(1,4,8,16,24,32)
iQuality Qファクター
bMultiPage マルチページファイルを使用するかどうかのフラグ

以下はiFormatのところに指定できるファイル形式
FILE_JTIF          TIFF(JPEG 圧縮、YUV 4:4:4) 24(カラー)
FILE_LEAD2JTIF TIFF(JPEG 圧縮、YUV 4:2:2) 24(カラー)
FILE_LEAD1JTIF    TIFF(JPEG 圧縮、YUV 4:1:1) 24(カラー)

(省略)

FILE_JFIF          JPEG ファイル互換形式 8(グレースケール)(YUV 4:4:4) 24(カラー)


以下はVBとVCのサンプルスクリプトです。(PNG 形式で保存)
vb:Lead1.Save \"C:\\LTOCX\\IMAGES\\TMP.PNG\", FILE_PNG, 8, 1, False
vc:m_Lead1.Save(\"C:\\\\LTOCX\\\\IMAGES\\\\TMP.PNG\", FILE_PNG, 8, 1, FALSE);
////////////////////////////////////////////////////////////////////////

以下は私が書いたスクリプトです。(JPG 形式で保存)

OLE_LEAD.OBJECT.SAVE(\"C:\\IMG\\IMG.JPEG\",FILE_JTIF,24,1,FALSE)

PBでは\"FILE_JTIF変数は宣言されていません\"となってしまいます。

※FILE_JTIFに適当な数値をいれて実験しましたところある数値ではエラーが返ってきませんでした。
しかしファイルは保存されていませんでした。


付加情報:

PowerBuilder Version (記載なし)

Client SoftWare

OS Windows95
DBMS (記載なし)
Browser (記載なし)

Server SoftWare

OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.