VB NET GetType Marshal

[Tomas]

Rieccomi a voi con il solito problema di sintassi.

Ho finalmente capito come leggere/scrivere un Array multidimensionali in VB, avanza ancora un problema:
capire di che tipo di array si tratta (integer,byte,single,decimal,...) e quindi convertire il tipo in quanti byte occupa ogni singolo elemento (per ora è un argomento di passaggio, ma risulta ingestibile TipoInByte).

    Public Sub Write(ByVal Mat As Object, ByVal TipoInByte As Integer)
        Dim ND As Integer = 1
        If IsArray(Mat) Then ND = Mat.Length
        Dim NDinByte As Integer = TipoInByte * ND
        Dim VettByte(0 To NDinByte - 1) As Byte
        Buffer.BlockCopy(Mat, 0, VettByte, 0, NDinByte)
        internal_BinaryWriter.Write(VettByte)
        VettByte = Nothing
    End Sub

ho provato con istruzioni di questo tipo, ma per un verso o per l'altro mi danno errore

Dim tipo As Type
tipo = Mat.GetType().GetElementType
Dim NinByte = System.Runtime.InteropServices.Marshal.SizeOf(tipo .GetType)

Grazie anticipato per l'aiuto
Tomas

[Tomas]

Scusami ho inserito nella descrizione NET per forza dell'abitudine, il compilatore che uso è Microsoft Visual Basic 2008 Express Edition. Con ASP non c'entra per nulla. Cosa devo fare adesso? Aprire un altro post? Correggere la descrizione?

Nel frattempo hai visto il problema? Sai la sintassi corretta per determinare il tipo di un array?

private static Array RedimPreserve(Array SourceArray, int Length){
Type type1 = SourceArray.GetType();
Array array2 = Array.CreateInstance(SourceArray.GetType().GetElementType(), Length);
Array.Copy(SourceArray, array2, Length); return array2;
}

Ho trovato questo in C (è solo un esempio per capire di che tipo è un array), ma non riesco a tradurla in modo corretto in VB. Tu sei capace?
Grazie e scusami per l'errore
Tomas

[Tomas]

Ulteriore scusa per il mio commento di prima, la descrizione è giusta e hai fatto benissimo a metterlo nella sezione giusta. Purtroppo ho la testa "nel problema" e non riesco a venirne a capo.
Scusate per i "pasticci".
Tomas

[Tomas]

Vediamo se ridando vita a questo post (dopo gli errori precedenti) riesco a interessare al problema qualcuno.
Grazie
Tomas

[Tomas]

Non credo che sia difficile la soluzione, servirebbe qualcuno che è abituato alla sintassi delle classi, e che riesca a trovare il modo di usare il "tipo" che però è in formato strnga.
Speriamo che oggi vada meglio e che qualcuno abbia tempo di guardare il problema.
Tomas

[Tomas]

A una soluzione ci sono arrivato!

Non sarà sicuramente il top della programmazione, ma almeno funziona.
(Forse bisognerebbe dimensionare un "Buffer" di I/O in modo da non ricreare
un intero vettore grande come l'intera matrice. Per ora è così, in futuro migliorerò)
Qualunque consiglio, e aiuto, è ben accetto.

[code]

Public Sub WriteMat(ByVal Mat As Object)

If IsArray(Mat) Then
Dim NDinByte As Integer = Mat.Length * System.Runtime.InteropServices.Marshal.SizeOf(Mat. GetType().GetElementType)
Dim VettByte(0 To NDinByte - 1) As Byte
Buffer.BlockCopy(Mat, 0, VettByte, 0, NDinByte)
internal_BinaryWriter.Write(VettByte)
VettByte = Nothing
Else
Dim V As Array = Array.CreateInstance(Mat.GetType(), 1)
Dim NDinByte As Integer = System.Runtime.InteropServices.Marshal.SizeOf(Mat. GetType())
V(0) = Mat
Dim VettByte(0 To NDinByte - 1) As Byte
Buffer.BlockCopy(V, 0, VettByte, 0, NDinByte)
internal_BinaryWriter.Write(VettByte)
VettByte = Nothing
End If
End Sub

Public Sub ReadMatShort(ByRef Mat As Object)

If IsArray(Mat) Then
Dim NDinByte As Integer = Mat.Length * System.Runtime.InteropServices.Marshal.SizeOf(Mat. GetType().GetElementType)
Dim VettByte(0 To NDinByte - 1) As Byte
VettByte = internal_BinaryReader.ReadBytes(NDinByte)
Buffer.BlockCopy(VettByte, 0, Mat, 0, NDinByte)
VettByte = Nothing
Else
Dim V As Array = Array.CreateInstance(Mat.GetType(), 1)
Dim NDinByte As Integer = System.Runtime.InteropServices.Marshal.SizeOf(Mat. GetType())
Dim VettByte(0 To NDinByte - 1) As Byte
VettByte = internal_BinaryReader.ReadBytes(NDinByte)
Buffer.BlockCopy(VettByte, 0, V, 0, NDinByte)
Mat = V(0)
VettByte = Nothing
End If
End Sub

[\code]

Tomasotto

[Stoicenko]

Interessante questo botta e risposta tra te e te.... :berto:

[Tomas]

Come prima cosa bisogna rimboccarsi le maniche, poi sperare in un aiuto
tomas