Конвертация RichText To PlainText через Word интерфейсы. Ошибка.

[spamer]

Всем привет.
Суть задачи - конвертировать *rtf и *doc документы в обычный текст. Все бы ничего, если бы подобных документов было немного, а их около 50 000.
Конвертацию делаю в отдельном потоке, вот код:

    FMsWord: WordApplication;

...

procedure TRichToPlainConverterThread.InitializeWordApp;
begin
  CoInitialize(nil);
  FMsWord := CoWordApplication.Create;
  try
    MsWord.Visible := False;
    MsWord.DisplayAlerts := wdAlertsNone;
  except
    FinalizationWordApp;
  end;
end;

procedure TRichToPlainConverterThread.FinalizationWordApp;
begin
  if MsWord = nil then
    Exit;
  try
    MsWord.Quit(wdDoNotSaveChanges, EmptyParam, EmptyParam);
  finally
    FMsWord := nil;
    CoUninitialize;
  end;
end;

procedure TRichToPlainConverterThread.Execute;
var
  i: Integer;
begin
  i := 0;
  try
    InitializeWordApp;
    while (not Terminated) and (i < RichTextFiles.Count) do
    begin
      try
        CurrentRichTextFile := RichTextFiles[i];
        CurrentPlainTextFile := DestinationPath + ChangeFileExt(ExtractFileName(CurrentRichTextFile), '.txt');

        MsWord.Documents.Open(CurrentRichTextFile, EmptyParam, EmptyParam, EmptyParam,
          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
        MsWord.ActiveDocument.SaveAs(CurrentPlainTextFile, wdFormatUnicodeText, EmptyParam,
          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
        PlainTextFiles.Add(CurrentPlainTextFile);
      finally
        MsWord.ActiveDocument.Close(wdDoNotSaveChanges, EmptyParam, EmptyParam);
        if not Terminated then
          Synchronize(DoConvertProgress);
        Inc(i);
      end;
    end;
  finally
    FinalizationWordApp;
    if not Terminated then
      Synchronize(DoConvertComplete);
    if not Terminated then
      PostMessage(MessageWindow, WM_RICH_TO_PLAIN_CONVERTER_THREAD_DONE, 0, 0);
  end;
end;

Вроде как и работает, но приложение приблизительно после 15 сконвертированных документов падает либо на методе открытия документа, либо на методе сохранения, с ошибкой "EOleException - Недостаточно памяти чтобы закончить операцию.".
Возможно у кого-то есть домыслы с чем может быть связана подобная ошибка?

[Аватар]

Эти компоненты полны глюков. Попробуйте напрямую через CreateOLEObject('Word.Application') .

[spamer]

Эти компоненты полны глюков.

О каких компонентах идет речь? Я же извлек заголовки библиотеки типов и теперь использую стандартные интерфейсы Word.

Попробуйте напрямую через CreateOLEObject('Word.Application') .

Кстати и так пробовал, все равно та же ошибка.
У кого еще какие есть идеи как избавиться от данной ошибки или хотя бы узнать ее причину?

[Аватар]

О каких компонентах идет речь?

Возможно я не правильно понял, но они таки есть ...\Delphi7\Ocx\Servers\WordXP.pas. Servers в палитре компонент

Кстати интересная ссыль http://wordexpert.ru/page/u-menya-po...tochno-pamyati

[Человек_Борща]

procedure TRichToPlainConverterThread.FinalizationWordApp;
begin
  if MsWord = nil then
    Exit;
  try
    MsWord.Quit(wdDoNotSaveChanges, EmptyParam, EmptyParam);
  finally
    FMsWord := nil;
    CoUninitialize;
  end;
end;

Сюда бы Try Except для верности.....
А ещё попробуйте MadExcept(freeware), там автор сделал не плохой детектор утечек в памяти.

[spamer]

Кстати интересная ссыль

Вариант с вирусом отпадает - пробовал на нескольких разных машинах, та же проблема возникает...
Компоненты из поставки Delphi я не использовал...Работаю напрямую...

Сюда бы Try Except для верности

Для какой верности? Как раз таки try-finally и стоит для верности...
Насчет MadExcept - так ведь ошибка, насколько я понимаю, возникает на стороне Word'а, как он мне сможет помочь?
Просто странно как-то, неужели я первый кто столкнулся с подобной проблемой?

[Человек_Борща]

Для какой верности? Как раз таки try-finally и стоит для верности...

Может лог какой прикрутить?
Возможно, финализация происходит в какой-то момент, где её не должно быть...

Насчет MadExcept - так ведь ошибка, насколько я понимаю

Особых проблем подключения и отключения MadExcept не составляет. Отчет об ошибке и утечках памяти, дадут вам более ясную картину того, где происходит утечка.

Вообще, есть вариант, что система не успевает освобождать память от предыдущих документов. Проверьте рост памяти каким-нибудь диспетчером процессов.

[Аватар]

Попробовал у себя, поток правда не делал, проблем не наблюдал (Win 7 (64), D7, Office 2003)

procedure TForm1.Button2Click(Sender: TObject);
const wdDoNotSaveChanges = 0;
      wdFormatUnicodeText =7;
var WordApplication: OLEVariant;
    i: Integer;
begin
  WordApplication:=CreateOLEObject('Word.Application');
  WordApplication.Visible:=False;
  for i:=1 to 100 do begin
    WordApplication.Documents.Open('E:\Otladka.doc');
    WordApplication.ActiveDocument.SaveAs(Format('E:\Otladka\Otladka%d.txt',[i]),wdFormatUnicodeText);
    WordApplication.ActiveDocument.Close(wdDoNotSaveChanges);
  end;
  WordApplication.Quit;
  WordApplication:=Unassigned;
end;

и так (чтобы файлы разные были)

procedure TForm1.Button3Click(Sender: TObject);
var i: Integer;
begin
  for i:=1 to 100 do
    CopyFile('E:\Otladka.doc',PChar(Format('E:\In\Otladka%d.doc',[i])),True);
end;

procedure TForm1.Button4Click(Sender: TObject);
const wdDoNotSaveChanges = 0;
      wdFormatUnicodeText =7;
var WordApplication: OLEVariant;
    i: Integer;
begin
  WordApplication:=CreateOLEObject('Word.Application');
  WordApplication.Visible:=False;
  for i:=1 to 100 do begin
    WordApplication.Documents.Open(Format('E:\In\Otladka%d.doc',[i]));
    WordApplication.ActiveDocument.SaveAs(Format('E:\Otladka\Otladka%d.txt',[i]),wdFormatUnicodeText);
    WordApplication.ActiveDocument.Close(wdDoNotSaveChanges);
  end;
  WordApplication.Quit;
  WordApplication:=Unassigned;
end;

Только очень медленно. Утечек памяти не заметил. Исходный doc чуть больше 3,5 Mb

[spamer]

Парни, спасибо за советы.
Вроде разобрался с проблемой. Та и проблема-то, как оказалось, была вовсе не в моем коде, а все из-за поврежденного/ых doc файла/ов.
Хотя странную ошибку Word райзит...Казалось бы, при чем тут - недостаточно памяти...
Решил просто try-except'ом ловить exception'ы и делать Continue циклу...
Насчет скорости - да, не быстро конечно, но в целом для меня пока это не критично...
И да, таки добавлю логирование...

[eval]

if not Terminated then
Synchronize(DoConvertComplete);
if not Terminated then
PostMessage(MessageWindow, WM_RICH_TO_PLAIN_CONVERTER_THREAD_D ONE, 0, 0);

фиерично .