--- title: "Bläddra mellan bilder (newbie)" type: "forum-thread" url: "https://www.webforum.nu/amne/dotnet/109339-bläddra-mellan-bilder-newbie" topic: ".NET" topic_url: "https://www.webforum.nu/amne/dotnet" author: "airwolf" published: "2004-08-16T11:03:58.000Z" updated: "2004-08-27T09:07:04.000Z" replies: 11 views: 549 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/109339-bläddra-mellan-bilder-newbie" --- # Bläddra mellan bilder (newbie) ## #1 — airwolf, 2004-08-16T11:03Z Jag har en sida som läser ut exif ur en bild, nu vill jag att man ska kunna bläddra mellan de olika bilderna i en mapp. Framåt och bakåt. Jag har ingen aning om hur jag ska lyckas med detta. Går det på nåt sätt att lista bilderna i bokstavsordning, så den vet att är jag på den här finns den nästa fram och den nästa bakåt Permalänk: https://www.webforum.nu/p/109339 ## #2 — erka, 2004-08-16T11:06Z Du kan ju läsa in dem i en string\[\], eller en collection av Image objekt. Permalänk: https://www.webforum.nu/p/1411334 ## #3 — Nson, 2004-08-16T11:11Z : Där hittar du ett exempel på det du vill göra.. (tror jag). Permalänk: https://www.webforum.nu/p/1411335 ## #4 — airwolf, 2004-08-16T11:39Z kanon! Återkommer med resultat Permalänk: https://www.webforum.nu/p/1411344 ## #5 — airwolf, 2004-08-16T12:15Z hmmm, nu behöver jag "bara" hjälp med att para dessa filer, nån som vill hjälpa? (hatar att vara newbie) Permalänk: https://www.webforum.nu/p/1411358 ## #6 — renholm, 2004-08-16T13:36Z Exakt vad vill du göra? Hur skall de paras ihop? Permalänk: https://www.webforum.nu/p/1411400 ## #7 — airwolf, 2004-08-16T14:02Z jag har en sida som tar ut exif data ur en bild, jag skulle vilja para ihop den med sidbläddringen på Permalänk: https://www.webforum.nu/p/1411425 ## #8 — renholm, 2004-08-16T19:46Z Enligt exemplet i länken ovan läggs alla sökvägar till bilderna in i en string array, för att få ut den aktuella bilden använder du denna kod enligt exemplet: ``` string path = images(imgIndex); ``` Denna path borde du sedan kunna använda i din exif funktion för att hämta data. Permalänk: https://www.webforum.nu/p/1411743 ## #9 — airwolf, 2004-08-18T08:21Z Så här ser sidan ut i dagsläget, man klickar på mapp och väljer bild, då visas exif.aspx Det är den sidan jag vill att man ska kunna bläddra mellan bilderna på. Kod: exif.aspx ``` <%@ Import Namespace="System" %> <%@ Import Namespace="System.Drawing" %> <%@ Import Namespace="System.Drawing.Imaging" %> <% Dim objImage As Drawing.Image Dim arrProps As PropertyItem() Dim objProp As PropertyItem Dim strReturn As String Dim blnIsEXIFFile As Boolean Dim intRecip As Integer Dim intVal As Integer Dim strModel As String Dim strDate As String Dim strExposureTime As String Dim strFStop As String Dim strFocalLength As String Dim strISOSpeed As String Dim strMeteringMode As String Dim strLightSource As String Dim strExposureProgram As String Dim strTemp As String Dim arrByte As Byte() Dim intCounter As Integer Dim strFileName as string Dim strSize Dim strISO as string strFileName = Request.QueryString("photo") strSize = Request.QueryString("z") objImage = System.Drawing.Image.FromFile(MapPath(strFileName)) arrProps = objImage.PropertyItems blnIsEXIFFile = False For Each objProp In arrProps Select Case objProp.Id Case 272 'Model arrByte = objProp.Value For intCounter = 0 To arrByte.GetUpperBound(0) If Not arrByte(intCounter) = 0 Then 'Strips off "end of string" Byte if present strTemp &= Chr(arrByte(intCounter)) End If Next strModel = RTrim(strTemp) blnIsEXIFFile = True Case 306 'DateTime strTemp = System.Text.Encoding.ASCII.GetString(objProp.Value) 'Reformat the Date from yyyy:mm:dd hh:mm:ss to YYYY-MM-DDDD strDate = Mid(strTemp, 1, 4) & "-" 'Year strDate &= Mid(strTemp, 9, 2) & "-" 'Month strDate &= Mid(strTemp, 6, 2) 'Da blnIsEXIFFile = True Case 33434 'Exposure Time If System.BitConverter.ToInt32(objProp.Value, 0) >= System.BitConverter.ToInt32(objProp.Value, 4) Then strExposureTime = (System.BitConverter.ToInt32(objProp.Value, 0) / System.BitConverter.ToInt32(objProp.Value, 4)) & " Sec" Else intVal = 1 intRecip = System.BitConverter.ToInt32(objProp.Value, 4) / System.BitConverter.ToInt32(objProp.Value, 0) strExposureTime = intVal & "/" & intRecip & " Sec" End If blnIsEXIFFile = True Case 33437 'FStop strFStop = "F" & (System.BitConverter.ToInt32(objProp.Value, 0) / System.BitConverter.ToInt32(objProp.Value, 4)) blnIsEXIFFile = True Case 37386 'Focal Length strFocalLength = (System.BitConverter.ToInt32(objProp.Value, 0) / System.BitConverter.ToInt32(objProp.Value, 4)) & "mm" blnIsEXIFFile = True Case 37383 'Metering Mode strTemp = System.BitConverter.ToUInt16(objProp.Value, 0).ToString Select Case strTemp Case "1" strMeteringMode = "Average" Case "2" strMeteringMode = "Center Weighted Ave" Case "3" strMeteringMode = "Spot" Case "4" strMeteringMode = "Multi-Spot" Case "5" strMeteringMode = "Pattern" Case "6" strMeteringMode = "Partial" Case Else strMeteringMode = "Other" End Select blnIsEXIFFile = True Case 37385 'Flash strTemp = System.BitConverter.ToUInt16(objProp.Value, 0).ToString Select Case strTemp Case "0" strLightSource = "Yes" Case Else strLightSource = "No" End Select blnIsEXIFFile = True Case 34850 'Exposure Program strTemp = System.BitConverter.ToUInt16(objProp.Value, 0).ToString Select Case strTemp Case "1" strExposureProgram = "Manual" Case "2" strExposureProgram = "Normal Program" Case "3" strExposureProgram = "Aperature Priority" Case "4" strExposureProgram = "Shutter Priority" Case "5" strExposureProgram = "Creative Program" Case "6" strExposureProgram = "Action Program" Case "7" strExposureProgram = "Portrait Mode" Case "8" strExposureProgram = "Landscape Mode" Case Else strExposureProgram = "Unknown" End Select blnIsEXIFFile = True Case 34855 'ISO strISO = System.BitConverter.ToUInt16(objProp.Value, 0).ToString blnIsEXIFFile = True End Select Next %> © Daniel Gustafsson - Mixed Albums


