Visual Basic

 Edge of paper
------------------------------------------------------+
     (unprintable margin)                             |
----------------------------------------------------+ |
     Top Margin 0.0"                                | |
                                                    | |
  ---document begins here with a margin of 0.5"     | |
     but is actually 0.75" from the top of the page | |

<br />
For Each img As Image In _images<br />
  Dim changed As Boolean = False<br />
  Dim f As New Font(FontFamily.GenericSerif, 35.0F, FontStyle.Regular, GraphicsUnit.Point)<br />
  Dim graph As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(img)<br />
  Dim pi() As Drawing.Imaging.PropertyItem = img.PropertyItems<br />
  Dim bytes() As Byte<br />
  Dim enc As New System.Text.UTF8Encoding<br />
<br />
  For Each pItem As Drawing.Imaging.PropertyItem In pi<br />
    If pItem.Id = 36867 Then<br />
      bytes = pItem.Value<br />
      graph.DrawString(enc.GetString(bytes), f, Brushes.Yellow, CSng(img.Width) - 400.0F, CSng(img.Height) - 50.0F)<br />
      changed = True<br />
      Exit For<br />
    End If<br />
  Next<br />
<br />
  If changed Then<br />
    img.Save(_imagesHash.Item(img).ToString() & ".jpg")<br />
  End If<br />
Next<br />

Imports System.Drawing.Imaging
.
.
.
For Each img As Image In _images
    Dim changed As Boolean = False
    Dim pi() As Drawing.Imaging.PropertyItem = img.PropertyItems
 
    For Each pItem As Drawing.Imaging.PropertyItem In pi
        If pItem.Id = 36867 Then
            Dim bytes() As Byte = pItem.Value
            Dim f As New Font(FontFamily.GenericSerif, 35.0F, FontStyle.Regular, GraphicsUnit.Point)
            Dim graph As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(img)
            Dim enc As New System.Text.UTF8Encoding
 
            graph.DrawString(enc.GetString(bytes), f, Brushes.Yellow, CSng(img.Width) - 400.0F, CSng(img.Height) - 50.0F)
            graph.Dispose()
            f.Dipose()
 
            ' Create a JPEG Encoder and set it's Compression quality
            Dim jpegCodec As ImageCodecInfo = GetEncoderInfo("image/jpeg")
            Dim encoderParams As New EncoderParameters(1)
            encoderParams.Param[0] = New EncoderParameter(Encoder.Quality, 100)
 
            ' Save the image using the new encoder
            img.Save(_imagesHash.Item(img).ToString() & ".jpg", jpegCodec, encoderParams)
            Exit For
        End If
    Next
Next
 
.
.
.
 
Public Shared Function GetEncoderInfo(ByVal mimeType As String) As ImageCodecInfo
    ImageCodecInfo[] codecs = ImageCodecInfo.GetImageEncoders()
 
    For i As Integer = 0 To codecs.Length
        If codecs[i].MimeType = mimeType Then
            Return codecs[i]
	End If
    Next
    Return Nothing
End Sub

jds1207 wrote:

I am inserting text files into MySQL using vb.net. However, when I insert the files into the database it only insert every other file. For example, it will insert one file then the next row will be zeros

Colin Angus Mackay wrote:

Oh! oh!! I know! I know! ** Sticks hand high in the air**

Colin Angus Mackay wrote:

We should use parameterised queries! We should use them becuase it makes the application safe from people trying to inject into it!