to monitoe files in a specifc directory, if images are added to the
directory they are resized and saved in a remote directory. The original
file is then backed up and deleted from the image directory.
The code is as follows
Friend Shared Sub ResizeImage(ByVal path As String, ByVal filename As
String)
Dim asr As AppSettingsReader = New AppSettingsReader
Dim sRemoteDirectory As String = CType(asr.GetValue("RemoteDirectory",
GetType(String)), String)
Dim sBackupDirectory As String = CType(asr.GetValue("BackupDirectory",
GetType(String)), String)
' Dim img As Image = ImageFromFile(path)
(This was put in as an alternative but produced the same problem
//
Dim fs As FileStream = New FileStream(filename, FileMode.Open,
FileAccess.Read)
Return Image.FromStream(fs)
fs.Dispose()
//
Dim img As Image = Image.FromFile(path) << It fails here
Dim imgFormat As Imaging.ImageFormat = GetImageFormat(path)
'Maintain aspect ratio
Dim scale As Double = 0
Dim width, height As Integer
width = CType(asr.GetValue("ImageWidth", GetType(String)), Integer)
height = CType(asr.GetValue("ImageHeight", GetType(String)), Integer)
'Caters for the user specifying 0 for either width or height
If width = 0 Then
width = 1
ElseIf height = 0 Then
height = 1
End If
If img.Height < img.Width Then
scale = width / img.Width
Else
scale = height / img.Height
End If
Dim newwidth As Integer = CInt(scale * img.Width)
Dim newheight As Integer = CInt(scale * img.Height)
Dim bmp As New Bitmap(img, newwidth, newheight)
img.Dispose()
'Add a log entry
' SaveToLog(filename)
Dim sRemotePath As String = String.Format("{0}\{1}", sRemoteDirectory,
filename)
bmp.Save(sRemotePath, imgFormat)
bmp.Dispose()
' Dim sBackupPath As String = String.Format("{0}\{1}", sBackupDirectory,
filename)
' File.Copy(path, sBackupPath, True)
' File.Delete(path)
Whether I copy a couple of images or lots, the error is always the same
The call stack is as follows
[External Code]
GeminiPictureService.exe!GeminiPictureService.Gene ralRoutines.ResizeImage(string
path = "C:\\Picture Test 1\\IMGP0353.JPG", string filename =
"IMGP0353.JPG") Line 18 + 0x9 bytes Unknown
GeminiPictureService.exe!GeminiPictureService.Gemi niPictureService.fswGemini_Created(object
sender = {System.IO.FileSystemWatcher}, System.IO.FileSystemEventArgs e =
{System.IO.FileSystemEventArgs}) Line 42 + 0x20 bytes Unknown
[External Code]
Exception
- $exception {System.OutOfMemoryException: Out of memory.
at System.Drawing.Image.FromFile(String filename, Boolean
useEmbeddedColorManagement)
at System.Drawing.Image.FromFile(String filename)
at GeminiPictureService.GeneralRoutines.ResizeImage(S tring path, String
filename)
at GeminiPictureService.GeminiPictureService.fswGemin i_Created(Object
sender, FileSystemEventArgs e)
at System.IO.FileSystemWatcher.OnCreated(FileSystemEv entArgs e)
at System.IO.FileSystemWatcher.NotifyFileSystemEventA rgs(Int32 action,
String name)
at System.IO.FileSystemWatcher.CompletionStatusChange d(UInt32 errorCode,
UInt32 numBytes, NativeOverlapped* overlappedPointer)
at
System.Threading._IOCompletionCallback.PerformIOCo mpletionCallback(UInt32
errorCode, UInt32 numBytes, NativeOverlapped* pOVERLAP)} System.Exception
{System.OutOfMemoryException}
Memory - I checked the process and the memory usage spiked from 8,000 to
(40-46k), it stayed at around 40k before giving an exception
System Pentium 1.8GHz 1GB Ram Windows XP Pro SP2
Thanks for any help in advance