Other sizes: Small Medium Large Original
<% IF blnISEXIFFile Then %>
Camera
Date
Exposure Time
Aperture
ISO
Focal Length
Metering Mode
Flash
Exposure Program
<%=strModel %>
<%=strDate %>
<%=strExposureTime %>
<%=strFStop %>
<%=strISO %>
<%=strFocalLength %>
<%=strMeteringMode %>
<%=strLightSource %>
<%=strExposureProgram %>
<% Else %>
This file does not contain any EXIF Data.
<% End If %>


``` Detta koden från som har funktionen jag vill ha i ovanstående sida. Kan nån av er experter sy ihop dessa, förklara gärna.. /Daniel Permalänk: https://www.webforum.nu/p/1415614 ## #10 — airwolf, 2004-08-20T09:02Z ingen som har ett förslag? Permalänk: https://www.webforum.nu/p/1416835 ## #11 — airwolf, 2004-08-27T08:48Z Jag har ett annat problem med ovanstående script. Den spottar inte ut Case Else. Allt förutom case else funkar, nån som har en ide om det? Permalänk: https://www.webforum.nu/p/1419919 ## #12 — airwolf, 2004-08-27T09:07Z Jag har hittat felet tror jag. Ifall case inte innehåller nåt så reagerar inte case Else. Nån som har en lösning på det? Permalänk: https://www.webforum.nu/p/1419928 --- Tråden på webben: https://www.webforum.nu/amne/dotnet/109339-bläddra-mellan-bilder-newbie