Download file ? how to..

[Jose Nilton Pace]

Hi Soren. If is OnClick, put this code:

Code:

procedure TIWForm1.IWButton_ZipFilesClick(Sender: TObject);
begin
  ......
  AddToInitProc('ReleaseLock();');
end;

If is OnAsyncClick, put this code:

Code:

procedure TIWForm1.IWButton_ZipFilesAsyncClick(Sender: TObject);
begin
  ......
  WebApplication.CallBackResponse.AddJavaScriptToExecute('ReleaseLock();');
end;