線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:981
推到 Plurk!
推到 Facebook!

cxgrid 抓取資料庫中的圖片路徑顯示圖片在cxgrid上

尚未結案
queenooo
一般會員


發表:1
回覆:0
積分:0
註冊:2012-10-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2012-10-15 18:02:56 IP:60.251.xxx.xxx 訂閱
 剛接觸cxgrid,請教各位大大下面這段可以執行,但執行之後cxgrid還是沒有顯示圖片出來
cxGrid1DBTableView1picture的屬性也設成image了
還是還有哪邊我沒弄好的嗎...~'~


procedure TForm1.Button1Click(Sender: TObject);
var
AFileName: String;
AValue: AnsiString;
APicture: TPicture;
begin
ADODataSet1.Open;
while not ADODataSet1.eof do
begin
if not ADODataSet1.Fieldbyname('picture').IsNull then
begin
AFileName := ADODataSet1.Fieldbyname('picture').AsString;
if FileExists(AFileName) then
begin
APicture := TPicture.Create;
try
APicture.LoadFromFile(AFileName);
SavePicture(APicture, AValue);
finally
FreeAndNil(APicture);
end;
end
else
AValue := '';
self.cxGrid1DBTableView1.DataController.Values[ADODataSet1.RecNo-1, cxGrid1DBTableView1picture.Index] := AValue;
end;
ADODataSet1.Next;
end;
end;

編輯記錄
queenooo 重新編輯於 2012-10-15 04:07:43, 註解 無‧
lsh19871112
一般會員


發表:2
回覆:8
積分:7
註冊:2010-09-06

發送簡訊給我
#2 引用回覆 回覆 發表時間:2012-10-16 10:48:29 IP:113.116.xxx.xxx 訂閱
用缓存数据去组合数据集吧
这样做简单多了
系統時間:2017-10-24 2:58:02
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!