關於讀取黑白的bmp檔 |
|
答題得分者是：hagar
|
|
dogmo
一般會員   發表：2 回覆：4 積分：1 註冊：2003-07-11 發送簡訊給我 |
|
|
hagar
版主   發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
dogmo
一般會員 發表：2 回覆：4 積分：1 註冊：2003-07-11 發送簡訊給我 |
|
|
hagar
版主 發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
Miles
尊榮會員 發表：27 回覆：662 積分：622 註冊：2002-07-12 發送簡訊給我 |
dogmo 您好:
試試這個, Integer值
Image1.Picture.Bitmap.Canvas.Pixels[x, y]; 以下是我寫16階轉文字的一小段節錄
Case Image1.Picture.Bitmap.Canvas.Pixels[x, y] of
16777215 : write(F1, '0');
15658734 : write(F1, '1');
14540253 : write(F1, '2');
13421772 : write(F1, '3');
12303291 : write(F1, '4');
11184810 : write(F1, '5');
10066329 : write(F1, '6');
8947848 : write(F1, '7');
$FFFFFF : write(F1, ' ');
$EEEEEE : write(F1, '`');
$DDDDDD : write(F1, '''');
$CCCCCC : write(F1, '"');
$BBBBBB : write(F1, '=');
$AAAAAA : write(F1, 'u');
$999999 : write(F1, 'h');
$888888 : write(F1, 'p');
$777777 : write(F1, 'b');
$666666 : write(F1, 'S');
$555555 : write(F1, 'G');
$444444 : write(F1, 'W');
$333333 : write(F1, '&');
$222222 : write(F1, '%');
$111111 : write(F1, '#');
$000000 : write(F1, '@');
-1 : write(F1,'P');
else
write(F1, IntToStr(Image1.Picture.Bitmap.Canvas.Pixels[x, y])); end;< >< > 我不是高手, 高手是正在銀幕前微笑的人.
------
我不是高手, 高手是正在銀幕前微笑的人. |
|
dogmo
一般會員 發表：2 回覆：4 積分：1 註冊：2003-07-11 發送簡訊給我 |
發表時間：2003-07-11 16:25:29
IP:61.220.xxx.xxx 未訂閱
系統時間：2024-04-30 4:29:09
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |