png.LoadFromFile('c:\k1.png')所產生的問題 |
答題得分者是:pcboy
|
ucdesign2
一般會員 發表:24 回覆:33 積分:11 註冊:2002-10-23 發送簡訊給我 |
請教前輩:
我的目的是從網路上抓png檔然後在image元件上顯示.過程中有使用Pngimage元件. 貼上部份程式 procedure TForm1.Button3Click(Sender: TObject); var fs: TFileStream; begin try fs := TFileStream.Create('c:\k1.png', fmCreate); IdHTTP1.Get('http://tw.chart.yahoo.com/t/d/k/1711.png', fs); finally fs.Free; Image1.Picture.LoadFromFile('c:\k1.png'); 執行到上一行出現下列錯誤訊息!請前輩指點如何修正錯誤! --------------------------------------------------------------------------------------------------------- Cannot open file "c:\k1.png".程序無法存取檔案,因為檔案正由另一個程序使用. ---------------------------------------------------------------------------------------------------------- end; end; |
pcboy
版主 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
你這樣問有可能無人能答 因為別人未必有Pngimage元件, 就算有, 未必和你是同一套 or 同一版 建議你將Pngimage元件下載地方公布出來, 或在發問的時候直接以附件方式附上, 並說明可用的 Delphi 版本和安裝法 單以錯誤訊息來看 : "因為檔案正由另一個程序使用" 你有另外一個程式正在開啟該圖檔, 請將該程式關閉
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案! 子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問!
編輯記錄
pcboy 重新編輯於 2007-09-11 13:41:08, 註解 無‧
|
shunchia63
高階會員 發表:26 回覆:141 積分:198 註冊:2007-05-22 發送簡訊給我 |
跟JPEG一樣宣告後即可載入 try this. uses pngimage; 宣告 PNGImage:Timage; 載入 PNGImage.Picture.LoadFromFile('c:\test.png');
編輯記錄
shunchia63 重新編輯於 2007-09-11 12:31:44, 註解 無‧
|
ucdesign2
一般會員 發表:24 回覆:33 積分:11 註冊:2002-10-23 發送簡訊給我 |
問題已解決!
因為我同時下幾個檔案! fs := TFileStream.Create('c:\k1.png', fmCreate); IdHTTP1.Get('http://tw.chart.yahoo.com/t/d/k/1711.png', fs); fs := TFileStream.Create('c:\k2.png', fmCreate); IdHTTP1.Get('http://tw.chart.yahoo.com/t/d/k/9911.png', fs); fs := TFileStream.Create('c:\k3.png', fmCreate); IdHTTP1.Get('http://tw.chart.yahoo.com/t/d/k/9111.png', fs); fs.free; Image1.Picture.LoadFromFile('c:\k1.png'); // <-- error! 正確寫法如下: fs := TFileStream.Create('c:\k1.png', fmCreate); IdHTTP1.Get('http://tw.chart.yahoo.com/t/d/k/1711.png', fs); fs.free; fs := TFileStream.Create('c:\k2.png', fmCreate); IdHTTP1.Get('http://tw.chart.yahoo.com/t/d/k/9911.png', fs); fs.free; fs := TFileStream.Create('c:\k3.png', fmCreate); IdHTTP1.Get('http://tw.chart.yahoo.com/t/d/k/9111.png', fs); fs.free; Image1.Picture.LoadFromFile('c:\k1.png'); // |
wameng
版主 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
|
ucdesign2
一般會員 發表:24 回覆:33 積分:11 註冊:2002-10-23 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |