Visual Basic

<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!

jds1207 wrote:

The file that I am cleaning is being cleaned and making the file double spaced.

Dim sourceFilename As String = "C:\Scanning files\lsprint_MO.txt"
Dim tempFilename As String = "C:\Scanning files\lsprint_MO_temp.txt"
Dim textline As String
 
If System.Io.File.Exists(sourceFilename) Then
    Try
        Dim sr As New StreamReader(sourceFilename)
        Do
            textline = sr.ReadLine()
 
            ' Why are you using String.Concat??  Your building a line and adding
            ' blank lines to the textline string.  Why??

            ' Parse your line here and make sure that the values you got are VALID!
            ' If not, jump to some other method to report or log the problem.
 
           ' If we get here, the data looks good.  Add it to the database.
            ' Call your database code here and pass the "cleaned" values to it.
        Loop Until textline Is Nothing
 
    Catch ex As Exception
        ' Something happened during the file read or database call.
        ' Log the error or report it somehow and forget the rest of the file.
 
    Finally
        If Not sr Is Nothing Then
            sr.Close()
        End If
    End Try

Mayuri Gaikwad wrote:

Want you to help me.

indian143 wrote:

I am converting a ActiveX(DSO Framer)control into .Net assembly.

indian143 wrote:

1. I was able to import it as assembly using "Tlbimp" utility,

indian143 wrote:

2. I could able to convert the content in to Intermediate Language form by using utility "Ildasm" utility. But

indian143 wrote:

3. When I tried to edit the content for verification by using the utility "Ilasm" its giving error as below

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
   'Hide the form while splash screen is visible<br />
   Me.Hide()<br />
<br />
   'Insert your form loading code...<br />
<br />
   'Reveal the form when loading is complete<br />
   Me.Show()<br />
End Sub