Вопрос-Ответ (для новичков BlitzMax)

[Greymem]

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

http://en.wikibooks.org/wiki/BlitzMa...age/Exceptions

Это я тоже читал

Вот такая байда например работать не хочет при билде релиза.
В однопоточном Debug Mod работает. В многопоточном не работает.

Local Image:TImage;
Try
DrawImage(Image, 0, 0, 0) ;
Catch ex:Object
Print ex.ToString()
End Try

[Greymem]

up up up

[SBJoker]

ну что тут можно посоветовать.. тебе точно многопоточное необходимо?
*Для справки, ты же вкурсе что разруливать потоки нужно самому да? Простое включение многопоточности не сделает приложение таковым.

[Greymem]

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

ну что тут можно посоветовать.. тебе точно многопоточное необходимо?
*Для справки, ты же вкурсе что разруливать потоки нужно самому да? Простое включение многопоточности не сделает приложение таковым.

Да я в курсе.
У меня есть основной игровой цикл
И задача в фоне которая создает объект для обработки в главном цикле.

Долго объяснять.

Вот всё бы нормально... до тех пор пока главный цикл не обратиться к "недосозданному" в фоне объекту. Или когда главный цикл попытается удалить этот объект

Я даже при создании и удалении блокирую один и тот-же мутекс. Всё равно где-то ошибка.

Теперь мне как обработать попытку в главном цикле и как обработать попытку в фоне?

Ибо ошибка EXCEPTION_ACCESS_VIOLATION

[Greymem]

Вот накатал код, относительно по структуре похожий на мой

При длительной симуляции обязательно произойдёт ошибко.

Как обработать это всё попыткой? Так как главный цикл не знает какое действие выполняется прямо сейчас в фоне и наоборот.

Типа получилось удалить - ок, не получилось то просто PRINT чегонибудь Но чтобы прога не останавливалась.

Надеюсь я понятно выражаюсь, и вы сможете мне помочь. Спасибо заранее.

Type TCustomType
	Field X:Int;
	Field Y:Int;
	Field Text:String;
	
	Function Add(X:Int, I:Int, Text:String, Source:String = " ")
	Local NewData:TCustomType = New TCustomType;
		NewData.X = X;
		NewData.Y = Y;
		NewData.Text = Text;
		ObjList.AddLast(NewData) ;
		Print(String(MilliSecs()) + Source + X + " " + Y + Text) ;
	End Function
	
	Method Destroy()
		ObjList.Remove(Self) ;
		X = Null;
		Y = Null;
		Text = Null;
		GCCollect;
	End Method
End Type

Function AddOrDestroy:Object(Obj:Object = Null)
Local LObj:TCustomType;

SeedRnd(MilliSecs() / Rand(1, 20)) ;
TCustomType.Add(Rand(1, 200), Rand(1, 200), "t " + String(Rand(1, 200)), " Thread ") ;
Delay(Rand(5, 10)) ;

For LObj = EachIn ObjList
	LObj.Destroy() ;
Next
SeedRnd(MilliSecs() / Rand(1, 15)) ;

'Delay(Rand(5, 10)) ;
End Function

Global ObjList:TList = New TList;
Global ObjGenerator:TThread = New TThread;

SeedRnd(MilliSecs()) ;

While Not KeyDown(KEY_ESCAPE)
Local LObj:TCustomType;
Local I:Int;
	
	If Not ObjGenerator.Running() Then ObjGenerator = CreateThread(AddOrDestroy, Null)
	
	For I = 1 To Rand(1, 15)
		SeedRnd(MilliSecs() / Rand(1, 20)) ;
		TCustomType.Add(Rand(1, 200), Rand(1, 200), "t " + String(Rand(1, 200))) ;
	Next
	
	For LObj = EachIn ObjList
		LObj.Destroy() ;
	Next
	
	For LObj = EachIn ObjList
		Print(LObj.X);
	Next

Wend

