手順TForm_QTOrder1.ShowPic;
VAR
VSTR：TADOBlobStreamを。
VTMP、vPicType：文字列。
vtmpPath：PChar型;
始める
継承されました。
Image1.Picture.Graphic：=ニル; //画像の画像制御クリア
VSTR：= TADOBlobStream.Create（TBlobField（QueryBill4.FieldByName （ 'フォトギャラリー'））、bmReadを）; // BlobStreamを作成し、フォトギャラリーフィールドが設定されているブロブ専用フィールドと読み取り
vstr.Size 0 = 0、次に//ストリームサイズが終了し、何も画像がないことを示した場合に
開始
、終了する
; END
= CheckImgType（VSTR）; //画像タイプかどうかを決定する：vPicType
vstr.Position：0 = ; //の先頭へのポインタ
GetMem（vtmpPath、MAX_PATH）; //一時ディレクトリを取得
GetTempPath（MAX_PATH、vtmpPath）; //一時ディレクトリを取得
VTMP：=のStrPas（vtmpPathを）; // 一時ディレクトリを取得
FreeMemの（vtmpPathを）; / /変数リリース
= VTMP + PubData1.GetGUIDString + +：VTMP vPicTypeを; // 一時ディレクトリとファイル名、ファイル名とパス合成''
TBlobField（QueryBill4.FieldByName（ 'Picsの'））SaveToFileメソッド（VTMP）; //から。 BLOBフィールドを保存する一時ファイルに画像データを読み込みます
Image1.Picture.LoadFromFile（VTMP）; //イメージコントロールが一時ファイル読み込み
DeleteFileを（VTMPを）; //一時ファイルの削除
Application.ProcessMessagesを;
END;