delphi的万能数据库操作

 好多人都抱怨delphi没有提供一个可以把任意数据放入数据库的控件，虽然说用代码实现也不难，但是有控件会更方便，这次我终于还是抽出空来做了这么个控件，以后就可以直接拖放了。它支持把任意数据类型写入数据库，也可以从数据库读出到流，或是直接保存为文件。另外，我加了一些对常用图像的处理，保存 jpg或是gif格式的图像很方便，并且可以直接显示到image上。

 

1. unit RaDBOLE;
3. interface
5. uses
6.   SysUtils, Classes, DB, DBTables, JPEG, ExtCtrls, GIFCtrl;
8. type
9.   TImageType = (itBMP, itJPG, itGIF, itOther);
10.   TOnSaveData = procedure(Sender: TObject) of object;
11.   TOnLoadData = procedure(Sender: TObject) of object;
12.   TOnShowImage = procedure(Sender: TObject; ImageType: TImageType) of object;
14. type
15.   TRaDBOLE = class(TComponent)
16.   private
17.     fDataSet: TDataSource;
18.     fDataField: string;
19.     fImage: TImage;
20.     fGifImage: TRxGIFAnimator;
21.     fOnSaveData: TOnSaveData;
22.     fOnLoadData: TOnLoadData;
23.     fOnShowImage: TOnShowImage;
24.   protected
26.   public
27.     constructor Create(AOwner: TComponent); override;
28.     {保存到数据库}
29.     function SaveToDatabase(AFileName: string): boolean;
30.     {追加到数据库}
31.     function AppendToDatabase(AFileName: string): boolean;
32.     {从数据库读出到流}
33.     function LoadToStream(var AStream: TStream): boolean;
34.     {从数据库读出到文件}
35.     function LoadToFile(AFileName: string): boolean;
36.     {读取图片}
37.     procedure GetImage;
38.   published
39.     property DataSet: TDataSource read fDataSet write fDataSet;
40.     property DataField: string read fDataField write fDataField;
41.     property Image: TImage read fImage write fImage;
42.     property GifImage: TRxGIFAnimator read fGifImage write fGifImage;
43.     property OnSaveData: TOnSaveData read fOnSaveData write fOnSaveData;
44.     property OnLoadData: TOnLoadData read fOnLoadData write fOnLoadData;
45.     property OnShowImage: TOnShowImage read fOnShowImage write fOnShowImage;
46.   end;
48. procedure Register;
50. implementation
52. procedure Register;
53. begin
54.   RegisterComponents('Rarnu Components', [TRaDBOLE]);
55. end;
57. { TRaDBOLE }
59. function TRaDBOLE.AppendToDatabase(AFileName: string): boolean;
60. var
61.   mm: tmemorystream;
62. begin
63.   result := True;
64.   mm := tmemorystream.Create;
65.   mm.LoadFromFile(AFileName);
66.   mm.Position := 0;
67.   try
68.     fDataSet.DataSet.Append;
69.     tblobfield(fDataSet.DataSet.FieldByName(fDataField)).LoadFromStream(mm);
70.     fDataSet.DataSet.Post;
71.   except
72.     result := False;
73.   end;
74.   mm.Free;
75.   if Assigned(OnSaveData) then
76.     OnSaveData(Self);
77. end;
79. constructor TRaDBOLE.Create(AOwner: TComponent);
80. begin
81.   inherited Create(AOwner);
82.   fDataSet := nil;
83.   fDataField := '';
84.   fImage := nil;
85. end;
87. procedure TRaDBOLE.GetImage;
88. var
89.   ww: tmemorystream;
90.   JPEG: TJPEGImage;
91.   IT: TImageType;
92. begin
93.   if fImage = nil then Exit;
94.   ww := tmemorystream.Create;
95.   tblobfield(fDataSet.DataSet.FieldByName(fDataField)).SaveToStream(ww);
96.   try
97.     fImage.Picture.Assign(fDataSet.DataSet.FieldByName(fDataField));
98.     IT := itBMP;
99.   except
100.     try
101.       JPEG := TJPEGImage.Create;
102.       JPEG.Assign(fDataSet.DataSet.FieldByName(fDataField));
103.       fImage.Picture.Assign(JPEG);
104.       IT := itJPG;
105.     except
106.       try
107.         if fGifImage = nil then Exit;
108.         fGifImage.Image.Assign(fDataSet.DataSet.FieldByName(fDataField));
109.         IT := itGIF;
110.       except
111.         IT := itOther;
112.       end;
113.     end;
114.   end;
115.   //fImage.Picture.Graphic.LoadFromStream(ww);
116.   ww.Free;
117.   if Assigned(OnShowImage) then
118.     OnShowImage(Self, IT);
119. end;
121. function TRaDBOLE.LoadToFile(AFileName: string): boolean;
122. var
123.   tt: tmemorystream;
124. begin
125.   result := True;
126.   tt := tmemorystream.Create;
127.   try
128.     tblobfield(fDataSet.DataSet.FieldByName(fDataField)).SaveToStream(tt);
129.     tt.Position := 0;
130.     tt.SaveToFile(AFileName);
131.   except
132.     result := False;
133.   end;
134.   tt.Free;
135.   if Assigned(OnLoadData) then
136.     OnLoadData(Self);
137. end;
139. function TRaDBOLE.LoadToStream(var AStream: TStream): boolean;
140. var
141.   tt: tmemorystream;
142. begin
143.   result := True;
144.   tt := tmemorystream.Create;
145.   try
146.     tblobfield(fDataSet.DataSet.FieldByName(fDataField)).SaveToStream(tt);
147.     tt.Position := 0;
148.     AStream := tt;
149.   except
150.     result := False;
151.   end;
152.   tt.Free;
153.   if Assigned(OnLoadData) then
154.     OnLoadData(Self);
155. end;
157. function TRaDBOLE.SaveToDatabase(AFileName: string): boolean;
158. var
159.   mm: tmemorystream;
160. begin
161.   result := True;
162.   mm := tmemorystream.Create;
163.   mm.LoadFromFile(AFileName);
164.   mm.Position := 0;
165.   try
166.     fDataSet.Edit;
167.     tblobfield(fDataSet.DataSet.FieldByName(fDataField)).LoadFromStream(mm);
168.     fDataSet.DataSet.Post;
169.   except
170.     result := False;
171.   end;
172.   mm.Free;
173.   if Assigned(OnSaveData) then
174.     OnSaveData(Self);
175. end;
177. end.