Visual Basic

Nick Otten wrote:

the drivers are already at there most recent version. the problem is on the
printer tough. the printer itself gets an error and that makes the drivers
crash. so unfortunately that wont help to much.

Nick Otten wrote:

I already considered making batches of jobs to send. but the crashing of the
printer inst the only issue with the program (i just left less important once
out to shorten the post). A other problem i had was that when other people
printed documents they got lost in the pile of papers. and it already happened
once that those papers got onto the work floor (witch caused the necessary
panic)

Nick Otten wrote:

The error on the printer is coused by the speed and ammount of print job is has
to swallow. if i print a file with the same amount of pages its not really a
problem. I already updated the firmware to the newest version and even contacted
Xerox for help. but they said the machines are just not made to handle printer
tasks at the speed i send them.

Nick Otten wrote:

I got a program that prints production forms using excel

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