GetFiles samt JPEG komprimering

erkaMedlem sedan dec. 19996 522 inlägg

Frågan5 feb. 2003 15:41#1

Hej!

Hur gör man för att få fram alla filer i en katalog som inte börjar med en viss bokstavskombination?

Just nu använder jag

for each myFileInfo in myDir.GetFiles("*.*")

Men vill bara ha med de som inte börjar på "Thumb_", finns det något smidigt sätt.

Jag sparar ner en thumbnail jag skapar på följande sätt

Dim ThumbNailSource As System.Drawing.Image = System.Drawing.Image.FromFile(ImgFullPath) 
	Dim ThumbNailFileName As String = "Thumb_"& ImgName
	Dim ThumbNailFormat = ThumbNailSource.Rawformat
	Dim NewSize as New Size(CInt(100), CInt(75)) 
	Dim ThumbNailOutPut as New Bitmap(ThumbNailSource, NewSize.width, NewSize.height) 
	Dim FilePath As String = Server.MapPath("Images/"& ImgFolderPath &"/"& ThumbNailFileName)
	Try
		ThumbNailOutPut.Save(FilePath,ThumbNailFormat)
	Catch e As Exception
	Throw e
End Try

Vad ska jag kolla på om jag vill höjja kvaliteten på de bilder som skapas, alltså inte komprimera jpeg bilden så kraftigt som den tycks göra här, kikade lite på

http://www.dotnet247.com/247reference/msgs/22/111280.aspx

Men vart inte mycket klokare

Tacksam för alla svar som alltid Glad påsk

erkaMedlem sedan dec. 19996 522 inlägg

6 feb. 2003 10:35#2

Det första löste jag med att göra en koll med left, lite lamt tänkte man kunde skriva något form av mönster i myDir.GetFiles("*.*") men inte hittat mer info om det.

Då återstår bara problemet med min jpeg komprimering, det har jag löst genom

Public Function SaveThumbNailToDisk(ImgName As String, ImgFolderPath As String, ImgFullPath As String)
	Dim ThumbNailSource As System.Drawing.Image = System.Drawing.Image.FromFile(ImgFullPath) 
	Dim ThumbNailFileName As String = "Thumb_"& ImgName
	Dim ThumbNailFormat = ThumbNailSource.Rawformat
	Dim NewSize as New Size(CInt(100), CInt(75)) 
	Dim ThumbNailOutPut as New Bitmap(ThumbNailSource, NewSize.width, NewSize.height) 
	Dim FilePath As String = Server.MapPath("Images/"& ImgFolderPath &"/"& ThumbNailFileName)
	
	Dim EncParams As EncoderParameters = New EncoderParameters(1)
	Dim EncParameter As EncoderParameter = new EncoderParameter(System.drawing.imaging.Encoder.Quality,60)
	EncParams.Param(0) = EncParameter
	Dim objImageCodecInfo() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders
	
	Try
		ThumbNailOutPut.Save(FilePath,objImageCodecInfo(1), EncParams)
	Catch e As Exception
		Throw e
	End Try
	Return FilePath
	ThumbNailSource.Dispose()
	ThumbNailOutPut.Dispose()
End Function

Får lägga in en koll som känner av om det är en gif bild som det ska skapas en thumbnail av, isåfall skippar man komprimeringen. Någon som ser något konstigt i min kod.