SQL的image形態欄位無法使用'TBolbFidld'函數 |
|
答題得分者是：領航天使
|
|
zhczm888
一般會員   發表：17 回覆：6 積分：4 註冊：2002-11-14 發送簡訊給我 |
|
|
領航天使
站長   發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
|
|
jackkcg
站務副站長 發表：891 回覆：1050 積分：848 註冊：2002-03-23 發送簡訊給我 |
zhczm888 大大 是否可以將標題改一下 此網站的搜尋資料全靠這標題 請讓想看類似問題的會員 以後可以查詢 你的問題站長已經說明 此範例希望你能舉一反三 雖然是使用access資料庫 但是與ms sql , my sql 應該都是可行的 我在將 站長 的範例貼上
********************************************************************* unit Unit1; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls, Db, Grids, DBGrids, ADODB,jpeg, ExtDlgs,shellapi; type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Image1: TImage;
BitBtn1: TBitBtn;
OpenPictureDialog1: TOpenPictureDialog;
LabelDelphiKTop: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure ADOTable1AfterScroll(DataSet: TDataSet);
procedure FormCreate(Sender: TObject);
procedure LabelDelphiKTopClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1;
ApplicationPath:string;
implementation {$R *.DFM}
function FileSizes(filename:string):integer;
var f:file;
begin
assignfile(f,filename);
reset(f,1);
result:=filesize(f);
closefile(f);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
ADOTable1.append;
ADOTable1.FieldByName('IMG_FILENAME').AsString:=extractfilename(OpenPictureDialog1.filename);
ADOTable1.FieldByName('IMG_FILESIZE').AsInteger:=filesizes(OpenPictureDialog1.filename);
TBlobField(ADOTable1.FieldByName('IMG_FILEDATA')).loadfromfile(OpenPictureDialog1.filename);
ADOTable1.post;
ADOTable1AfterScroll(ADOTable1);
end;
end; procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin
image1.Picture.Create;
if not ADOTable1.eof then
if trim(ADOTable1.FieldByName('IMG_FILENAME').asstring)<>'' then
begin
TBlobField(ADOTable1.FieldByName('IMG_FILEDATA')).savetofile(ApplicationPath ADOTable1.FieldByName('IMG_FILENAME').asstring);
Image1.Picture.LoadFromFile(ApplicationPath ADOTable1.FieldByName('IMG_FILENAME').asstring);
deletefile(ApplicationPath ADOTable1.FieldByName('IMG_FILENAME').asstring);
end;
end; procedure TForm1.FormCreate(Sender: TObject);
begin
ApplicationPath:=ExtractFilePath(Application.ExeName);
if copy(ApplicationPath,length(ApplicationPath),1)<>'\' then
ApplicationPath:=ApplicationPath '\';
ADOConnection1.ConnectionString:= stringreplace(ADOConnection1.ConnectionString,'Data Source=images.mdb','Data Source=' ApplicationPath 'images.mdb',[rfReplaceAll]);
ADOConnection1.Open;
AdoTable1.open;
end; procedure TForm1.LabelDelphiKTopClick(Sender: TObject);
begin
ShellExecute(application.handle,pchar('OPEN'),pchar('http://delphi.ktop.com.tw'),nil,nil,0);
end; end. 範例原資料 多謝 站長 解答 還是站長了解我 哈哈3q
------
********************************************************** 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind |
發表時間：2002-11-17 08:24:31
IP:61.142.xxx.xxx 未訂閱
系統時間：2024-05-19 1:33:48
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |