Bilder zu HTML Galerie

tmjuk · Beitrag von **tmjuk** » 06.05.2009 15:34

Hallo,

sicher hat es so was schon gegeben. Aber ich wollte was Einfaches machen. Kann ja jeder selbst ändern

Also der Code macht folgendes:
Nach Abfrage des gewünschten Verzeichnis wird dieses geprüft.
Es wird nach Überschrift, Autor und Anzahl der Bilder pro Zeile gefragt.
Im gewähltem Verzeichnis werden die Ordner "images" und "thumbs" angelegt.
Die Bilder werden nach "images" kopiert und von ihnen werden Vorschaubilder erstellt, welche unter "thumbs" gespeichert werden.
Im Verzeichnis wird eine "index.html" erstellt, welche dann die Vorschau liefert.

Hier der Code
Achtung, Code sollte nun problemlos laufen.
Auf Seite 2 findet ihr das Ganze aber noch mit GUI von BurstNibbler für PB4.3.1

Code: Alles auswählen

; HTML Galeri
; Torsten Malchow
; Maj 2009

;{ Enumeration
	Enumeration 
		;{ Bilder
		#bild_laden
		#bild_thumb
		#bild_image
		;}
		
		;{ Verzeichnis
		#directory
		;}
		
		;{ Datei
		#arkiv
		;}
		
		;{ Fenster
		#fe_main
		;}
		
		;{ Gadgets
		#ga_progress
		;}
		
	EndEnumeration
;}

;{ Variablen
	EnableExplicit
	
	NewList bilder.s()
	
	Define.l Event, Quit, i, j, zellen, anzahl_bilder
	Define.s pfad, pfad_images, pfad_thumbs, header, autor, datum
	Global text.s
	
	
;}

