Suspend и Resume при работе с Com портом

16.03.2016, 16:23. Показов 1321. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Всем привет!
Возникла интересная проблема при работе по заполнению документа Word. Моя программа заполняет определенный шаблон и после этого спрашивает пользователя открыть документ для просмотра или нет. При открытии этого документа из программы(при условии, что открыты еще какие-то документы word) в диспетчере задач

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
if (Is_File_Busy(fnout))                                            
{
    vApp  = GetActiveOleObject("Word.Application");             
        vDocs = vApp.OlePropertyGet("Documents");
    count = vDocs.OlePropertyGet("Count");
    for (i = 1; i <= count; i++)  
    {
        vDoc = vDocs.OleFunction("Item",i);
        checkDocName = vDoc.OlePropertyGet("FullName");
        if (fnout == checkDocName)
        {
            vDoc.OleProcedure("Activate");
            fnout = ExtractFilePath(Application->ExeName) + currentProtocolName;
            vDoc.OleProcedure("SaveAs",fnout,0);
            vDoc.OleProcedure("Close");
        }
    }
}

поток создается при открытии com порта

C++
1
2
    writer_instek = new InstekWriteThread(true);
    writer_instek->FreeOnTerminate = true;

ошибка срабатывает на процедуре
в строчке - SuspendCount := ResumeThread(FHandle);

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TThread.Resume;
{$IF Defined(MSWINDOWS)}
var
  SuspendCount: Integer;
begin
  SuspendCount := ResumeThread(FHandle);
  CheckThreadError(SuspendCount >= 0);
  if SuspendCount = 1 then
    FSuspended := False;
end;

что я делаю не так?

может кто посоветовать как от этого избавиться?

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

16.03.2016, 16:23

Ответы с готовыми решениями:

Thread Suspend/Resume
Возник вопрос. Пишу класс потоков на основе TThread.Прочитал стандартный класс TThread, в котором указано Suspend/Resume устаревшая...

Альтернатива Suspend/Resume?
Доброго времени суток! Возник следующий вопрос: как заменить (как я понял, неактуальные) методы Suspend/Resume? Есть две кнопки: первая,...

VS сообщает, что Thread Suspend() and Resume() устарели
Привет всем. Пишу код, использую Thread.Suspend() и Thread.Resume() но Visual Studio мне пишет что оно устарело. Что это значет, почему...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

16.03.2016, 16:23

Помогаю со студенческими работами здесь

Метод Thread.Suspend(),Thread.Resume()
Здравствуйте,пытаюсь сделать игру простенькую в Windows Form. И хочу,чтобы в ней было включено нажатие на паузу и возобновление, для этого...

Ошибка при работе с COM-портом
Здравствуйте! Пульт, собранный на микроконтроллере, периодически посылает по RS485 на компьютер запросы, компьютер - отвечает. Однако,...

Потеря данных при работе с COM портом
Добрый день. У меня сложилась проблема с программированием COM порта. Я пишу программу, которая должна взаимодействовать с оборудованием....

997 при работе с СОМ портом
Всем доброго. Давно не был здесь, но вот представился повод. Сразу отмечу, что поиск курил. Но, то ли нет моей проблемы, то ли не так...

Наводки при работе с портом Atmega8515
Atmega 8515 DDRB = 0xFF; //выход все порты б portb - out PORTB = 0xFF; PORTC = 0xFF;//on DDRC = 0x00;//in Если...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

Наверх