airwolfMedlem sedan okt. 2003132 inläggFrågan#1 Jag har ett fotogalleri som jag läst ut exif data i via asp.net.
Jag håller på att göra om allt till vanlig asp men fastar på dessa
omskrivningar.
1. Slutar tid:
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
Som ex gör om talet: 1,111111E-02 till 1/90 Sec
2. Bländare
FStop = "F" & (System.BitConverter.ToInt32(objProp.Value, 0) / System.BitConverter.ToInt32(objProp.Value, 4))
Som ex gör om talet: 2,970856 till F2,8
Så med stort förtroende för nån här :)
så går jag och lägger mig!
CatZMedlem sedan jan. 20022 440 inläggIf CInt(objProp.Value, 0) >= CInt(objProp.Value, 4) Then
strExposureTime = (CInt(objProp.Value, 0) / CInt(objProp.Value, 4)) & " Sec"
Else
intVal = 1
intRecip = CInt(objProp.Value, 4) / CInt(objProp.Value, 0)
strExposureTime = intVal & "/" & intRecip & " Sec"
End If
FStop = "F" & (CInt(objProp.Value, 0) / CInt(objProp.Value, 4))
OOveRRidEMedlem sedan feb. 200112 078 inlägg
CatZ skrev:
If CInt(objProp.Value, 0) >= CInt(objProp.Value, 4) Then
strExposureTime = (CInt(objProp.Value, 0) / CInt(objProp.Value, 4)) & " Sec"
Else
intVal = 1
intRecip = CInt(objProp.Value, 4) / CInt(objProp.Value, 0)
strExposureTime = intVal & "/" & intRecip & " Sec"
End If
FStop = "F" & (CInt(objProp.Value, 0) / CInt(objProp.Value, 4))
Cint() i VBScript tar inte två parametrar. Lösningen, som jag förstår det, torde t.ex. vara en egenskriven Coalesce-funktion.
airwolfMedlem sedan okt. 2003132 inlägg Nu är jag nog helt ute och snurrar, jag använder aspjpeg för att läsa exif
Bifogar koden här och nedersta biten är ett försök att få ut det som jag vill.
path = Server.MapPath("/") & "/" & request("item")
'Prt cVirtualPath
'Prt Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open image for metadata exraction
Set Info = Jpeg.OpenInfo( Path )
' Display collection of items
If Info.Count = 0 Then Response.Write "Ingen Exif Data."
Dim MeteringMode, Flash, ExposureProgram, ApertureValue, ExposureTime, intVal, intRecip
Select Case info("MeteringMode")
Case "1"
MeteringMode = "Average"
Case "2"
MeteringMode = "Center Weighted Ave"
Case "3"
MeteringMode = "Spot"
Case "4"
MeteringMode = "Multi-Spot"
Case "5"
MeteringMode = "Pattern"
Case "6"
MeteringMode = "Partial"
Case Else
MeteringMode = "-"
End Select
Select Case info("Flash")
Case "0"
Flash = "No"
Case "1"
Flash = "Yes"
Case Else
Flash = "-"
End Select
Select Case info("ExposureProgram")
Case "1"
ExposureProgram = "Manual"
Case "2"
ExposureProgram = "Normal Program"
Case "3"
ExposureProgram = "Aperature Priority"
Case "4"
ExposureProgram = "Shutter Priority"
Case "5"
ExposureProgram = "Creative Program"
Case "6"
ExposureProgram = "Action Program"
Case "7"
ExposureProgram = "Portrait Mode"
Case "8"
ExposureProgram = "Landscape Mode"
Case Else
ExposureProgram = "-"
End Select
If CInt(info.ExposureTime, 0) >= CInt(info.ExposureTime, 4) Then
ExposureTime = (CInt(info.ExposureTime, 0) / CInt(info.ExposureTime, 4)) & " Sec"
Else
intVal = 1
intRecip = CInt(info.ExposureTime, 4) / CInt(info.ExposureTime, 0)
ExposureTime = intVal & "/" & intRecip & " Sec"
End If
/red. Redigerat inlägg, från PHP-taggar, till CODE-taggar. //OveRRidE, moderator
airwolfMedlem sedan okt. 2003132 inlägg Jag är helt borta ang detta, nån vänlig själ som kan få ordning på detta?
