Array Of Byte 如何存入數據庫 |
|
尚未結案
|
|
Teamfaith
一般會員   發表：3 回覆：4 積分：1 註冊：2005-05-20 發送簡訊給我 |
大大們好, 我想問array of byte該如何存入數據庫中 謝謝!!! 附帶程或碼如下:-
procedure TForm1.Button2Click(Sender: TObject);
var
DateStr, TimeStr : String;
FS : TFileStream;
BS : TBlobStream;
MS : TMemoryStream;
BMP: TBitmap;
FPR_id, RTN_result : integer;
F_image : array[0..256*304-1] of byte;
F1_image : array[0..255] of byte;
begin
BMP := TBitmap.Create;
BMP.Assign(image1.Picture);
// MS := TMemoryStream.Create();
// image1.Picture.Bitmap.SaveToStream(MS);
// FS := TFileStream.Create('g:\finger1.bmp',fmOpenRead); query1.sql.Clear;
query1.SQL.Add('insert into test_table (test_date,test_time,test_image) values (:ptest_date,:ptest_time,:ptest_image)');
DateStr := formatdatetime('dd-mm-yyyy',now);
TimeStr := formatdatetime('hh:nn:ss',now);
query1.ParamByName('ptest_date').AsString := DateStr;
query1.ParamByName('ptest_time').AsString := TimeStr;
// query1.ParamByName('ptest_image').LoadFromStream(MS,ftBlob);
query1.paramByName('ptest_image').SetBlobData(@F_image,77823);
// query1.ParamByName('ptest_image')
query1.ExecSQL;
table1.CommitUpdates;
table1.Refresh;
dbgrid1.Refresh;
dbnavigator1.Refresh;
FS.Free;
end;
|
|
hagar
版主   發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
看樣子您是想將 Image1 的圖存入 DB 中
參考如下幾篇:
http://delphi.ktop.com.tw/topic.php?topic_id=66207
http://delphi.ktop.com.tw/topic.php?topic_id=47263
http://delphi.ktop.com.tw/topic.php?topic_id=32221
http://delphi.ktop.com.tw/topic.php?topic_id=41938 --
hagar.
|
|
Teamfaith
一般會員 發表：3 回覆：4 積分：1 註冊：2005-05-20 發送簡訊給我 |
發表時間：2005-06-03 16:11:44
IP:210.176.xxx.xxx 未訂閱
系統時間：2024-06-26 20:50:59
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |