■概要
　Access2000 付属?の BarCodeCtrl を Delphi5 で利用するごく簡単な
サンプルです。 コンポーネントラッパー( TBarCodeCtrl ) を作成して、
使用します。

■準備
　本サンプルを試す前に以下の手順に従い IBarCodeCtrl 他のラッパーを
適当なコンポーネントパレットに登録して下さい。

　１. 新規アプリケーションを作成。
　２. [プロジェクト(P)] → [タイプライブラリの取り込み(L)] を選択。

　表示されるタイプライブラリの取り込みダイアログ内の

　３."Microsoft Access BarCode Control 9.0 (Version 1.0)" を選択し、
　　 "コンポーネントラッパーの作成(G)"チェックボックスをチェックし、
　　 "インストール(I)"ボタンを押して、適当なコンポーネントパレット
　　　とパッケージに TBarCodeCtrl 他を登録して下さい。

　※MSBCODE9.OCX に定義されています。
　※詳細はヘルプの目次より [COM アプリケーションの開発] → [オート
　　メーションコントローラの作成] → [タイプライブラリのインポート
　　によるオートメーションコントローラの作成] をご覧下さい。(D5)

■コンポーネント
　Form1 に BarCodeCtrl1 (上記準備で登録した TBarCodeCtrl ), Edit1,
Button1 〜 Button3, Image1 を適当に配置して下さい。

■サンプル実行時
　・Edit1 に値を入力し、Button1 を押すと入力値に対応するバーコード
　　が表示されます。
　・Button2 を押すとバーコードのプロパティ設定ダイアログが表示され
　　ます。
　・Button3 を押すと表示されているバーコードイメージを、 Image1 に
　　コピーします。

■注意事項
　・Windows98SE + MS-Office2000 + Delphi5 Pro で動作確認。
　・Access2000付属?の BarCodeCtrl が正しくインストールされていない
　　と本サンプルは動作しません。
　・本サンプルは、ご自身の責任においてお試し下さい。m(_"_)m

■その他
　・親が TDBOleControl となりますから、DataSource プロパティもあり
　　使いようによっては面白いかも知れません。（推測モード。。。^^;）
　・Image1 への描画部分に手を入れることで印刷も可能になるでしょう。
　  ( Delphi用の優れたバーコードコンポが公開されているのに、そんな
　　ことする人はいないって。。。(((^^;)

■サンプルコード
//=========================================================================
{...略...}
implementation

{$R *.DFM}

{*************************************************************************
   Button1 OnClick
   ・Edit1.Text の値に対応したバーコードを表示。
//***********************************************************************}
procedure TForm1.Button1Click(Sender: TObject);
begin
  BarCodeCtrl1.Value := Edit1.Text;
end;
{*************************************************************************
   Button2 OnClick
   ・バーコードプロパティ設定ダイアログを表示。
//***********************************************************************}
procedure TForm1.Button2Click(Sender: TObject);
begin
  BarCodeCtrl1.BrowseProperties;
end;
{*************************************************************************
   Button3 OnClick
   ・BarCodeCtrl1 に表示されているバーコードイメージを Image1 に
     コピーする。
//***********************************************************************}
procedure TForm1.Button3Click(Sender: TObject);
var
  DC: HDC;
begin
  with Image1, Picture do begin
    Picture := nil;
    Bitmap.Width  := BarCodeCtrl1.ClientWidth;
    Bitmap.Height := BarCodeCtrl1.ClientHeight;
    DC := GetDC( BarCodeCtrl1.Handle );
    try
      BitBlt( Bitmap.Canvas.Handle, 0, 0,
              BarCodeCtrl1.ClientWidth,
              BarCodeCtrl1.ClientHeight, DC, 0, 0, SRCCOPY );
    finally
      ReleaseDC( BarCodeCtrl1.Handle, DC );
    end;{try..finally..}
  end;{with Image1, Picture do}
end;
{*************************************************************************
//***********************************************************************}
{...略...}
//=========================================================================

                              00/12/13(Wed) 11:33pm  Fermion [KHF03264]

 


- FDELPHI  MES(16):玉石混淆みんなで作るSample蔵【見本蓄積】 00/12/14 -

Original document by Fermion         氏 ID:(KHF03264)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。