[kiman.ru]

Пишу тест: при копировании большого файла (фильм 400 мб) программа должна менять названия кнопки.

Изменение названия кнопки написал в потоке так:

Код:

procedure Progress.Execute;
var
  i: Integer;
begin
  for i := 0 to 100 do
    begin
      Form1.Button1.Caption := IntToStr(Random(1000));
      Sleep(100);
    end;
end;

Файл копирую так:

Код:

CopyFile(PChar('c:\film.avi'),PChar('c:\film_copy.avi'),true);

Так вот при копирвании файла программа «подвисает» на время копирования и название кнопки не изменяется...

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

[angvelem]

Вместо Sleep(100) используй Application.ProcessMessages.

[kiman.ru]

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

Вместо Sleep(100) используй Application.ProcessMessages.

И что будет? Мне нужно, чтобы название менялось много раз с каким-то интервалом. Я бы использовал таймер, но не знаю как использовать его в потоке. ProcessMessages вроде чистит очередь.

UPD: попробовал - не помогло.

[Snake22]

взаимодействие с формой вроде в синхронайз выводить надо,не?
могу предложить такой способ если таймер юзать нельзя.берешь текущее время,запоминаешь,и бесконечным циклом
while true do
сравниваешь,если запомненное время отличается от настояещего на секунду(или какой те интервал нужен) то переименовать кнопку,и обновить запомненное время, так по кругу пока файл не скопируется =)

[Aristarh Dark]

Если копируешь в главном потоке программы - то естественно будет подвисать.
Вот тут примеры, мне больше всего нравится тот где CopyFileEx

ЗЫЖ Если интересно - могу объяснить подробнее почему у тебя зависает (не обновляется).

[kiman.ru]

Сообщение от Aristarh Dark

Если копируешь в главном потоке программы - то естественно будет подвисать.
Вот тут примеры, мне больше всего нравится тот где CopyFileEx

ЗЫЖ Если интересно - могу объяснить подробнее почему у тебя зависает (не обновляется).

Да, мне интересно почему так происходит.

[Aristarh Dark]

Сообщение от kiman.ru

Да, мне интересно почему так происходит.

При вызове функции копирования (а вызываешь ты ее из главного потока программы) поток тормозится до окончания выполнения функции, по сути ждет ее завершения. В это время никакие сообщения им не обрабатываются. И как бы ты не старался из паралельного потока изменить визуальные компоненты (а за их отрисовку отвечает главный поток программы) у тебя ничего не получится (не будем тут углублятся в вопрос о том, что поток изменения кнопки у тебя написан не правильно, сути дела это не меняет). Сообщения отправлненные главному потоку просто "толпятся" в очереди до окончания работы функции копирования файла. По большому счету - если функция копирования не вернет управление программе, то программа "зависнет" в ожидании. Из диспетчера задач это будет выглядеть так: "Программа не отвечает". Как только копирование завершено (функция вернула результат), главный поток программы начинает обрабатывать накопившуюся очередь сообщений, и программа "отвисает".
На примере такое поведение видно при установке некоторых игр (у которых инсталятор кривой). Если инсталятор игры содержит большой контейнер с файлами (архив), то при его открытии (для установки) антивурус перехварывает процедуру открытия файла и начинает проверять файлы из ахива, если файлов много (очень много или дофига) и инсталятор кривенький, то создается впечатление что установка зависла.
Вот примерно так.

[kiman.ru]

Сообщение от Aristarh Dark

При вызове функции копирования (а вызываешь ты ее из главного потока программы) поток тормозится до окончания выполнения функции, по сути ждет ее завершения. В это время никакие сообщения им не обрабатываются. И как бы ты не старался из паралельного потока изменить визуальные компоненты (а за их отрисовку отвечает главный поток программы) у тебя ничего не получится (не будем тут углублятся в вопрос о том, что поток изменения кнопки у тебя написан не правильно, сути дела это не меняет). Сообщения отправлненные главному потоку просто "толпятся" в очереди до окончания работы функции копирования файла. По большому счету - если функция копирования не вернет управление программе, то программа "зависнет" в ожидании. Из диспетчера задач это будет выглядеть так: "Программа не отвечает". Как только копирование завершено (функция вернула результат), главный поток программы начинает обрабатывать накопившуюся очередь сообщений, и программа "отвисает".
На примере такое поведение видно при установке некоторых игр (у которых инсталятор кривой). Если инсталятор игры содержит большой контейнер с файлами (архив), то при его открытии (для установки) антивурус перехварывает процедуру открытия файла и начинает проверять файлы из ахива, если файлов много (очень много или дофига) и инсталятор кривенький, то создается впечатление что установка зависла.
Вот примерно так.

