Delphi だけで動く、検証用のソースコードとサンプル exe です。
DelphiSnippingToolOCR 2026/01/31、2026/02/10
これを使った AutiCAD、DWG 互換 CAD 用実用ツールはこちらです → Snipping Tool で CAD OCR
Windows 11 の SnippingTool（ ... の DLL) を使った OCR です。
Delphi だけで動く、検証用のソースコードとサンプル exe です。
■ SnippingTool OCR についての情報
Windows11 SnippingTool OCR from commandline
https://b1tg.github.io/post/win11-oneocr/
■ 実行時に必要な DLL
ライセンスの関係上、再配布は出来ませんので、
以下、Windows 11 の SnippingTool.exe のフォルダからコピーしてください。
SnippingTool.exe と同じフォルダ内の 3 つのファイル
・oneocr.dll
・oneocr.onemodel
・onnxruntime.dll
を DelphiSnippingToolOCR.exe と同じフォルダにコピーしてください。
こちらの環境（24H2）での SnippingTool.exe のインストールフォルダは
C:\Program Files\WindowsApps\Microsoft.ScreenSketch_11.2506.25.0_x64__8wekyb3d8bbwe\SnippingTool でした。
■ 必要な DLLのコピー
タスクバーの検索ボックスに Snipping Tool を入力して [Enter]
Snipping Tool が起動するので、タスクバーを右クリック。
「タスクマネージャーを起動」をクリック。
起動中のアプリから「 > Snipping Tool」を見つける。
「 > Snipping Tool」をクリック。
その下に表示される「Snipping Tool」を右クリック。
「ファイルの場所を開く」をクリック。
このフォルダ内の 3 つの DLL
・oneocr.dll
・oneocr.onemodel
・onnxruntime.dll
を DelphiSnippingToolOCR.exe と同じフォルダにコピーしてください。
■ ダウンロード
ソース付き
http://www.izawa-web.com/zip/DelphiSnippingToolOCR.zip
exe 本体は Win64\Release フォルダにあります。
exe と同じフォルダに上記 DLL が必要です。
※ 使用しているのは、Delphi 10.4。対象画像は、bmp, png のみです。
※ コードはまったく整理されていません。整理してお使いください。
画像のドラッグ＆ドロップで、DXF ファイルを作成（EXE 本体のみ）
※ 文字幅係数は、0.8 固定です。
http://www.izawa-web.com/zip/DelphiSnippingToolOCR_20260210.zip
スクリーンショット↓
■ 著作権、制限事項
使用しているライブラリの著作権は、それぞれの作者、企業が所有しています。
本ツールの著作権は、作者 f.izawa が所有し、これを主張します。
本ツールを使用したことによる事故、損害等の一切について、作者はその責を負いません。
使用される方の責任において、使用して下さい。
改変、再配布は自由です。
修正、機能追加等改良された場合、メール、BBS等で知らせて頂けると非常にうれしいです。
■ 謝辞
SnippingTool ライブラリについて GitHub に公開して下さった方々に感謝いたします。
■ 作者連絡先
e-mail : f.izawa@dream.com
URL : http://www.izawa-web.com