stream write error |
答題得分者是:st33chen
|
blue36sea
一般會員 發表:13 回覆:35 積分:23 註冊:2008-10-12 發送簡訊給我 |
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
|
blue36sea
一般會員 發表:13 回覆:35 積分:23 註冊:2008-10-12 發送簡訊給我 |
|
blue36sea
一般會員 發表:13 回覆:35 積分:23 註冊:2008-10-12 發送簡訊給我 |
|
小傑克
資深會員 發表:5 回覆:209 積分:357 註冊:2009-02-16 發送簡訊給我 |
|
blue36sea
一般會員 發表:13 回覆:35 積分:23 註冊:2008-10-12 發送簡訊給我 |
|
小傑克
資深會員 發表:5 回覆:209 積分:357 註冊:2009-02-16 發送簡訊給我 |
我覺得可能是其他部分的錯誤, 我做了一個測試, 1280*720 bmp (一張2.63mb) 輪播,我也是把圖放在一個資料夾
timer interval = 100 , doublebuffered = true , 跑起來還是很順, 執行時佔用內存6-10mb 左右 圖檔太大所以我把測試程式貼在這 http://www.4shared.com/file/104875187/9034b93/test.html 程式內容, 放一個image , 一個timer [code delphi] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls,StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; Image1: TImage; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } sl:TStringList; iCount:integer; end; var Form1: TForm1; implementation {$R *.dfm} function gGetAllFileName(sPath:String;const Filter:String='*.*'):TStringList;overload; var sl:TStringList; sr:TSearchRec; begin sl := TStringList.Create; Result := sl; if trim(sPath) = '' then exit; if sPath[Length(sPath)] = '\' then Delete(sPath,Length(sPath),1); if FindFirst(sPath '\' Filter,faAnyFile, sr) = 0 then begin repeat sl.Add(sPath '\' sr.Name); until FindNext(sr) <> 0; FindClose(sr); end; sl.Sort; end; procedure TForm1.FormCreate(Sender: TObject); begin Image1.Align := alClient; Timer1.Interval := 100; sl := gGetAllFileName('新資料夾','*.bmp'); // 你可以改去讀你的圖跑看看就知道 iCount:=0; DoubleBuffered := true; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Image1.Picture.LoadFromFile(sl.Strings[iCount]); if iCount < (sl.Count-1) then inc(iCount) else iCount := 0; end; end. [/code]
------
額有朝天骨,眼中有靈光
編輯記錄
小傑克 重新編輯於 2009-05-12 19:45:34, 註解 無‧
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |