tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^3: VB6.0でJPEGファイルの余白を削除
投稿日: 2023/12/05(Tue) 18:13
投稿者魔界の仮面弁士
> JPEGファイルのサイズが8000×5120のためPictureBoxを用いる方法もダメでした。

サイズが大きいと、PictureBox で扱うのはキツそうですね。
コマンドラインツール ffmpeg を使うのは如何でしょうか。
https://qiita.com/cha84rakanal/items/af7884d9188ef1787a90
https://ffmpeg.org/ffmpeg.html


以下実験。

手元の環境にインストールした ffmpeg は
"D:\tools\ffmpeg\bin\ffmpeg.exe" にあります。

実験のため、7986x11135 の JPEG ファイル(20,734,759 バイト)を
"E:\7986x11135.jpg" というファイル名で準備しました。
https://upload.wikimedia.org/wikipedia/commons/f/f8/%22Books_are_weapons_in_the_war_of_ideas%22_-_NARA_-_513575_-_restored.jpg



ここから、元画像の左上からX座標1691ピクセル、Y座標1657ピクセルの位置から
横3247ピクセル、縦3384ピクセルのサイズで切り出すために、
このようなコマンドライン文字列を指定してみます。

Dim cmd As String
cmd = "D:\tools\ffmpeg\bin\ffmpeg.exe -i E:\7986x11135.jpg -vf crop=3247:3384:1691:1657 E:\悩み深き少年.jpg"
Shell cmd, vbNormalFocus


これにより、3247x3384 の JPEG ファイル(473,312 バイト) "悩み深き少年.jpg" が生成されました。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。