掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
dbExpressを用いてBLOBファイルを保存するには？ (ID:22668)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
HOta様 何度もお手数をおかけします。 下記のようにストリームを使用しているのですが、、同じようにエラーがでます。具体的な例などご存知であればご教授ください。お願いいたします。 function Data:boolean; var SetQry : TSQLQuery; Bs : TSQLBlobStream; begin Result := False; Bs := TSQLBlobStream.Create(TBlobField(Table1.FieldByName('あああ')),bmWrite); bmp.LoadFromFile('FaceImage.bmp'); bmp.SaveToStream(Bs); SetQry := TSQLQuery.Create(Application); SetQry.SQLConnection := dmdbExDM.dbConn; if not dmdbExDM.dbConn.Connected then dmdbExDM.dbConn.Open; with SetQry do begin try try SQL.Clear; SQL.Add(INSERT文); ParamByName('あああ').LoadFromStream(Bs,ftOraBlob); Prepared := True; ExecSQL; except on E: EDBEngineError do begin Exit; end else Raise; end; finally Close; Prepared := False; Free; end; end; Result := True; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.