假設我讀檔時設*.ccd |
答題得分者是:malanlk
|
dac
一般會員 發表:14 回覆:24 積分:7 註冊:2005-01-06 發送簡訊給我 |
|
malanlk
尊榮會員 發表:20 回覆:694 積分:577 註冊:2004-04-19 發送簡訊給我 |
下面這段, 只要你確定 .CCD 檔裡面存的資料格式確實是 .BMP 的格式
就應該可以讀入, 也不用改檔名了
procedure TForm1.Button1Click(Sender: TObject); var sFn: String; sFStream: TFileStream; FormImage: TBitmap; begin if (OpenDialog1.Execute) then begin FormImage := TBitmap.Create; try sFStream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead ); FormImage.LoadFromStream(sFStream); try Image1.Picture.Assign(FormImage); finally sFStream.Free; end; finally FormImage.Free; end; end; end; |
dac
一般會員 發表:14 回覆:24 積分:7 註冊:2005-01-06 發送簡訊給我 |
|
malanlk
尊榮會員 發表:20 回覆:694 積分:577 註冊:2004-04-19 發送簡訊給我 |
應該是我不好意思啦, 貼錯版了, 之前是 DELPHI 的程式
換 BCB 開新專案,
加一個 TImage 元件, ㄧ個 TOpenDialog 元件, ㄧ個 TButton 元件
然後在 TButton 元件的 OnClick 事件內 加入
void __fastcall TForm1::Button1Click(TObject *Sender) { if (OpenDialog1->Execute()) { TFileStream *sFStream = new TFileStream(OpenDialog1->FileNae, fmOpenRead); TBitmap * FormImage = new Graphic::TBitmap(); FormImage->LoadFromStream(sFStream); Image1->Picture->Assign(FormImage); delete FormImage; delete sFSream; } }這是大概的程式碼, 我有好一陣子沒寫BCB了, 不知道與法是否正確, 手邊也沒有BCB, 麻煩自己 Debug ㄧ下 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |