VB උදව්ව්ව්ව්ව්

[gembaknb]

VB උදව්ව්ව්ව්ව්

මං මේ කියන දේ තේරේවිදනම් දන්නෙ නෑ බං.. ඒත් බං මීට වඩා මට කියන්න තේරෙන්නෙත් නෑ...
මෙහෙමයි.. මං කරපු දේ උබලට කිව්වොත්...

මුලින්ම .JPG ෆයිල් එකක් create කරා -> ඒක mail කරා -> ඒ ෆයිල් එක del කරා..
මේක කරද්දි බං error එකක් එනව බං *.jpg used by..... ඔහොම කියල එන්නෙ බං. මං හිතුව mail වෙන නිසාද දන්නෙත් නැති නිසාද නිසා, timer එකක් දාල 10min late කරා. ඒත් ඒ එරර් එකම එනව.. කොහොමද බං ඒක කරන්නෙ?? vb ගැන දන්න එව්න්කියපන්කෝ...

තව එකක්.. window එක run වෙද්දිත්, මං ඒ file එක manuel del කරන්න හැදුවවත් ඒකමෛ error එක් එන්නෙ.. del කරන්න බෑ use කරනව කියල..

 

[Radioactive]

stream එක close කරන්න ඕනේ.

 

[HAneo]

mehemayi IO ekka wada karanakota ewa Stream widihata yanne. uba File ekak Create karama eka Object ekak widihata thama program eken ganne. eka Physical File eka access karagena inne. ithin uba monawa kalath ara Stream eka close karanakan eka access karanawa

 

[gembaknb]

mehemayi IO ekka wada karanakota ewa Stream widihata yanne. uba File ekak Create karama eka Object ekak widihata thama program eken ganne. eka Physical File eka access karagena inne. ithin uba monawa kalath ara Stream eka close karanakan eka access karanawa

stream එක close කරන්න ඕනේ.

ithin kohomada bn eek close kranne??

 

[Radioactive]

Using str As New System.IO.StreamReader(reader)
//
End Using

// කියන තැන code එක ගහන්න එතකොට stream එක automatically close වෙනවා.

 

[sachith19920726]

Using str As New System.IO.StreamReader(reader)
//
End Using

// කියන තැන code එක ගහන්න එතකොට stream එක automatically close වෙනවා.

or

Dim str As New System.IO.StreamReader(reader)
//
str.Close()

 

[maxboysl]

or

Dim str As New System.IO.StreamReader(reader)
//
str.Close()

 

[sachith19920726]

 

[maxboysl]

 

[gembaknb]

Using str As New System.IO.StreamReader(reader)
//
End Using

// කියන තැන code එක ගහන්න එතකොට stream එක automatically close වෙනවා.

or

Dim str As New System.IO.StreamReader(reader)
//
str.Close()

mehemayi IO ekka wada karanakota ewa Stream widihata yanne. uba File ekak Create karama eka Object ekak widihata thama program eken ganne. eka Physical File eka access karagena inne. ithin uba monawa kalath ara Stream eka close karanakan eka access karanawa

Mchan man System.Io import kre naa ban..
mn mchn.. screan ek capture krla eek save krnw.. userta optiom tikak denawa. Eeka mail ekt send kr.. send kraddi tw option denawa. del kr onada nadda kiyla.. delete ekt tick ek dammama eek delete wenn oona..

Eeka karanakota tmi ara error ek ennee...

 

[sachith19920726]

Mchan man System.Io import kre naa ban..
mn mchn.. screan ek capture krla eek save krnw.. userta optiom tikak denawa. Eeka mail ekt send kr.. send kraddi tw option denawa. del kr onada nadda kiyla.. delete ekt tick ek dammama eek delete wenn oona..

Eeka karanakota tmi ara error ek ennee...

code එක දාපං zip කරල debug කරල දෙන්න..

 

[chrishanelloyd]

ha ha..

 

[gembaknb]

my code is

Import System.Net.Mail
/////

  Dim gr As Graphics
        Dim bm As Bitmap


        bm = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, Drawing.Imaging.PixelFormat.Format32bppArgb)
        gr = Graphics.FromImage(bm)
        gr.CopyFromScreen(Screen.PrimaryScreen.Bounds.X, Screen.PrimaryScreen.Bounds.Y, 0, 0, New Size(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height))
        gr = Graphics.FromImage(bm)
        bm.Save("D:\abc\I.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)




        Dim Mail As New MailMessage
        Dim SMTP As New SmtpClient("smtp.gmail.com")

        Mail.Subject = "Gemba"
        Mail.From = New MailAddress("[email protected]")
        SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "password")

        Mail.To.Add("[email protected]")


        Mail.Attachments.Add(New Attachment("D:\abc\I.jpg"))

        SMTP.EnableSsl = True
        SMTP.Port = "587"
        SMTP.Send(Mail)




        Timer1.Interval = 5000
        My.Computer.FileSystem.DeleteDirectory("D:\abc", FileIO.DeleteDirectoryOption.DeleteAllContents)

 

[sachith19920726]

my code is

Import System.Net.Mail
/////

  Dim gr As Graphics
        Dim bm As Bitmap


        bm = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, Drawing.Imaging.PixelFormat.Format32bppArgb)
        gr = Graphics.FromImage(bm)
        gr.CopyFromScreen(Screen.PrimaryScreen.Bounds.X, Screen.PrimaryScreen.Bounds.Y, 0, 0, New Size(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height))
        gr = Graphics.FromImage(bm)
        bm.Save("D:\abc\I.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

        Dim Mail As New MailMessage
        Dim SMTP As New SmtpClient("smtp.gmail.com")

        Mail.Subject = "Gemba"
        Mail.From = New MailAddress("[email protected]")
        SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "password")

        Mail.To.Add("[email protected]")


        Mail.Attachments.Add(New Attachment("D:\abc\I.jpg"))

        SMTP.EnableSsl = True
        SMTP.Port = "587"
        SMTP.Send(Mail)




        Timer1.Interval = 5000
        My.Computer.FileSystem.DeleteDirectory("D:\abc", FileIO.DeleteDirectoryOption.DeleteAllContents)

මේල් එක dispose කරල නෑ නෙ කොලුවො..
ඉතිං send වෙලා ඉවර උනාමත් using තමයි..

SMTP.EnableSsl = True
SMTP.Port = "587"
SMTP.Send(Mail)

Mail.Dispose()

delete කරන්න ඉස්සෙල්ල dispose කරල හිටහන්..

 

[gembaknb]

මේල් එක dispose කරල නෑ නෙ කොලුවො..
ඉතිං send වෙලා ඉවර උනාමත් using තමයි..


delete කරන්න ඉස්සෙල්ල dispose කරල හිටහන්..

ammataxiri ehemath korann ooonay.. danne na ne bn mn. thanx mchn eek kiyala dunnata..loku udawwak sahoodaraya.. nodann deyak igena gatte..