<!--[if gte mso 9]><xml> </xml><![endif]--><!--[if gte mso 10]> <style> /* Style Definitions */ table.MsoNormalTable {mso-style-name:普通表格; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-priority:99; mso-style-qformat:yes; mso-style-parent:""; mso-padding-alt:0cm 5.4pt 0cm 5.4pt; mso-para-margin:0cm; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.5pt; mso-bidi-font-size:11.0pt; font-family:"Calibri","sans-serif"; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi; mso-font-kerning:1.0pt;} </style> <xml> </xml><![endif]--><!--[if gte mso 9]><xml> </xml><![endif]--> 小弟目前遇到幾個問題，一直找不到適當的解決方式，不得已上來請求大家的協助，還望高手們能指點一下小弟

Begin
TextCanvas.Canvas.Font.Size := FontSize;
TextCanvas.Canvas.Font.Color := RGB(0,0,0);
TextCanvas.Canvas.Handle := GetDC(0);
H := TextCanvas.Canvas.TextHeight(TextString);
HexW := (W div 8) 1;
HexW := (W div 8);
If H Mod 8 > 0 Then Begin
End Else Begin
End;
// For I := 0 To HexH * 8 -1 do Begin
For J := 0 To HexW * 8 -1 do Begin
FontCode := FontCode '0';
FontCode := FontCode '1';
If Length(FontCode) = 8 Then Begin
FontCode := '';
End;
End;

1Form2
、取點的速度非常的慢以上三點，小的真的試了好久，只好上來求各位高手給予賜教

Hello, 全部程式碼只用到 TBitmap 元件，怎麼可能自動顯示在 TForm 上面？

您好

小弟原本是使用TCanvas，後來改用TBitbmp。
主要是希望畫面上“不要”出現這個原件，直接在後端做完取點的工作
怎想不管用了哪一個，都會出現在Form上面。。。。

取點的速度也慢，無法有效處理太多的東西

 1. 會顯示在畫面是 因為 TextCanvas.Canvas.Handle := GetDC(0); 它不是 form. 要搞清楚
2.input ? output ?
3.哪邊慢

===================引 用 rick060 文 章===================
1. 會顯示在畫面是 因為TextCanvas.Canvas.Handle:=GetDC(0); 它不是 form. 要搞清楚
您好，这個部分我是知道的。之前是採用了TCanvas的關係，所以改用TBitmap時，忘記拿掉了。所以這個顯示出來的問題解決了。
2.input ? output ?
我主要的是要取得下面這個東西
FontCode := ''; ConverFontCode := '';
If TextCanvas.Canvas.Pixels[J,I] = RGB(255,255,255) Then Begin
End Else Begin
End;
A := A FontCode;
End;

3.哪邊慢
這一段執行的非常慢，小弟不曉得除了以這樣的取點方式之外，還有沒有更快的方法

===================引 用 rick060 文 章===================
1. 會顯示在畫面是 因為TextCanvas.Canvas.Handle:=GetDC(0); 它不是 form. 要搞清楚
不好意思，剛剛試了一下，如果取消這一行，畫面是不會出現我所畫出來的字。但在下面取點的時候，就會全部取到黑色的點。也就是說A 全部等於 1
2.input ? output ?
3.哪邊慢

這個程式看起來是要看貼上字體的黑色有多少點

是的，非常正確哦！

[code delphi]
procedure TfrmMain.Button1Click(Sender: TObject);
const
XXX = 'X Y Z';
SSS: array[Boolean] of string = (' ','＠');
var
I,J: Integer;
S: string;
b: TBitmap;
L: TStringList;
begin
B := TBitmap.Create;
try
with B,Canvas do
begin
Font.Size := 12;
Font.Name := 'ARIAL';
Font.Color := clBlack;
Brush.Color := clWhite;
Width := TextWidth(XXX);
Height := TextHeight(XXX);
TextOut(0,0,XXX);
end;
//開始處理文字字串的部分資訊
L := TStringList.Create;
try
with B,Canvas do
begin
for I := 0 to Height-1 do
begin
for J := 0 to Width-1 do
S := S SSS[Pixels[J,I]<>Brush.Color];
L.Add(S);
S := '';
end;
end;
ShowMessage(L.Text);
finally
FreeAndNil(L);
end;
finally
FreeAndNil(B);
end;
end;
[/code]

非常感謝大大提供的解法

小弟試了一下，速度上完全提升了。
但取得的點，卻全是黑點。而沒有白點。

看似 TextCanvas.Canvas.Handle := GetDC(0); 這一個的關係

有它，速度慢，取點正常
沒它，速度快，取點失敗

[code delphi]
procedure TfrmMain.SHOW(THE_PIXEL_FORMAT: TPixelFormat);
const
XXX = 'X Y Z';
var
I,J: Integer;
S: string;
b: TBitmap;
L: TStringList;
begin
B := TBitmap.Create;
try
with B,Canvas do
begin
//
PixelFormat := THE_PIXEL_FORMAT;
//
Font.Size := 12;
Font.Name := 'ARIAL';
Font.Color := clBlack;
Brush.Color := clWhite;
Width := TextWidth(XXX);
Height := TextHeight(XXX);
TextOut(0,0,XXX);
end;
//開始處理文字字串的部分資訊
L := TStringList.Create;
try
with B,Canvas do
begin
for I := 0 to Height-1 do
begin
for J := 0 to Width-1 do
begin
if Pixels[J,I]=Font.Color then S := S '＠'
else if Pixels[J,I]=Brush.Color then S := S ' '
else S := S '。';
end;
L.Add(S);
S := '';
end;
end;
ShowMessage(L.Text);
finally
FreeAndNil(L);
end;
finally
FreeAndNil(B);
end;
end;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
SHOW(pf1bit);
SHOW(pf24bit);
end;

[/code]

編輯記錄

感謝Jow大大一直以來的協助

今天才進辦公室做了測試。
加上了jow大大後來追加進來的語法。

大概介紹一下：
如果 取點的顏色 = Font.Color ，則設定為 1
取點的顏色 = Brush.Color ，則設定為 0
如果不為上面的兩種顏色， 則設定為 2

發現，如果不加 TextCanvas.Canvas.Handle := GetDC(0); 時，取點完全是 2
如果加上了，則取點為1跟0 ，2為少數。

是小弟的環境造成取點不正常嗎？ 小弟使用 W7 Delphi2010

還有沒有其他大大高手能告訴小弟怎麼解決這樣的問題?

小弟肯定大大們給小弟協助

在此非常感謝Jow大大及所有給予小弟幫助與建議的朋友們

Jow大大的方法，雖然沒有解決小弟的問題，不過反而讓小弟從別的方向思考回來
除了解決了這個問題，更解決了其他新的問題。

再次謝謝各位的幫助

開心，還是台灣朋友們好。。。。