Why is the window frozen "Not Responding"

[hoangdiemtinh]

I am new to PB.
My primary language is not US/UK. I am using Google Translate.

What solutions when using DisableGadget/DisableWindow without causing the window are not respoding ?

[AZJIO]

I am new to PB.
My primary language is not US/UK. I am using Google Translate.

I use double check (screenshot)
QTranslate, Crow Translate (Linux), s3_translator (Alt+V)

Why do I use DisableGadget/DisableWindow, immediately encounter "Not Responding" problem.

show your example
are you using the call on another thread?

[hoangdiemtinh]

Before that command, there are the following commands:

Code: Select all

#SHA1_ISO = "9989F522934D032C01BS4B1EAB2459CDB93C05TF"

Procedure.s get_SHA1(fn.s)
  UseSHA1Fingerprint()
  Protected.s sha1
  sha1 = FileFingerprint(GetCurrentDirectory() + fn, #PB_Cipher_SHA1)
  ProcedureReturn sha1
EndProcedure

Procedure.I check_SHA1()
  Protected.s ss, yy
   ss = get_SHA1(GetCurrentDirectory() + "my-iso.iso") ; this file is 5GB size
    yy = #SHA1_ISO
    If CompareMemoryString(@ss, @yy, #PB_String_NoCaseAscii) ! #PB_String_Equal
      ProcedureReturn #False
    EndIf
    ProcedureReturn #True
  EndIf
EndProcedure
 ...................
 .....................
 Repeat
  ev_WINDOW = WaitWindowEvent()
  Select EventWindow()
      ;
    Case #mainWin
      Select ev_WINDOW   
        Case #PB_Event_Gadget
          Select EventGadget()
            Case #Button_CHECK_SHA1
            If check_SHA1() = $False
            MessageRequester(":(", "SHA1 does not match.")
            EndIf
            ..........................
            ............
  

mainWin then show "Not Responding" , freeze...

[AZJIO]

If no events come to the window within a couple of minutes, the window becomes frozen. Try running the task in a thread.
You can read the file in chunks - StartFingerprint(). And between reading, poll window events.

[hoangdiemtinh]

Thanks @AZJIO

md5, but it ok:
https://www.purebasic.fr/english/viewtopic.php?t=54531