Imports Shipwreck.Phash
Imports Shipwreck.Phash.Bitmaps
...
Using ms As New IO.MemoryStream(IO.File.ReadAllBytes("c:\temp\temp.jpg"))
 Using originalBild As Image = Image.FromStream(ms)
  Dim bitmap = CType(originalBild, Bitmap)
  Dim shash As Shipwreck.Phash.Digest = ImagePhash.ComputeDigest( _
    bitmap.ToLuminanceImage())
 End Using
End Using

Joachim

Zitat:

Ich möchte zu mehreren Milionen Bildnamen den Hash Key in der Datenbank speichern (MS SQL Server) um doppelte schnell in der DB erkennen zu können.

Zitat:

Frage: Wer hat eine Idee wie ich das umwandeln und platzsparend in der DB speichern kann.

Joachim

EALA FREYA FRESENA

var score = ImagePhash.GetCrossCorrelation(hash1, hash2);

Dim bitmap = CType(MyCropImage, Bitmap)
Dim shash As Shipwreck.Phash.Digest = ImagePhash.ComputeDigest( _
  bitmap.ToLuminanceImage())
Dim i As Byte() = shash.Coefficients
'I.tostring = 
' 0x7879FF750079E975097DE2701380DA6C1887D36A2380C7712B83C16A3385B76B3D84AE6B488
' 3A26D
 
'lese ich den Wert aus der DB ... ist es ein String 
HashFromDB = _
  "0x7879FF750079E975097DE2701380DA6C1887D36A2380C7712B83C16A3385B76B3D84AE6B4" & _
  "83A26D"

Joachim

select * from TabelleA where Phash='hashkey'
select * from A inner Join B on A.Phash=bB.Phash

insert into A (EAN,Phash) values ('12345..','0x7879FF750079E97509...')

Joachim

    'Der Hex-String ohne 0x am Anfang!
    Dim x As String = _
      "7879FF750079E975097DE2701380DA6C1887D36A2380C7712B83C16A3385B76B3D84AE6" & _
      "4883A26D"
    'Einlesen in BigInteger
    Dim i As BigInteger = BigInteger.Parse(x, _
      Globalization.NumberStyles.HexNumber)
    'Das Byte-Array
    Dim ba As Byte() = i.ToByteArray

'Der Hex-String ohne 0x am Anfang!
Dim x As String = _
  "5B74BEFF5AD2346A8D1B4B00623E23444E5F47568141745A647259994A697F425B454749474" & _
  "396B"
 
'Einlesen in BigInteger
Dim b As System.Numerics.BigInteger = System.Numerics.BigInteger.Parse(x, _
  Globalization.NumberStyles.HexNumber)
'b=7630816972431674181833850499599310621001778199538576802763606114743399308556
' 54039093644937214315
 
'Das Byte-Array
Dim ba As Byte() = b.ToByteArray

Joachim

Zitat:

So wie ich das sehe, ist das Byte Array vertauscht worden in der Reihenfolge ... 0 wird 39, 1 wird 38 usw.

Dim ba As Byte() = b.ToByteArray.Reverse.ToArray

Joachim