dionel1969 Posted August 22, 2012 Share Posted August 22, 2012 Hello: I have a process that is responsible for "Sale Process" of various points of sale. This procedure takes time depending on the amount of POS that were working in a day and depending on the sale of each of these POS. Then, when the sale is small no problem, but when is large before processing finished application gives an error of "Time Out". The question is: How I can do to have a process feedback directly from the server in the window showing the results and avoid the time-out error? I put a timer, but does not start at the time indicated. procedure TProcessForm.ProcessSale; begin try fProcessStart := Now; tmrProcess.Enable := True; ProcessSaleInternal; finally tmrProcess.Enable := False; end end; procedure TProcessForm.tmrProcessTimer(Sender: TObject); begin pnlProcessing.Caption := 'Procesando Venta. Tiempo de Procesamiento: ' + IntToStr(MillisecondsBetween(Now, fProcessStart)); end; Quote Link to comment Share on other sites More sharing options...
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.