StrictOn conversions from 'Object' to '1-dimensional array

[student-uni]

Пишет

Strict On disallows implicit conversions from 'Object' to '1-dimensional array of Object

НА
Dim fileStream As FileStream = Nothing
If File.Exists(filePath) Then
fileStream = File.OpenRead(filePath)
Dim formatter As New BinaryFormatter
Dim settings() As Object = formatter.Deserialize(fileStream)

а именно на фрагмент : formatter.Deserialize(fileStream)

Изменил на

Dim settings As Object = formatter.Deserialize(fileStream)

/привёл к нужному типу/

Но пошли дальше ошибки StrictOn Disallows Late Binding

например на

settings.Length = 10
или на
settings(0)
settings(1) итд

Это что надо определить каков будет размер settings и переопределить Redim-OM ?

Спаибо

П.С.
Отключить СтриктОн просьба не предлагать

[student-uni]

Да забыл
при сериализации

Dim settings() As Object = New Object() {strLog, strKen, intDBtyp, TextBox9.Text}

это такой массив.
Наверно надо при десериализации привести кэтому типу ?

[Nord777]

И в чем проблема? Приведи к этому типу.

[Viper]

Внимательное чтение MSDN по теме BinaryFormatter (с тщательным изучением примеров) весьма пользительно для автора, также пользительным будет являться чтение по привидению типов.

[student-uni]

И в чем проблема? Приведи к этому типу.

Пытаюсь:

formatter.Serialize(fileStream, settings)

Должно быть
вместо

Код: Выделить всё

Dim settings() As Object = formatter.Deserialize(fileStream)

' вот это
Dim settings() As Object = formatter.Deserialize(fileStream, settings())


Но надо объявить перед этим
Dim settings() As Object = New Object() {strLog, strKen, intDBtyp, TextBox9.Text}

а параметров то {strLog, strKen, intDBtyp, TextBox9.Text} у меня нет ,
они при сериализации определялись.

Еслибы settings()) был не As Object а например Hashtable я бы сделал

Dim settings() As Object = formatter.Deserialize(fileStream, Hashtable )

Пробую

Код: Выделить всё


Dim settings() As Object
settings() = formatter.Deserialize(fileStream, settings())


Тоже не идёт - надо както проинициализировать типа
{strLog, strKen, intDBtyp, TextBox9.Text}
но как ?

[Viper]

Задачка типа "пойди туда не знаю куда..."

Вот тебе пример для размышлений

Код: Выделить всё

Dim arInt() As Integer = {1, 2, 3, 4, 5}
Dim obj As Object = arInt
Dim arInt2() As Integer = CType(obj, Integer())

[student-uni]

Садисты
Спасибо !

Код: Выделить всё


Dim settings() As Object ' = New Object() {"", "", 0, ""}
settings = CType(formatter.Deserialize(fileStream), Object())