В данный момент объект используется другим процессом

Среда PascalABC.NET
#1

Вот я опять тут, способ пересмотреть код не помог. Текст исключения

(JIT) отладки вместо данного диалогового 
окна содержится в конце этого сообщения.

************** Текст исключения **************
System.InvalidOperationException: В данный момент объект используется другим процессом.
   в System.Drawing.Graphics.get_SmoothingMode()
   в ABCObjects_implementation______.ABCObjects_implementation______.drawRect(Rectangle r) в C:\Games\PascalABC.NET\LibSource\ABCObjects.pas:строка 694
   в ABCObjects.ABCObjects.RedrawObjects() в C:\Games\PascalABC.NET\LibSource\ABCObjects.pas:строка 743
   в ABCObjects_implementation______.ABCObjects_implementation______.ABCRedrawProc() в C:\Games\PascalABC.NET\LibSource\ABCObjects.pas:строка 738
   в GraphABC.ABCControl.OnPaint(Object sender, PaintEventArgs e) в C:\Games\PascalABC.NET\LibSource\GraphABC.pas:строка 2312
   в System.Windows.Forms.Control.OnPaint(PaintEventArgs e)
   в System.Windows.Forms.Control.PaintWithErrorHandling(PaintEventArgs e, Int16 layer)
   в System.Windows.Forms.Control.WmPaint(Message& m)
   в System.Windows.Forms.Control.WndProc(Message& m)
   в System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)


************** Загруженные сборки **************
mscorlib
    Версия сборки: 4.0.0.0
    Версия Win32: 4.7.2650.0 built by: NET471REL1LAST_B
    CodeBase: file:///C:/Windows/Microsoft.NET/Framework64/v4.0.30319/mscorlib.dll
----------------------------------------
Alpha
    Версия сборки: 1.0.0.0
    Версия Win32: 
    CodeBase: file:///C:/OpenServ/OSPanel/domains/Main/RedFile/Rus/Programdata/Apps/ru.Admin/App/Alpha.exe
----------------------------------------
System.Drawing
    Версия сборки: 4.0.0.0
    Версия Win32: 4.7.2556.0 built by: NET471REL1
    CodeBase: file:///C:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System
    Версия сборки: 4.0.0.0
    Версия Win32: 4.7.2556.0 built by: NET471REL1
    CodeBase: file:///C:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Windows.Forms
    Версия сборки: 4.0.0.0
    Версия Win32: 4.7.2556.0 built by: NET471REL1
    CodeBase: file:///C:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Configuration
    Версия сборки: 4.0.0.0
    Версия Win32: 4.7.2556.0 built by: NET471REL1
    CodeBase: file:///C:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
System.Core
    Версия сборки: 4.0.0.0
    Версия Win32: 4.7.2633.0 built by: NET471REL1LAST_C
    CodeBase: file:///C:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll
----------------------------------------
System.Xml
    Версия сборки: 4.0.0.0
    Версия Win32: 4.7.2612.0 built by: NET471REL1LAST_B
    CodeBase: file:///C:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
readdll
    Версия сборки: 1.0.0.0
    Версия Win32: 
    CodeBase: file:///C:/OpenServ/OSPanel/domains/Main/RedFile/Rus/Programdata/Apps/ru.Admin/App/readdll.DLL
----------------------------------------
System.Drawing.resources
    Версия сборки: 4.0.0.0
    Версия Win32: 4.7.2556.0 built by: NET471REL1
    CodeBase: file:///C:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System.Drawing.resources/v4.0_4.0.0.0_ru_b03f5f7f11d50a3a/System.Drawing.resources.dll
----------------------------------------
System.Windows.Forms.resources
    Версия сборки: 4.0.0.0
    Версия Win32: 4.7.2556.0 built by: NET471REL1
    CodeBase: file:///C:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms.resources/v4.0_4.0.0.0_ru_b77a5c561934e089/System.Windows.Forms.resources.dll
----------------------------------------
mscorlib.resources
    Версия сборки: 4.0.0.0
    Версия Win32: 4.7.2556.0 built by: NET471REL1
    CodeBase: file:///C:/WINDOWS/Microsoft.Net/assembly/GAC_MSIL/mscorlib.resources/v4.0_4.0.0.0_ru_b77a5c561934e089/mscorlib.resources.dll
----------------------------------------

************** Оперативная отладка (JIT) **************
Для подключения оперативной (JIT) отладки файл .config данного
приложения или компьютера (machine.config) должен иметь
значение jitDebugging, установленное в секции system.windows.forms.
Приложение также должно быть скомпилировано с включенной
отладкой.

Например:

<configuration>
    <system.windows.forms jitDebugging="true" />
</configuration>

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

С последнего удачного запуска я добавил строки 253-276 и 306-307
Файлы: Alpha.pas (13,4 КБ) readdll.dll (66 КБ)
Для воспроизведения ошибки нажимайте
1)Да/нет
2)Настройки
3)Авторизоваться
4)Произвольные строки
На всякий случай тестовый аккаунт: Логин: test. Пароль: PABCUP
В папке C:/Games появиться папка RedBot

#2

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

Кстати forward в паскале не нужно, и без него работает. Так же научитесь пользоваться массивами чтоб не создавать 100500 переменных. И попробуйте использовать форматирование, в таком коде очень сложно что то искать…

#3

Но как его тогда вызвать? И в других вызовах всё хорошо. Без forward у меня не видит. Массивы это 2 шаг, я на 1. Постараюсь.

#4

Просто пишете setting; вместо старта потока.

А forward похоже всё же нужно, хотя странно это как для .Net языка…

#5

Спасибо