Code: Select all
handle = Downloadfile(a1$, {Async=True, Adapter="hurl", File=f$}, p_SetProgress)
Repeat done = ContinueAsyncOperation(handle)
VWait
Until done = True
Code: Select all
Case "Pressed":
Switch msg.ID
Case "abort":
CancelAsyncOperation(handle)
done = True
Endswitch