topic-45041

Board index FiveWin for Harbour/xHarbour GetImageHash

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

GetImageHash
Posted: Wed Oct 23, 2024 10:34 AM

Hi,

I ask AI to create Hash for an image.

FUNCTION GetImageHash(cFileName)
    LOCAL nHandle, cBuffer, nHash, nByte, i

    nHandle := FOPEN(cFileName, 0)   // Dosyayı okumak için aç
    IF nHandle < 0
        ? "Dosya açılamadı"
        RETURN NIL
    ENDIF

    nHash := 0
    DO WHILE FREAD(nHandle, @cBuffer, 1) > 0
        nByte := ASC(cBuffer)
        nHash := BITOR(BITLSHIFT(nHash, 5) - nHash, nByte)
    ENDDO

    FCLOSE(nHandle)

    RETURN nHash

Change BITOR to hb_BITOR, BITLSHIFT to hb_BITSHIFT.

I could not get any result. Can you help me?

Thanks

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: GetImageHash
Posted: Wed Oct 23, 2024 02:47 PM

Dear Hakan,

Please try this:

MsgInfo( nFileCRC( "yourimage.png" ) ) // any image extension

regards, saludos

Antonio Linares
www.fivetechsoft.com

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: GetImageHash
Posted: Thu Oct 24, 2024 07:10 AM

Antonio Linares wrote:Dear Hakan,

Please try this:

MsgInfo( nFileCRC( "yourimage.png" ) ) // any image extension

I will try.

Thanks.

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

FiveTech Support Forums

Continue the discussion