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

我想請問:如何將黑白bmp檔以文字方式讀入

答題得分者是:pedro
dogmo
一般會員


發表:2
回覆:4
積分:1
註冊:2003-07-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-07-16 15:21:21 IP:61.220.xxx.xxx 未訂閱
因為我想要取得每個點的hex值,我只要灰階值,不要讀出來有rgb的, 現在我想到的方式事先已字元方式讀出再轉asc後再轉Hex值,但是, 目前我不知道怎麼把圖檔以字元方式讀入
pedro
尊榮會員


發表:152
回覆:1187
積分:892
註冊:2002-06-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-07-16 17:42:44 IP:210.61.xxx.xxx 未訂閱
b:=TMemoryStream.Create; b.LoadFromFile('mono.bmp'); setlength(buf,b.size); b.ReadBuffer(buf[1],b.size);
dogmo
一般會員


發表:2
回覆:4
積分:1
註冊:2003-07-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-07-17 13:18:17 IP:61.220.xxx.xxx 未訂閱
謝謝你,我試出來了,但是如果遇到空白他會自行忽略,有沒有辦法依樣叫他要讀出來ㄋ,我想要讀檔案內每個固定點的資訊。 謝謝你喔
dogmo
一般會員


發表:2
回覆:4
積分:1
註冊:2003-07-11

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-07-17 15:11:59 IP:61.220.xxx.xxx 未訂閱
我試出來了 u:=0; b:=TMemoryStream.Create; b.LoadFromFile('d:\delphi test\b.bmp'); setlength(buf,b.size); setlength(Int,b.size); setlength(Str,b.size); b.ReadBuffer(buf[1],b.size); for i:=1 to b.size-1 do begin u:=i; Int[i]:=ord(buf[i]) ; Str[i]:=inttohex(Int[i],2); Memo1.lines[0]:=Memo1.lines[0] buf[i] ' '; Memo2.lines[0]:=Memo2.lines[0] Str[i] ' '; end; 這是我的過程 如果有人也有遇到這樣的問題可以參考
系統時間:2024-05-05 11:22:51
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!