automatisch Thumbnails generieren

Chocobanana

Erfahrenes Mitglied
Hallo!

Ich bin schon ewig auf der Suche. Kann man mit ASP automatisch Thumbnails generieren, ohne dabei eine dll wie AspImage2 kaufen zu müssen?

Mit der Dll zu arbeiten und dann Thumbs zu machen is kein Problem. Nur will ich für sowas kein Geld ausgeben.

Also Frage konkret: Thumbnails mit ASP ohne dll, bzw. wo gibts Freeware dll

Greetz,

choco
 
Ich glaube, "Persits.Jpeg" ist sowas, google mal ein bischen, mir faellt jetzt gerade der link nicht ein.

hier mal ein Stueck, wie ich es verwende (unvollstaendig):

Code:
	If intCount <> 0 Then
		Set oThumbNail = Server.CreateObject("Persits.Jpeg")
		sPath = Server.MapPath("../~upload") & "\" & mySmartUpload.Files.Item(1).FileName
		oThumbNail.Open sPath

		' --- fuer HochFormat:
		If oThumbNail.OriginalWidth > oThumbNail.OriginalHeight Then
			oThumbNail.Width = 50 ' hier hardcodiert wert fuer breite des thumbnail 
			oThumbNail.Height = oThumbNail.OriginalHeight * oThumbNail.Width / oThumbNail.OriginalWidth
		' --- fuer QuerFormat:
		ElseIf oThumbNail.OriginalWidth < oThumbNail.OriginalHeight Then
			oThumbNail.Height = 50 ' hier hardcodiert wert fuer hoehe des thumbnail 
			oThumbNail.Width = oThumbNail.OriginalWidth * oThumbNail.Height / oThumbNail.OriginalHeight
		End If
			
		oThumbNail.Save Server.MapPath("../~upload") & "\tn_" & mySmartUpload.Files.Item(1).FileName

		Set oThumbNail = Nothing
	End If
 

Neue Beiträge

Zurück