kowala's home

kowala's home
這裡是我的學習筆記,陸續增加中。
http://kowala21.blogspot.com

2016-04-05

BCB6 - 2D實驗室

本篇就是開一塊記憶體,隨便塗鴉,然後顯示出來,主要是做個環境來測試一些繪圖演算法,當然,你要當作秀圖機,開圖檔也可以的。

首先用 BCB 開一個 vcl 專案,詳細請參考前面文章
BCB6 視窗程式入門
http://kowala21.blogspot.tw/2013/01/bcb6.html

接著新增兩個按鈕,及一個 TImage 物件

把 TImage 物件屬性改成
Height 480
Width 640
這就是我們的工作區,但它現在是空的,我們還要新增TBitmap 物件,並指給它。
我們先新增個 mylib.h ,這樣會使程式看起來較簡潔。
 在專案右鍵,然後新增個 h檔,再改檔名為 mylib.h

把它引入, #include "mylib.h"
我們可以新增個圖紙物件 TBitmap,並指給TImage 物件,並為它設定屬性,指定底色。
看起來就像這樣。
這樣看起來很單調,為它加一些其他東西, 我希望能在 mylib.h 中完成,所以必須寫個函式,把 TBitmap 物件傳進去。

 然後我們可以在 mylib.h 中為所欲為,我為它加了框,畫了X,順便寫幾個字。

mylib.h

code如下
void initSCR(Graphics::TBitmap *buf){
    int w,h,cx,cy,left, top, right, bottom;
    //先在中間畫個框 160*120 TRect(left, top, right, bottom)
    buf->Canvas->Pen->Color = clGreen;//綠色
    buf->Canvas->Brush->Style = bsClear;//框中間透明 Rectangle
    h=buf->Height;//480 工作區寬度
    w=buf->Width;//640 工作區高度
    cx=w/2;    cy=h/2;    //320*240 中心點
    left=cx-(160/2);//240
    top=cy-(120/2);//180
    right=cx+(160/2);//400
    bottom=cy+(120/2);//300
    buf->Canvas->Rectangle(TRect(left,top,right,bottom));//開始畫
    //中間畫 X,用描點的畫
    buf->Canvas->Pixels[cx-3][cy-3] = clWhite;
    buf->Canvas->Pixels[cx-2][cy-2] = clWhite;
    buf->Canvas->Pixels[cx-1][cy-1] = clWhite;
    buf->Canvas->Pixels[cx][cy] = clWhite;//center point (320,240)
    buf->Canvas->Pixels[cx+1][cy+1] = clWhite;
    buf->Canvas->Pixels[cx+2][cy+2] = clWhite;
    buf->Canvas->Pixels[cx+3][cy+3] = clWhite;

    buf->Canvas->Pixels[cx-3][cy+3] = clWhite;
    buf->Canvas->Pixels[cx-2][cy+2] = clWhite;
    buf->Canvas->Pixels[cx-1][cy+1] = clWhite;
    buf->Canvas->Pixels[cx][cy] = clWhite;
    buf->Canvas->Pixels[cx+1][cy-1] = clWhite;
    buf->Canvas->Pixels[cx+2][cy-2] = clWhite;
    buf->Canvas->Pixels[cx+3][cy-3] = clWhite;
    //再加個字
    buf->Canvas->Brush->Color = clGreen;//background color
    buf->Canvas->Font->Color = clWhite;//font color
    buf->Canvas->Font->Size=10;
    buf->Canvas->TextOutA(left+30,top+20,"再加個字");
    buf->Canvas->Brush->Color = clBlack;//background color
    buf->Canvas->Font->Color = clYellow;//font color
    buf->Canvas->TextOutA(left+50,top+80,"不要底色");
}
mainfrm.cpp
code 如下
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "mainfrm.h"
#include "mylib.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Graphics::TBitmap *myLab;//宣告圖紙,當工作區
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    myLab = new Graphics::TBitmap();//開一塊圖紙,當工作區
    myLab->PixelFormat = pf24bit; //bmp
    myLab->Height = 480;//圖紙 h
    myLab->Width = 640;//圖紙 w
    //設定底色
    myLab->Canvas->Brush->Color = clBlack;//background = clBlack
    myLab->Canvas->FloodFill(0,0,clBlack,fsBorder);//fsSurface,fsBorder

    //把物件傳進去
    initSCR(myLab);

    //指給Image1物件
    Form1->Image1->Picture->Bitmap=myLab;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    this->Close();
}
//---------------------------------------------------------------------------

這樣就是一個簡單實驗室了

2016-03-07

BCB6 - 在 Windows8.1 安裝 mscomm32.ocx

很多時候,我們會需要與 RS232 通訊,這時我們就需要 com 通訊元件。
通訊元件有很多第三方元件及微軟的 mscomm32,
本例是在Wwindows8.1下取得 mscomm32 與手動安裝元件。

下載  mscomm32.ocx
http://originaldll.com/file/mscomm32.ocx/7698.html



上圖右下角按鈕,兩個都可以,按下後輸入隨機碼下載。


解壓縮可得到一個元件,只有一個。

mscomm32.ocx

接著是安裝 mscomm32 元件到 Windows8.1

1.複製 mscomm32.ocx
開檔案總管,複製 mscomm32.ocx 到 C:\Windows\SysWOW64


2.安裝 mscomm32.ocx
在視窗中,開啟目錄 C:\Windows\SysWOW64
找到 cmd.exe ,右鍵,以管理員身分執行,
一定要用管理員身分,否則權限不夠,會失敗。

執行下列命令
cd C:\Windows\SysWOW64

先移除註冊
regsvr32 /u MSCOMM32.OCX
再註冊
regsvr32 MSCOMM32.OCX
完成,試一下,OK

Dropbox 下載 mscomm32.ocx