線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:824
推到 Plurk!
推到 Facebook!

如何將array[0..512] of UCHAR的資料存入資料庫中

尚未結案
fengcheng
一般會員


發表:17
回覆:21
積分:7
註冊:2002-04-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-09-10 15:04:40 IP:61.64.xxx.xxx 未訂閱
各位大大高手: 我有一個程式,需要將下列變數中的值存入資料庫中,以便 以後直接讀取使用,不知道應該如何存入資料庫,因為它既不是字申亦不是其他變數.小弟我就不會用了 Var FMin1, FMin2: array[0..512] of UCHAR;
ha0009
版主


發表:16
回覆:507
積分:639
註冊:2002-03-16

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-09-10 17:06:05 IP:219.80.xxx.xxx 未訂閱
你好:
  這類資料存在 Blob 裡面是最合適的,以 MS-SQL 來說是 binary 存取方式如下例:
  
// 資料表結構
CREATE TABLE [dbo].[Test] (
        [OID] [int] IDENTITY (1, 1) NOT NULL ,
        [Data] [binary] (513) NULL 
) ON [PRIMARY]    // 存入結構資料
var
  array[0..512] of UCHAR;
begin
  ADOTable1.Append;
  (ADOTable1.FieldByName('Data') As TBlobField).SetData(@aaa);
  ADOTable1.Post;
end;    // 取出結構資料
var
  array[0..512] of UCHAR;
begin
  if (ADOTable1.FieldByName('Data') As TBlobField).GetData(@aaa) then begin
  end else
    raise Exception.Create ('讀取錯誤');
end;
參考看看吧
    < src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">
        
fengcheng
一般會員


發表:17
回覆:21
積分:7
註冊:2002-04-23

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-09-10 17:19:12 IP:61.64.xxx.xxx 未訂閱
感謝大大, 不過在存入時出現了Invalid variant type. 不知道是什麼原因造成的..
ha0009
版主


發表:16
回覆:507
積分:639
註冊:2002-03-16

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-09-10 19:52:55 IP:219.80.xxx.xxx 未訂閱
你好:
  不好意思,我沒先試過< >
剛剛試了一下, >當然這次是測試過的< >    > '' then
    memo1.Lines.Add(OutStr);
end;    procedure TForm1.FormCreate(Sender: TObject);
var
  idx : integer;
begin
  for idx := Low (FData) to High (FData) do begin
    FData [idx] := Byte (idx);
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  Data2Text (FData);
  ADOTable1.Append;
  ADOTable1.FieldByName('Data').SetData(@FData);
  ADOTable1.post;
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
  FillChar (FData, SizeOf (TData), 0);
  ADOTable1.FieldByName('Data').GetData(@FData);
  Data2Text (FData);
end;    end.    
fengcheng
一般會員


發表:17
回覆:21
積分:7
註冊:2002-04-23

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-09-22 09:51:18 IP:61.64.xxx.xxx 未訂閱
感謝大大, 試過之後可以存入了, 但是取出時有點問題一樣是變數轉換的問題 這個我自己再試試嘍.
系統時間:2024-06-29 11:32:12
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!