TThread (потоки) при загрузке файлов в базу SQL Server - как загрузить файл размером 100 мб в базу данных SQL Server, обработать и выгрузить его из базы?

[artemavd]

Добрый день!
Пытаюсь начать работать с потоками, т.к. стало интересно: как загрузить файл размером 100 мб в базу данных SQL Server, потом выгрузить его оттуда, произвести кое какие действия. Получается 3 этапа.
Сделал так:

//Объявил класс потока в модуле, где основная процедура, в которой выполняются все 3 этапа:
  TMyThread = class(TThread)
    private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure Working;
  end;

....
procedure TMyThread.Working;
begin
  //тут делаются 3 этапа эти
  EditOneFile;
end;

procedure TMyThread.Execute;
begin
  Synchronize(Working);
end;

//не уверен в правильности этого:
procedure NewProcedure;
begin
  MyThread:=TMyThread.Create(False);
  MyThread.Priority:=tpHigher;
  MyThread.FreeOnTerminate:=True;
end;

В последнем блоке кода я хотел запустить свой поток.
То, есть, нажимается кнопка, запускается процедура NewProcedure, в которой должен отработать поток.

Проблема в том, что не отрабатывает что ли.
Хотя бы потому что на форме у меня расположен компонент анимации, который просто крутится, давая понять юзеру, что программа не зависла.


Подскажите что я не так делаю?

[Аватар]

  MyThread:=TMyThread.Create(False);
//после Create с False поток сразу запустится и до следующей команды уже может и завершится
  MyThread.Priority:=tpHigher;

procedure TMyThread.Execute;
begin
  Synchronize(Working);
end;

Какой смысл весь код потока синхронизировать?

расположен компонент анимации, который просто крутится, давая понять юзеру, что программа не зависла.

Он может и в своем собственном потоке крутиться, смотря какой )

[Alex11223]

Так чтобы понять запускается ли добавьте логирование или брекпоинт поставьте.

Но код бессмысленный, Synchronize же просто приведет к выполнению всего в UI потоке.

И что за странные имена у функций и процедур? Их обычно стараются делать глаголами. StartThread, Work/DoWork (вторая конечно вообще не нужна потому что и так есть Execute).

[artemavd]

Сообщение от Аватар

  MyThread:=TMyThread.Create(False);
//после Create с False поток сразу запустится и до следующей команды уже может и завершится
  MyThread.Priority:=tpHigher;

procedure TMyThread.Execute;
begin
  Synchronize(Working);
end;

Какой смысл весь код потока синхронизировать?
Он может и в своем собственном потоке крутиться, смотря какой )

Ну, а как надо тогда? Без синхронизации?
Мне надо, чтобы анимация крутилась, и все 3 этапа обратаывалтсь, чтобы программа не висела))

[Alex11223]

Синхронизировать работу с UI компонентами, а не все подряд.

[artemavd]

Сообщение от Alex11223

Синхронизировать работу с UI компонентами, а не все подряд.

Как?
А можно ли выводить информацию о том, сколько процентов прошло от загрузки файла в базу? Что-то типа прогрессбара, отображающего ход загрузки.

[Аватар]

А как и какими средствами загружаешь?

[Alex11223]

while ...
begin
  DoSomething();
  Synchronize(UpdateProgress);
end;