向 MSSQL 插入 Impage 欄位型態的紀錄

bestlong

範例：

1. procedure Button1Click(Sender:TObject);
   
2. var
   
3.   Query : TQuery;
   
4.   StringStream : TStringStream;
   
5. begin
   
6.   StringStream := TStringStream.Create ('');
   
7.   Memo.Lines.SaveToStream (StringStream);
   
8.   StringStream.Position := 0;
   
9.   Query := TQuery.Create(self);
   
10.   Query.DatabaseName := Database.DatabaseName;
    
11.   with Query.SQL do
    
12.     begin
    
13.       Clear;
    
14.       Append ('INSERT INTO TEST');
    
15.       Append ('(ID,CONTENT)'); //CONTENT是一個 Image 欄位
    
16.       Append ('VALUES (:ID, :CONTENT)');
    
17.     end;
    
18.   with Query do
    
19.     begin
    
20.       ParamByName ('ID').asInteger := StrToIntDef (edtID.Text,0);
    
21.       ParamByName ('CONTENT').asBlob := StringStream.DataString; //就在這裡指定
    
22.     end;
    
23.   StringStream.Free; //用完了馬上 Free 掉
    
24.   Database.StartTransaction; //開始交易控制
    
25.   try
    
26.     Query.ExecSQL; //開始插入紀錄
    
27.     Database.Commit;
    
28.   except
    
29.     Query.Free; //如果出錯首先將 Query Free 掉
    
30.     Database.RollBack;
    
31.     raise; //重新引發例外, 以通知使用者
    
32.   end;
    
33.   Query.free;
    
34. end;

複製代碼