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