http://delphi.ktop.com.tw/topic.asp?TOPIC_ID=64122
這種欄位一般是用 TBlobField 來處理, 配合 TMemoryStream 來進行會比較理想, 請參考,
代碼: 選擇全部
var
ms: TMemoryStream;
size: integer;
...
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('INSERT INTO B ');
Query.SQL.Add(' (ID, NAM, PCT, PRICE) ');
Query.SQL.Add('valueS ');
Query.SQL.Add(' (:ID, :NAM, :PCT, :PRICE) ');
Query.ParamByName('ID').value = A.FieldByName('ID').value;
Query.ParamByName('NAM').Valie = A.FieldByName('NAM').value;
size := TBlobField(A.FieldByName('PCT')).BlobSize;
ms := TMemoryStream.Create;
ms.Size := size;
TBlobField(A.FieldByName('PCT')).SaveToStream(ms);
Query.ParamByName('PCT').SetBlobData(ms.Memory, ms.Size);
Query.ParamByName('PRICE').value = A.FieldByName('PRICE').value;
Query.ExecSQL;
ms.Free;