Visual Basic

Nick Otten wrote:

Now however more users found out of this tool and some are using it for things it isn't really designed for

jkirkerx wrote:

the loop counts, and it comes up short on jdx, and the idx loops around 8 times.

Sub Page Load()
Dim swf As SwfParser = New SwfParser
Dim swfRect As Drawing.Rectangle = New Drawing.Rectangle
swfRect = swf.get_SWF_Dimensions("p:/flash/Bowling_Jazz_Collection.swf")

Dim iWidth As Integer = swfRect.Width 'suppose to be 625, but is 1300
Dim iHeight As Integer = swfRect.Height 'I got this right 325

swf = Nothing
End Sub
public class SwfParser
{
    public Rectangle GetDimensions(String filePath)
    {
        using (FileStream stream = File.OpenRead(filePath))
        {
            return GetDimensions(stream);
        }
    }

    public Rectangle GetDimensions(Stream stream)
    {        
        Stream inputStream = null;
        byte[] signature = new byte[8];
        byte[] rect = new byte[8];
        stream.Read(signature, 0, 8);
        if ("CWS" == System.Text.Encoding.ASCII.GetString(signature, 0, 3))
        {
            inputStream = new InflaterInputStream(stream);
        }
        else
        {
            inputStream = stream;
        }

        inputStream.Read(rect, 0, 8);
        int nbits = rect[0] >> 3;
        rect[0] = (byte)(rect[0] & 0x07);
        String bits = ByteArrayToBitString(rect);
        bits = bits.Remove(0, 5);
        int[] dims = new int[4];
        for (int i = 0; i < 4; i++)
        {
            char[] dest = new char[nbits];
            bits.CopyTo(0, dest, 0, bits.Length>nbits ? nbits : bits.Length);
            bits = bits.Remove(0, bits.Length > nbits ? nbits : bits.Length);
            dims[i] = BitStringToInteger(new String(dest)) / 20;
        }

        return new Rectangle(0, 0, dims[1] - dims[0], dims[3] - dims[2]);
    }

    private int BitStringToInteger(String bits)
    {
        int converted = 0;
        for (int i = 0; i < bits.Length; i++)
        {
            converted = (converted << 1) + (bits[i] == '1' ? 1 : 0);
        }
        return converted;
    }

    private String ByteArrayToBitString(byte[] byteArray)
    {
        byte[] newByteArray = new byte[byteArray.Length];
        Array.Copy(byteArray, newByteArray, byteArray.Length);
        String converted = "";
        for (int i = 0; i < newByteArray.Length; i++)
        {
            for (int j = 0; j < 8; j++)
            {
                converted += (newByteArray[i] & 0x80) > 0 ? "1" : "0";
                newByteArray[i] <<= 1;
            }
        }
        return converted;
    }
}

Public Class SwfParser

    Public Function get_SWF_Dimensions(ByVal filePath As String) As Rectangle

        Dim fileLength As Long = 0
        Dim stream As FileStream = New FileStream(filePath, FileMode.Open, FileAccess.Read)
        Dim fsLen As Long = stream.Length

        Dim rec As Rectangle = getDimensions(stream)


    End Function
    Private Function getDimensions(ByVal stream As Stream) As Rectangle

        Dim inputStream As Stream = Nothing
        Dim signature() As Byte = New Byte(8) {}
        Dim rect() As Byte = New Byte(8) {}
        stream.Read(signature, 0, 8)

        If (System.Text.Encoding.ASCII.GetString(signature, 0, 3) = "CWS") Then
            inputStream = New InflaterInputStream(stream)
        Else
            inputStream = stream
        End If

        inputStream.Read(rect, 0, 8)
        Dim nbits As Integer = rect(0) >> 3
        rect(0) = rect(0) And &H7
        Dim bits As String = ByteArrayToBitString(rect)
        bits = bits.Remove(0, 5)
        Dim dims(4) As Integer

        For idx As Integer = 0 To 3
            // These 4 lines, I'm in doubt, I think I got it wrong
            Dim dest() As Char = New Char(nbits) {}
            bits.CopyTo(0, dest, 0, If(bits.Length > nbits, nbits, bits.Length))
            bits = bits.Remove(0, If(bits.Length > nbits, nbits, bits.Length))
            dims(idx) = BitStringToInteger(New String(dest)) / 20
        Next

        Return New Rectangle(0, 0, dims(1) - dims(0), dims(3) - dims(2))

    End Function
    Private Function BitStringToInteger(ByVal bits As String) As Integer

        Dim converted As Integer = 0

        For idx As Integer = 0 To bits.Length - 1
           // This Line, I'm not sure, I think I got it right 
           converted = (converted << 1) + If(bits(idx) = "1", 1, 0)
        Next

        Return converted

    End Function
    Private Function ByteArrayToBitString(ByVal byteArray() As Byte) As String

        Dim newByteArray() As Byte = New Byte(byteArray.Length - 1) {}

        Array.Copy(byteArray, newByteArray, byteArray.Length - 1)
        Dim converted As String = ""

        For idx As Integer = 0 To newByteArray.Length - 1
            For jdx As Integer = 0 To 7
                converted += If((newByteArray(idx) And &H80) > 0, "1", "0")
                newByteArray(idx) <<= 1
            Next
        Next

        Return converted

    End Function


