Data.DB.TBlobField.Assign
Delphi
procedure Assign(Source: TPersistent); override;
C++
virtual void __fastcall Assign(System::Classes::TPersistent* Source);
プロパティ
| 種類 | 可視性 | ソース | ユニット | 親 |
|---|---|---|---|---|
procedure function |
public | Data.DB.pas Data.DB.hpp |
Data.DB | TBlobField |
説明
値を BLOB 項目にコピーします。
Assign メソッドを呼び出すと，データを BLOB 項目にコピーできます。Assign メソッドは BLOB 項目の Value を以下の項目またはオブジェクトからコピーします。
ほかの BLOB 項目
TStrings オブジェクト
TPicture または TBitmap オブジェクト（BlobType プロパティが ftGraphic または ftTypedBinary の場合）
Assign メソッドで TBlobField をサポートしている任意のオブジェクト
以下の例では，TBlobField 項目オブジェクトで TImage コンポーネントから BLOB 項目にビットマップをコピーするのに Assign メソッドを使用しています。
if not (ClientDataSet1.State in [dsInsert, dsEdit]) then
ClientDataSet1.Insert;
ClientDataSet1Images.Assign(Image1.Picture);
ClientDataSet1.Post;
if ((ClientDataSet1->State != dsInsert) &&
(ClientDataSet1->State != dsEdit))
ClientDataSet1->Insert();
ClientDataSet1Images->Assign(Image1->Picture);
ClientDataSet1->Post();