如何將array[0..512] of UCHAR的資料存入資料庫中 |
尚未結案
|
fengcheng
一般會員 發表:17 回覆:21 積分:7 註冊:2002-04-23 發送簡訊給我 |
|
ha0009
版主 發表:16 回覆:507 積分:639 註冊:2002-03-16 發送簡訊給我 |
你好: 這類資料存在 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 發送簡訊給我 |
|
ha0009
版主 發表:16 回覆:507 積分:639 註冊:2002-03-16 發送簡訊給我 |
你好: 不好意思,我沒先試過< > 剛剛試了一下, >當然這次是測試過的< > > '' 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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |