0
Я хотел бы подготовить асинхронный процесс для процедуры в Delphi Borland 2006 Знаете ли вы, как?Фоновый работник Delphi
application.ProcessMessages;
dm001.Proc.Close;
dm001.Proc.Parameters.Clear;
dm001.Proc.ProcedureName:='[dbo].[EXAMPLE]';
dm001.Proc.Parameters.AddParameter.Name:='@idEXAMPLE';
dm001.Proc.Parameters.ParamByName('@id').DataType:="example";
dm001.Proc.Parameters.ParamByName('@id').Value:="example";
dm001.Proc.Open;
Пример на C#
private void bw_DoWork(object sender, DoWorkEventArgs e)
{
BackgroundWorker worker = sender as BackgroundWorker;
for (int i = 1; (i <= 10); i++)
{
if ((worker.CancellationPending == true))
{
e.Cancel = true;
break;
}
else
{
// Perform a time consuming operation and report progress.
System.Threading.Thread.Sleep(500);
worker.ReportProgress((i * 10));
}
}
}
или
private void buttonStart_Click(object sender, RoutedEventArgs e)
{
if (bw.IsBusy != true)
{
bw.RunWorkerAsync();
}
}
'TThread'. Он находится в файле справки. В папке Delphi Demos есть образец в Demos \ DelphiWin32 \ VCLWin32 \ Threads. –
В D2006 вам нужно использовать поток. Создайте класс, полученный из 'TThread'. Если вы используете современный Delphi, вы можете использовать OTL. –
спасибо за помощь. Я проверю. –