Webサーバからbase64で取得した画像を、ピクチャー変数で表示する

4DのWebサーバからHTTPプロトコルでbase64データを取得、BLOBにデコードしてピクチャーに変換。

下記はサーバ上に保管している特許証を取得して出願番号や登録番号と一緒に表示するプログラムの一部を紹介。

//web経由で　ピクチャーを取得
	C_LONGINT($cnt)
	ARRAY OBJECT($aryObj; 0)
	C_OBJECT($objParam)
	$objParam:=New object
	TY_NewParamObj($objParam)
	$objParam.ty_id:=TY08_varTY_ID_get
	$objParam.web_method_name:="w_Query_aryObj"
	$objParam.server_method_name:="TY_Query_onServer"
	$cnt:=JCL_web_Query_aryObj($objParam; ->$aryObj)
	
	vTY08_txtShutsuganBangou:=$aryObj{1}.shutsugan_bangou
	vTY08_fldTourokuBangou:=$aryObj{1}.touroku_bangou
	vTY08_txtTourokuBi:=$aryObj{1}.tourokubi
	vTY08_txtFileName:=$aryObj{1}.file_name
	
	//JPEGを表示
	$base64:=$aryObj{1}.base64
	BASE64 DECODE($base64; $blob)
	BLOB TO PICTURE($blob; vTY08_picTokkyoShou)

テストしたのはJPEGとPDF。PNGも大丈夫。

JCL_seb_Query_aryObjについては、別のブログで説明する。