Спасибо за объяснения Да, правильно обновлять визуальные компоненты через Synchronize.

А почему, если вынести копирование файла в отдельный поток, то все остальные визуальные компоненты на форме можно изменять?

[Aristarh Dark]

А почему, если вынести копирование файла в отдельный поток, то все остальные визуальные компоненты на форме можно изменять?

Да, можно. Однако если ты будешь использовать CopyFile обычный, то ты не сможешь отследить прогресс копирования. По той же причине, что и при вызовек из главной формы: поток "подвиснет" на время копирования, но визуально этого не будет. Ну и окончание процесса копирования тебе нужно будет как-то отследить.

[kiman.ru]

Еще вопрос по печати. Открываю файл Word в потоке. Потом из основного потока отправляю команду печати документа. Делаю это так d.PrintOut; Возникает ошибка EOleSysError with message 'Object is not connected to server'.

Как можно открыть документ Word в потоке, а из основного потока отправить его на печать?

[Aristarh Dark]

Что-то сегодня меня подводят мои телепатические способности...
Надо бы код смотреть.
И вдогонку: а на кой надо открывать ворд в потоке???
Короче, надо код смотреть, иначе не понятно ничего

[kiman.ru]

Сообщение от Aristarh Dark

Что-то сегодня меня подводят мои телепатические способности...
Надо бы код смотреть.
И вдогонку: а на кой надо открывать ворд в потоке???
Короче, надо код смотреть, иначе не понятно ничего

Мне надо скопировать файл Word, открыть его, а потом по желанию пользователя распеатать его. Во время копирования файла и открытия должен бегать ProgressBar. Не важно что он не привязан к отображению точного времени копирования и открытия документа — он просто постоянно бегает. Так вот в момент открытия файла, основной поток подвисает на время выполнения процедуры, поэтому я вынес открытие файла в отдельный поток.

Код:

{ ГЛАВНЫЙ ЮНИТ}
. . .
// объявление переменных
public
    { Public declarations }
    d, w: Variant;
    SaveChanges: OleVariant;
  end;
. . .

// Открытие документа
procedure TForm1.WordOpen;
begin
  w := CreateOleObject('Word.Application');
  w.DisplayAlerts := False;
  try
    d := w.Documents.Open(FileName := 'C:\test.doc',ReadOnly := True);
  except
    ShowMessage('Err');
  end;
end;

// печать открытого документа
procedure TForm1.ButtonPrintClick(Sender: TObject);
begin
  d.PrintOut;
end;

// запуск процедуры открытия документа в потоке
procedure TForm1.ButtonThreadWordClick(Sender: TObject);
var
  ThreadWordOpen: WORDOPEN;
begin
  ThreadWordOpen := WORDOPEN.Create(True);
  ThreadWordOpen.FreeOnTerminate := False;
  ThreadWordOpen.Resume;
end;

{ ОПИСАНИЕ ЮНИТА ПОТОКА }
unit Unit2;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ShellCtrls, ExtDlgs, ExtCtrls, Unit1, ComObj, OleCtnrs, Printers, ActiveX;

type
  WORDOPEN = class (TThread)
  private
    {private}
  protected
    procedure UpdateCaption;
    procedure ShowErr;
    procedure Execute; override;
  end;

implementation

procedure WORDOPEN.Execute;
begin
  CoInitialize(nil);
  Form1.WordOpen;
  // если здесь вызвать процедуру печати документа, то он выводится на печать
  //Form1.ButtonPrint.OnClick(Self);
end;

[Aristarh Dark]

Говорилось же выше, что обращаться к объектам VCL следует только через синхронайз.
Скорее всего у тебя документ открыться не успевает, а ты его уже распечатываешь. Я бы пересмотрел структуру апликухи ибо так писать нельзя.