DevTrain Forum - Thumbnails

Forum: VB.NET | Thema: Thumbnails | Von: Robert Wünsche ( 15.08.2007 13:47)

		Hallo

wie die topic schon sagt will ich tumbnails erstellen, dazu lese ich mein verzeichnis aus und mach aus alles was "jpg" ist ein thumb und lasse mir diese auf meiner HP als archiv anzeigen. zumindest ist so der plan. -.-

das auflisten aller bilder aus dem verzeichnis funktioniert tadellos, nur eben seh ich dann alle bilder in originalgröße und nicht so klein wie ichs möchte.

dann hab ich einen thumbnail code mit reingebastelt, der mir das jeweilige auch direkt speichert und weiter verwendet. funktioniert nur leider nicht und ich weis nicht warum :(

Fehlercode: "System.Runtime.InteropServices.ExternalException: In GDI+ ist ein allgemeiner Fehler aufgetreten."

damit kann ich leider rein garnix anfangen

code:
Dim folder_str = "C:\test\"
        Dim objFileSys
        objFileSys = Server.CreateObject("Scripting.FileSystemObject")
        Dim objActFolder
        objActFolder = objFileSys.GetFolder(folder_str)



        Dim objfile
        Dim jpg, thumbnail As System.Drawing.Image
        Dim save_str As String = "c:\"

        For Each objfile In objActFolder.Files
            Dim bild As New System.Web.UI.WebControls.Image

            Dim str = New String(folder_str & objfile.name)

            Dim bmp = New Bitmap(str.ToString)

            thumbnail = bmp.GetThumbnailImage(50, 50, Nothing, Nothing)
            thumbnail.Save(save_str & "thumbnail_" & objfile.name, System.Drawing.Imaging.ImageFormat.Jpeg)
            bild.ImageUrl = (save_str & "thumbnail_" & objfile.name)
            'bild = ModifyImage(folder_str & objfile.name)
            If cbGetFileExtension(objfile.name) = "jpg" Then
                bild.DataBind()
                anz.Controls.Add(bild)
            End If
        Next


wo is mein fehler, ich find ihn nicht

vielen dank schonmal im vorraus


	

Betreff Von Datum

AW: Thumbnails

ok, also den fehler konnte ich eingrenzen, es liegt an folgener codezeile thumbnail.Save(save_str & "thumbnail_" & objfile.name.ToString, System.Drawing.Imaging.ImageFormat.Jpeg) nur keine...

Robert Wünsche 15.08.2007 14:06

AW: AW: Thumbnails

Hallo, folgende Tipps: 1. Option Explicit/Strict auf On stellen, dann können eine Vielzahl von Fehlern besser herausgefunden werden. Variablen haben immer einen Typ. 2. Die Methode...

Thomas Hauser 15.08.2007 18:41

Antworten Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!