Добавлено:
В этом примере при операциях с листом если вставить LockMutex,UnlockMutex
Всё работает без ошибок. В моём коде - нет. =( Пока не разобрался почему.

Но обработчик попытки мне всё равно нужен

[Randomize]

По поводу семпла бегло могу сказать сразу:

Function Add(X:Int, I:Int, Text:String, Source:String = " ")
	Local NewData:TCustomType = New TCustomType;
		NewData.X = X;
		NewData.Y = Y;

Параметр I в конструкторе ошибочен - внутри конструктора Y остаётся вновь созданной нетронутой переменной с нулём.

While Not KeyDown(KEY_ESCAPE)
Local LObj:TCustomType;
Local I:Int;

Опрашивать клавиатуру нечем. Окна то нет.

	Method Destroy()
		ObjList.Remove(Self) ;
		X = Null;
		Y = Null;
		Text = Null;
		GCCollect;
	End Method

Я понимаю стремление всё контролировать, но обнулять переменные не надо. Это сделает Garbage collector сам. Всё кроме ObjList.Remove(Self) и GCCollect можно убрать из деструктора.


Написал семпл:

SuperStrict
Framework brl.basic
Import brl.glmax2d
Import brl.random
Import brl.threads

Type TTest
	Field x:Float, y:Float, z:Float
EndType

Function MySexyThread:Object(obj:Object)
		Local tst:TTest
		Try
			tst.x = 7
			tst.y = 8
		Catch e:Object
			Print "Gotcha! " + e.ToString()
		EndTry
EndFunction


Global SexyThread:TThread = New TThread

SeedRnd(MilliSecs())


Local endtime:Int = MilliSecs() + (1000 * 60)
While (MilliSecs() < endtime)
	If Not SexyThread.Running() Then SexyThread = CreateThread(MySexyThread, Null)
	Delay(1)
Wend

Работает как положено. На протяжении минуты плюёт экскепты.
Твой код с указанными выше правками тоже работает.

SuperStrict
Framework brl.basic
Import brl.glmax2d
Import brl.random
Import brl.threads

Local img:TImage

Try
	DrawImage(img, 10, 10)
Catch e:Object
	Print "Wft? " + e.ToString()
End Try

Тоже вполне работает.

[Greymem]

2 Randomize
Спасибо за поправку, но не придирайтесь пожалуйста к мелким ошибкам, разумеется в

Function Add(X:Int, I:Int, Text:String, Source:String = " ")

должен быть Y вместо I

While Not KeyDown(KEY_ESCAPE)

Хотел графику сделать, но потом передумал.

Ошибка вызванная операциями в основном и фоновом потоке никак не связана с моими маленькими погрешностями.


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

За первый спасибо. Работает =)))
Странно, но у меня тоже самое не пахало =)

Вообщем доразобрался. Всем спасибо

[Greymem]

Новый вопрос

Целесообразно ли использовать в каждом графическом объекте TLink на Image вместо самого TImage если в системе много объектов с одинаковым изображением?

?

[Randomize]

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

Новый вопрос

Целесообразно ли использовать в каждом графическом объекте TLink на Image вместо самого TImage если в системе много объектов с одинаковым изображением?

?

Нет, не целесообразно. Сам TImage является указателем на загруженное изображение/пиксмапу.

[JeanWinters]

Где можно скачать новую версию blitzmax ?

[SBJoker]

Ты это серьёзно?
http://forum.boolean.name/showthread.php?t=15661

[Greymem]

Подскажите пожалуйста, как вызывать из функции другую функцию, если название второй было передано в первой.
К примеру, как это делает функция CreateThread() ?

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

Function ObjTest:Object()
	Print("Hello") ;
End Function

Function RunObj(ObjName:Object)
?????
End Function


RunObj(ObjTest) ;

[baton4ik]

А ты посмотри как CreateThread() сделан:

Function Create:TThread( entry:Object( data:Object),data:Object )

[Greymem]

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

А ты посмотри как CreateThread() сделан:

Function Create:TThread( entry:Object( data:Object),data:Object )

Спс, Кэп.
Это я уже посмотрел

Теперь как вызвать этот самый entry ?

[Greymem]

Сижу, читаю. Неужели всё придется делать через EVENT'ы и HOOK'и ?