jpgの画像ファイルですが、ファイル名やexif情報が異なっていても
画像そのものが一緒だったら同一と判断できるような処理をしたい
のですが、容量が最後の1桁まで同じで、画像のサイズが同じなら
同じものと見なすとすれば簡単かなと思ったのですが、
exif情報を変更すると、容量が少し変化してしまいます。
この為、容量は手がかりになりそうもないので、
画像データ部分そのものを比較したいのですが、
画像データ本体の部分をIF文で比較できるような
変数に入れるにはどうしたら良いでしょうか。
たいへん恐れ入りますがご教示頂けたら幸いです。
No.1ベストアンサー
- 回答日時:
BitmapオブジェクトにJPGファイルを読み込んでGetPixelメソッドで比較といった具合でしょう
以下にサンプルコードを書いてみます
例外処理などは省いてますので適宜行ってくださいね
インデントは 全角スペースを使用してます
Function CompJpeg(sName1 as string, sName2 as String) as Boolean
dim bmp1 as new Bitmap(sName1)
dim bmp2 as new Bitmap(sName2)
dim x,y as Integer
dim c1, c2 as color
dim bFlag as Boolean
' 幅が違えば 不一致
if bmp1.Width <> bmp2.Width then Return False
' 高さが違えば不一致
if bmp1.Height <> bmp2.Height then Return False
bFlag = false
for y=0 to bmp1.Height -1
for x=0 to bmp1.Width -1
' 2つのファイルの色情報を取得
c1 = bmp1.GetPixel(x,y)
c2 = bmp2.GetPixel(x,y)
' 2つのファイルの色情報を比較
bFlag = c1.ToArgb <> c2.ToArgb
if bFlag then exit for
next
if bFlag then exit for
next
' 結果を出力
return bFlag
End Function
redfox63さま
ご回答ありがとうございます。
具体的なコードまで書いて頂いてとても助かります。
ありがたく活用させて頂きたいと思います。
ありがとうございます!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PDF PDFに精通した方に質問。JPEGファイル群を一つのPDFファイルにするときの容量変化について 6 2023/07/23 19:06
- Excel(エクセル) エクセル、画像ファイル名の書かれたセル(複数個所)に画像を一括で表示させる方法 1 2023/04/19 00:19
- その他(OS) Windowsで大量の画像サイズを半自動で変更する方法 6 2023/02/17 08:45
- Windows 10 JPG PNG サポートされていない形式 (JPGファイルで開ける、開けないがある場合) 4 2022/04/23 13:46
- その他(スマートフォン・携帯電話・VR) gメールの容量がいっぱいになり内訳を見ると画像データが大半を締めていました スマホからこの画像データ 7 2023/08/18 10:31
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Google Drive Google Drive (G:)の容量を、購入した容量と一致させるにはどうすればよいでしょうか? 1 2022/04/10 22:32
- その他(ソフトウェア) コマンドプロンプトについて教えてください。 状況: 画像編集ソフト上でネットから保存した画像を使うの 3 2022/05/26 11:14
- その他(ソフトウェア) 画像のファイル形式、拡張子が変わると、性能が変わると思うのですが、ファイル名の「jpg、png、do 8 2022/08/10 13:37
- PDF パワポ及びPDFのデータ量について 3 2023/07/20 10:24
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
HTMLでこの画像を表示したいで...
-
スマホでサイトの画像を長押し→...
-
PowerPoint VBA で画像の鮮明度...
-
画像のピクセルデータの取得
-
jqueryスライダーを2段でスライ...
-
UWSCを使って画像リンクをクリ...
-
gif 画像上の ボタンに リン...
-
【WPF】画像の切り替え
-
C# VisualStudioでプロジェクト...
-
画像のビット数を変更する方法
-
VB6でプリントスクリーンを無効...
-
画像を二値化した後、黒の部分...
-
HTMLでサイトの模写をしていま...
-
画像の比較
-
vb.net 画像の透過について
-
【EXCEL VBA】ダブルクリックで...
-
VBA シート毎に画像挿入
-
C#で画像を他の画像に貼り付け...
-
背景画像の繰り返しについて
-
多角形を繋げるレイアウト
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【EXCEL VBA】ダブルクリックで...
-
背景画像の繰り返しについて
-
EXCEL VBA 複数のImageコントロ...
-
「using Windows」でエラーが出る
-
jqueryスライダーを2段でスライ...
-
画像のピクセルデータの取得
-
ImageMagickでgif画像の一部が...
-
Excel ユーザーフォームで表示...
-
uwcs のマクロで画像認識をして...
-
uwscの画像認識に失敗します。
-
vb.net 画像の透過について
-
VBA シート毎に画像挿入
-
UWSC 画像判定と条件分岐について
-
UWSC「画像が無い場合」
-
gif 画像上の ボタンに リン...
-
Pythonでgif画像が上手く作れない
-
VBAのユーザーフォームのイメー...
-
UWSC 画像認識で条件分岐
-
パネルに画像
-
【WPF】画像の切り替え
おすすめ情報