End Class

Private Function BitStringToInteger(ByVal bits As String) As Integer
        Dim converted As Integer = 0
        For idx As Integer = 0 To bits.Length - 1
           converted = (converted << 1) + If(bits(idx) = "1"C, 1, 0)
        Next
        Return converted

    End Function

Private Function BitStringToInteger(ByVal bits As String) As Integer

        Dim converted As Integer = 0

        For i As Integer = 0 To bits.Length - 2 '<- chopped it down 1 more
            converted = (converted << 1) + If(bits(i) = "1", 1, 0)
        Next

        Return converted

    End Function

dim output as string = System.Text.Encoding.Unicode.GetChars(your_byte_array)

Imports ADOX

Public Class Create
    'This holds the data from the database for processing in the program
    Dim DBSet As New DataSet
    Dim DBAdaptor As OleDb.OleDbDataAdapter
    Dim DBTable As DataTable
    Dim DBView As DataView
    'This will give access to the database (open to read/write, close to end transaction)
    Dim DBCon As New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = ScoreDB.mdb")
    'This passes commands to database
    Dim DBCommand As OleDb.OleDbCommandBuilder

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        'If database doesn't exist create new database (first use)
        If Not My.Computer.FileSystem.FileExists("ScoreDB.mdb") Then
            Dim DBCat As New Catalog()
            DBCat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=ScoreDB.mdb;" & _
                    "Jet OLEDB:Engine Type=5")
            'Add table and define fields
            Dim DBCmd As New OleDb.OleDbCommand("CREATE TABLE [High_Score] ([Name] TEXT(30), [Score] NUMERIC(10))", DBCon)
            'Open database and complete update
            DBCon.Open()
            DBCmd.ExecuteNonQuery()
            DBCon.Close()
        End If

        'Fill dataset from database (all uses)
        DBCon.Open()
        Dim DBAdaptor As New OleDb.OleDbDataAdapter("SELECT * FROM High_Score", DBCon)
        DBAdaptor.Fill(DBSet, "High_Score")
        DBCon.Close()

        'Fill datatable & provide dataview to facilitate sorting

        Dim DBView As New DataView(DBSet.Tables(0))
        'Sort highest score first, alphabetical if scores identical
        DBView.Sort = "Score DESC, Name ASC"
        'Display
        DataGridView1.DataSource = DBView

    End Sub

    Private Sub DataUpdate(ByVal Name As String, Score As Integer)
        Dim DBAdaptor As New OleDb.OleDbDataAdapter("SELECT * FROM High_Score", DBCon)
        'Command builder translates adapter commands for database
        Dim DBCommand As New OleDb.OleDbCommandBuilder(DBAdaptor)
        Dim DBRow As DataRow

        DBRow = DBSet.Tables("High_Score").NewRow()
        DBRow.Item("Name") = Name
        DBRow.Item("Score") = Score

        DBSet.Tables(0).Rows.Add(DBRow)

        DBAdaptor.Update(DBSet, "High_Score")


    End Sub

End Class

ilgrongo wrote:

I belived that to start a session from 1 side using a webreference class which
set 'session("my_session")=1' was enough.