モバイル・デバイスのカメラを使って写真を撮ったり、モバイル・デバイスの写真ライブラリにアクセスします。
プロパティ
Source
イメージのソース元を示す列挙値。有効なオプション:
CAM: カメラから写真を撮影
LIB: 写真ライブラリから写真を選択
EnableImage
デバイスの写真撮影の有効・無効を示すブール値です。
EnableVideo
デバイスのビデオ撮影の有効・無効を示すブール値です。
SaveToPhotoGallery
写真をギャラリーに保存するかどうかを示すブール値です。
ReturnBase64String
base64 エンコーディングの文字列としてイメージ・データを返すかどうかを示すブール値です。
ReturnFile
イメージまたはビデオ・ファイルのパスと URL を返すかどうかを示すブール値です。
AllowEdit
サイズ調整などイメージやビデオ・クリップの編集をユーザーに許可するかどうかを示すブール値です。編集機能はデバイスにより異なります。
EnableAnnotation
カメラで撮影したまたはアルバムからの写真にコメントを付けることができるかどうかを示すブール値です。
VideoQuality
ビデオの質レベルを選択する列挙値です。有効なオプション: LOW (低)、MED (中)、HIGH (高)
VideoMaxDuration
ビデオの長さの制限値を秒数で表す整数値です。無制限にするには 0 を設定します。
OutputPath
カメラによって作成されるファイルの完全修飾パスを示す文字列値です。
OutputFile (READONLY)
イメージまたはビデオのファイルの論理パスを含む文字列値です。
OutputUrl (READONLY)
イメージまたはビデオのファイルの URL を含む文字列値です。
IsImage (READONLY)
イメージが撮れたかどうかをユーザーに知らせるブール値です。
IsVideo (READONLY)
ビデオが撮れたかどうかをユーザーに知らせるブール値です。
ImageAsBase64Data (READONLY)
base64 としてエンコーディングされたイメージ・データを含む文字列値です。
メソッド
ActivateCamera
デバイスのカメラを有効にします。
- 入力引数: なし
- 出力引数: なし
- 戻り値: 状態コード
SetImageSize
イメージのサイズを設定します。イメージの実際のサイズを設定するには、幅と高さに 0 を設定します。
入力引数:
名前
タイプ
必須
説明
Orientation
列挙値
はい
サイズが特定の方向に適用されるかどうかを指定します。適用される場合、反対方向のサイズは入れ替えられます。
有効な値: BOTH、PORT、LANDWidth
整数
はい
イメージの幅
Height
整数
はい
イメージの高さ
- 出力引数: なし
- 戻り値: なし
SetBase64ImageSize
base64 にエンコーディングされた時のイメージのサイズを指定します。イメージのサイズ設定を利用する場合、幅と高さに 0 を設定します。
入力引数:
名前
タイプ
必須
説明
Orientation
列挙値
はい
サイズが特定の方向に適用されるかどうかを指定します。適用される場合、反対方向のサイズは入れ替えられます。
有効な値: BOTH、PORT、LANDWidth
整数
はい
イメージの幅
Height
整数
はい
イメージの高さ
- 出力引数: なし
- 戻り値: なし
イベント
Completed
イメージ/ビデオが撮られた時に起動します。
パラメータ：
名前
タイプ
説明
Status
列挙値
状態コードを参照してください。
Message
文字列
サンプル・コード
推奨のコーディングは以下の通りです。ビデオを撮っている場合、データはファイルとして (ReturnFile := true) 戻し、ReturnBase64String に FALSE を設定します。
Define_Com Class(#xDeviceCamera) Name(#CameraUse) Evtroutine Handling(#COM_OWNER.Initialize) #ActivateCamera.Enabled := false Endroutine Evtroutine Handling(#CameraUse.Initialize) #ActivateCamera.Enabled := true Endroutine Evtroutine Handling(#ActivateCamera.Click) #CameraUse.Source := CAM #CameraUse.EnableImage := true #CameraUse.EnableVideo := false #CameraUse.SetImageSize( PORT #ImageSizeWidth.Value.AsInteger #ImageSizeHeight.Value.AsInteger ) #CameraUse.SaveToPhotoGallery := true #CameraUse.ReturnBase64String := true #CameraUse.SetBase64ImageSize( PORT #Base64Width.Value.AsInteger #Base64Height.Value.AsInteger ) #CameraUse.ReturnFile := true #CameraUse.AllowEdit := false #CameraUse.EnableAnnotation := true #CameraUse.VideoQuality := HIGH #CameraUse.VideoMaxDuration := #VideoMaxDuration.Value.AsNumber #CameraUse.OutputPath := #OutputPath #CameraUse.ActivateCamera() Endroutine Evtroutine Handling(#CameraUse.Completed) Status(#lstatus) Message(#message) If (#lstatus = OK) #GeneratedFile := #CameraUse.OutputFile #GeneratedFileUrl := #CameraUse.OutputUrl If (#CameraUse.IsImage) #GeneratedType := 'Image' Else #GeneratedType := 'Video' Endif If (#CameraUse.ImageAsBase64Data <> "") #Base64 := #CameraUse.ImageAsBase64Data #LastImage.FileName := "data:image/png;base64," + #CameraUse.ImageAsBase64Data Endif Else #Status := #message Endif #Status := #lstatus Endroutine Write to a local file (xDeviceFileWrite) Define_Com Class(#xDeviceFileWrite) Name(#FileWriter) Evtroutine Handling(#COM_OWNER.Initialize) #Write.Enabled := false Endroutine Evtroutine Handling(#FileWriter.Initialize) #Write.Enabled := true Endroutine Evtroutine Handling(#Write.Click) #FileWriter.FileName := '/recipes/appleStrudel' #FileWriter.FileType := BIN #FileWriter.FileEncoding := UTF8 #FileWriter.DataEncoding := BASE64 #FileWriter.Data := 'Add 3 eggs and 4 cups of sugar' #FileWriter.Write() Endroutine Evtroutine Handling(#FileWriter.Completed) Status(#returnedStatus) Message(#message) #Status := #returnedStatus If (#Status <> OK) #StatusMessage := #message Endif Endroutine Read a local file (xDeviceFileRead) Define_Com Class(#xDeviceFileRead) Name(#FileReader) Evtroutine Handling(#COM_OWNER.Initialize) #Read.Enabled := false Endroutine Evtroutine Handling(#FileReader.Initialize) #Read.Enabled := true Endroutine Evtroutine Handling(#Read.Click) #FileReader.FileName := '/recipes/chocolateCake' #FileReader.FileType := TEXT #FileReader.FileEncoding := UTF8 #FileReader.DataEncoding := NONE #FileReader.Read() Endroutine Evtroutine Handling(#FileReader.Completed) Status(#returnedStatus) Data(#returnedData) Message(#message) #Status := #returnedStatus If (#Status = OK) #Data := #returnedData Else #StatusMessage := #message Endif Endroutine