;{ Prozeduren
	Procedure zeile_hor() 
		WriteStringN(#arkiv,"<a href='images/"+text+"' target='_blank'><img class='photo' src='thumbs/"+text+"' width='200' height='150' alt='thumbs/"+text+"' title='"+text+"'></a>")
	EndProcedure
	
	Procedure zeile_vert()
		WriteStringN(#arkiv,"<a href='images/"+text+"' target='_blank'><img class='photo' src='thumbs/"+text+"' width='150' height='200' alt='thumbs/"+text+"' title='"+text+"'></a>")
	EndProcedure
;}

;{ Init
	pfad = PathRequester("Välj mapp","")
	If pfad = "" Or pfad = "\"
		End
	EndIf
	
	pfad_images = pfad + "images\"
	
	pfad_thumbs = pfad + "thumbs\"
	
	ClearList(bilder())
	; läsa bildfiler
	
	If ExamineDirectory(#directory, pfad, "*.*")
		While NextDirectoryEntry(#directory)
			If DirectoryEntryType(#directory) = #PB_DirectoryEntry_File
        		If Right(DirectoryEntryName(#directory),3) = "png" Or Right(DirectoryEntryName(#directory),3) = "jpg" Or Right(DirectoryEntryName(#directory),3) = "bmp" Or Right(DirectoryEntryName(#directory),3) = "PNG" Or Right(DirectoryEntryName(#directory),3) = "JPG" Or Right(DirectoryEntryName(#directory),3) = "BMP"
        			AddElement(bilder())
        			bilder() = DirectoryEntryName(#directory)
        		EndIf
        	EndIf
		Wend      
		FinishDirectory(#directory)
	EndIf
	
	ResetList(bilder())
	anzahl_bilder = ListSize(bilder())
	
	datum = FormatDate("%yyyy-%mm-%dd", Date())
	header = InputRequester("Eingabe","Überschrift:","")
	If header = ""
		End
	EndIf
	header = ReplaceString(header, "ä", "&auml;")
	header = ReplaceString(header, "Ä", "&Auml;")
	header = ReplaceString(header, "ö", "&ouml;")
	header = ReplaceString(header, "Ö", "&Ouml;")
	header = ReplaceString(header, "ü", "&uuml;")
	header = ReplaceString(header, "Ü", "&Uuml;")
	header = ReplaceString(header, "ß", "&szlig;")
	header = ReplaceString(header, "å", "&aring;")
	header = ReplaceString(header, "Å", "&Aring;")
	
	autor = InputRequester("Eingabe","Autor:","")
	If autor = ""
		End
	EndIf
	autor = ReplaceString(autor, "ä", "&auml;")
	autor = ReplaceString(autor, "Ä", "&Auml;")
	autor = ReplaceString(autor, "ö", "&ouml;")
	autor = ReplaceString(autor, "Ö", "&Ouml;")
	autor = ReplaceString(autor, "ü", "&uuml;")
	autor = ReplaceString(autor, "Ü", "&Uuml;")
	autor = ReplaceString(autor, "ß", "&szlig;")
	autor = ReplaceString(autor, "å", "&aring;")
	autor = ReplaceString(autor, "Å", "&Aring;")
	
	zellen = Val(InputRequester("Eingabe","Anzahl Bilder in einer Zeile (2....10):",""))
	If zellen = 0
		End
	EndIf
	If zellen < 2 Or zellen > 10
		End
	EndIf
	
	CreateDirectory(pfad_images)
	CreateDirectory(pfad_thumbs)
	
	OpenWindow(#fe_main,0,0,200,100,"Verlauf",#PB_Window_TitleBar | #PB_Window_ScreenCentered)
	ProgressBarGadget(#ga_progress,10,45,180,10,0,anzahl_bilder)
	SetGadgetState(#ga_progress,0)
	
	i = 1
	j = 0
	UseJPEGImageDecoder()
	UseJPEGImageEncoder()
	UsePNGImageDecoder()
	UsePNGImageEncoder()
	
	
	CreateFile(#arkiv, pfad + "index.html")
		WriteStringN(#arkiv,"<html>")
		WriteStringN(#arkiv,"<head>")
		WriteStringN(#arkiv,"<title>"+header+"</title>")
		WriteStringN(#arkiv,"</head>")
		WriteStringN(#arkiv,"<body>")
		WriteStringN(#arkiv,"<h2>"+header+"</h2>")
		WriteStringN(#arkiv,"<h4>Autor: "+autor+"<br>")
		WriteStringN(#arkiv,"Datum: "+datum+"</h4>")
		WriteStringN(#arkiv,"<table>")
	
	;}
	
	

;{ Huvudslinga
	Repeat
		Event = WindowEvent()
		If NextElement(bilder())
			text = GetFilePart(bilder())
			LoadImage(#bild_laden,pfad + bilder())
			If ImageHeight(#bild_laden) < ImageWidth(#bild_laden)
				CopyImage(#bild_laden, #bild_image)
				CopyImage(#bild_laden, #bild_thumb)
				ResizeImage(#bild_thumb,200,150)
				
			Else
				CopyImage(#bild_laden, #bild_image)
				CopyImage(#bild_laden, #bild_thumb)
				ResizeImage(#bild_thumb,150,200)
				
			EndIf
			
			; #################################################
 				If Right(text,3) = "jpg" Or Right(text,3) = "JPG"
 					SaveImage(#bild_thumb, pfad_thumbs + text, #PB_ImagePlugin_JPEG,10)
 				ElseIf Right(text,3) = "png" Or Right(text,3) = "PNG"
 					SaveImage(#bild_thumb, pfad_thumbs + text, #PB_ImagePlugin_PNG)
 				Else		; BMP
 					SaveImage(#bild_thumb, pfad_thumbs + text, #PB_ImagePlugin_BMP)
 				EndIf
			; #################################################
			CopyFile(pfad + bilder(),pfad_images + text)
			DeleteFile(pfad + bilder())
			
			j + 1
			
			If j = zellen + 1
				j = 1
				; tr anfangen
				WriteStringN(#arkiv,"<tr>")
				WriteStringN(#arkiv,"<td align=center>")
				If ImageHeight(#bild_laden) < ImageWidth(#bild_laden)
					zeile_hor()
				Else
					zeile_vert()
				EndIf
				WriteStringN(#arkiv,"<p>"+text+"</p>")
				WriteStringN(#arkiv,"</td>")
			ElseIf j = zellen
				; tr abschliessen
				WriteStringN(#arkiv,"<td align=center>")
				If ImageHeight(#bild_laden) < ImageWidth(#bild_laden)
					zeile_hor()
				Else
					zeile_vert()
				EndIf
				WriteStringN(#arkiv,"<p>"+text+"</p>")
				WriteStringN(#arkiv,"</td>")
				WriteStringN(#arkiv,"</tr>")
			ElseIf j = 1
				; tr anfangen
				WriteStringN(#arkiv,"<tr>")
				WriteStringN(#arkiv,"<td align=center>")
				If ImageHeight(#bild_laden) < ImageWidth(#bild_laden)
					zeile_hor()
				Else
					zeile_vert()
				EndIf
				WriteStringN(#arkiv,"<p>"+text+"</p>")
				WriteStringN(#arkiv,"</td>")
			Else
				; normal schreiben
				WriteStringN(#arkiv,"<td align=center>")
				If ImageHeight(#bild_laden) < ImageWidth(#bild_laden)
					zeile_hor()
				Else
					zeile_vert()
				EndIf
				WriteStringN(#arkiv,"<p>"+text+"</p>")
				WriteStringN(#arkiv,"</td>")
			EndIf
			
			
			i + 1
			SetGadgetState(#ga_progress,i)
		Else
			Quit = 1
		EndIf
		
	Until Quit = 1
;}

;{ Programända
	
		If j <> 0
			WriteStringN(#arkiv,"</tr>")
		EndIf
		WriteStringN(#arkiv,"</table>")
		WriteStringN(#arkiv,"</body>")
		WriteStringN(#arkiv,"</html>")
		
	CloseFile(#arkiv)
;}

Entschuldigt, wenn da noch ein bischen schwedisch drin ist

Torsten

Edit: kleinen Fehler entfernt
Edit: zum Code die richtigen Imageplugins hinzu geschrieben
Umlaute werden richtig dargestellt

Beitrag von **Andesdaf** » 07.05.2009 17:32

arbeitet schön, zeigt bloß meine Bilder nicht an

Und der Thread-Titel sollte nicht Gallerie heißen, sondern Galerie

ts-soft · Beitrag von **ts-soft** » 07.05.2009 17:46

Andesdaf hat geschrieben:arbeitet schön, zeigt bloß meine Bilder nicht an

Er verschiebt die Bilder im Ordner nach einen Unterordner Images und erstellt eine index.html
Desweiteren werden im Unterordner thumbs noch solche erstellt.

Schönes Programm, muß trotzdem meine Ordnung erstmal wieder herstellen

Gruß

Thomas

Beitrag von **Andesdaf** » 07.05.2009 18:09

für Windows bitte anpassen:

Code: Alles auswählen

 Procedure zeile_hor()
      WriteStringN(#arkiv,"<a href='images/"+text+"' target='_blank'><img class='photo' src='thumbs/"+text+"' width='200' height='150' alt='thumbs/"+text+"' title='"+text+"'></a>")
   EndProcedure
   
   Procedure zeile_vert()
      WriteStringN(#arkiv,"<a href='images/"+text+"' target='_blank'><img class='photo' src='thumbs/"+text+"' width='150' height='200' alt='thumbs/"+text+"' title='"+text+"'></a>")
   EndProcedure

zu

Code: Alles auswählen

   
Procedure zeile_hor()
      WriteStringN(#arkiv,"<a href='images\"+text+"' target='_blank'><img class='photo' src='thumbs\"+text+"' width='200' height='150' alt='thumbs\"+text+"' title='"+text+"'></a>")
   EndProcedure
   
   Procedure zeile_vert()
      WriteStringN(#arkiv,"<a href='images\"+text+"' target='_blank'><img class='photo' src='thumbs\"+text+"' width='150' height='200' alt='thumbs\"+text+"' title='"+text+"'></a>")
   EndProcedure

Im ersten Code waren die Ordner mit schrägstrich / getrennt, nicht mit
Backslash

ts-soft · Beitrag von **ts-soft** » 07.05.2009 18:24

Andesdaf hat geschrieben: Im ersten Code waren die Ordner mit schrägstrich / getrennt, nicht mit
Backslash

Ist ja auch besser so, solange man Win9x nicht supporten muß!
Windows stört sich da nicht dran.

Beitrag von **Andesdaf** » 07.05.2009 18:25

stimmt auch wieder.

tmjuk · Beitrag von **tmjuk** » 07.05.2009 21:33

Tut mir leid für die Gallllerie.
Aber zwischen Deutsch, Englisch, Schwedisch und Norwegisch sind eben so viele Gemeinsamkeiten, dass man eben durcheinander kommt.

Zum Schrägstrich:
Unter HTML wird doch kein Back....Schrägstrich verwendet, oder?

Freut mich wenn's gefällt.
Soll ja als Anreiz dienen. Vielleicht macht einer eine schicke GUI.

Anreger war übrigens KIM (ich glaube das soll KDE Image Manager heißen).
Wobei KIM bedeutend mehr ist als nur dies.
Torsten

Beitrag von **Andesdaf** » 08.05.2009 16:57

>Aber zwischen Deutsch, Englisch, Schwedisch und Norwegisch sind eben so viele Gemeinsamkeiten, dass man eben durcheinander kommt.
Den Fehler mit der Gallerie habe ich schon oft gesehen. Vielleicht mache
ich heut ne GUI wenn Lust und Zeit vorhanden ist...

Beitrag von **Andesdaf** » 10.05.2009 19:59

hab jetzt grad doch keine Zeit für... vielleicht später

padawan · Beitrag von **padawan** » 01.07.2009 23:26

Ein hilfreiches Tool, gute Idee, und funktioniert grundsätzlich auch tadellos. Der Code ist gut nachvollziehbar und das bisschen Schwedisch finde ich nicht störend, weil man aus dem Zusammenhang versteht, was gemeint ist. Danke für´s Posten. Nur: wenn man das Tool dem Zweck zuführt, für den es wohl typischerweise verwendet werden würde - nämlich, man gibt ihm einen Bilderordner, direkt wie man ihn aus der Digicam auf die Festplatte kopiert hat, zu futtern, wo Bilder von 2-3MB nichts seltenes sind - ist es extrem langsam.

Hat bei mir für 30 Bilder je ca. 3 MB insgesamt mehrere Minuten gebraucht und während dieser Zeit den Rechner komplett lahmgelegt. Positiv betrachtet: Der Job wurde erledigt, und das Output sieht auch gut aus. Aber - 30 Bilder je 3MB sind ja nichtmal viel - 90 MB Bilddaten... und dafür dann schon mehrere Minuten komplette Rechnerauslastung... die kleinsten Speicherkarten für Digicams, die heute verkauft werden, sind a.f.a.i.k. schon 256 MB groß, die Tendenz geht eher in den Gigabyte-Bereich. Da kann man shoppen gehen, ehe die Bearbeitung fertig ist. Nee, nicht man kann, sondern man muss, weil man den Rechner in der Zeit für nichts anderes benutzen kann.

Ist denn einer von den verwendeten Bildmanipulationsbefehlen bekanntermaßen extrem langsam und könnte ggf. durch eine schnellere Routine ersetzt werden?