Exif-Daten vorlesen

[JKS]

Kleine Anregung für die Skripter ;D
Dieser VBScript-Schnipsel liest Blende & Brennweite des momentan geladenen Bildes vor.
Die zur Sprach-Ein/Ausgabe erforderlichen Dateien gibt's bei M$:
http://www.microsoft.com/products/msagent/downloads/user.asp

Option Explicit

Dim oMSAgent,oChar
Dim sCharPath,sChar
Dim text
if not FF_HasExif then
   msgbox "kein Bild geladen"
   FF_ErrorBreak ""
end if
Set oMSAgent = CreateObject("Agent.Control.2")
If IsObject(oMSAgent) Then oMSAgent.Connected = True
sCharPath = "c:\windows\msagent\chars\"
sChar = "Merlin"
oMSAgent.Characters.Load sChar, sCharPath & sChar & ".acs"
set oChar = oMSAgent.Characters(sChar)
oChar.LanguageID = 1031
oChar.Show True
text = "Blende " & CInt(Replace(FF_GetExifTag("FNumber"),".",","))
text = text & "  Brennweite " & CInt(Replace(FF_GetExifTag("FocalLength"),".",",")) & " Millimeter"
oChar.Speak text
WaitAudio
set oChar = nothing
set oMSAgent = nothing

Function WaitAudio()
do
   if oMSAgent.AudioOutput.Status = 4 then exit do
   FF_Sleep 100
loop
do
   if not oMSAgent.AudioOutput.Status = 4 then exit do
   FF_Sleep 100
loop
End Function

 

[Linley]

Hallo Joachim,

gute Idee, das.
So könnte man in die Beschreibung bei den Exif-Daten eine tatsächliche beschreibung des Bildes für Blinde einfügen, die somit auch etwas von einem gemachten Bild hätten.

Schönen Gruß,

Martin

 

[chwachsmuth]

Ja, die bräuchten dann aber auch gleich eine Umsetzung in Braille-Schrift für den Bildinhalt
Fixfoto in BrailleSchrift (zum Experimentieren die fetten Punkte von hinten etwas durchdrücken und dann tasten üben)

[Dateianhang durch Admin gelöscht]

 

[HeinerN]

Im Ernst
Alles was geschrieben wird kann vorgelesen werden. Und manchmal sogar vom Rechner selber.
Von ihm schon gehört? (bzw. was gesehen?) --> Evgen Bavcar http://www.zonezero.com/exposiciones/fotografos/bavcar/
Er ist aber nicht der einzige blinde Fotograf.. vergessen wir nicht die Sehschwachen.
Gruß
Heiner

edit/
PS. wer mal einen Blick auf andere Sehweisen werfen will:
http://www.vischeck.com/daltonize/ geschätzt wird als betroffen mehr o. weniger ein Zehntel der männlichen Bevölkerung.

 

[Squirrel]

Es geht auch mit Kommastellen.
Außerdem wird jetzt angesagt, daß kein Bild geladen ist.
Bei meinem W2k mußte ich den Pfad noch auf C:\WINNT\... ändern.

'//FFSubmenu=Test
'//FFName=Quassel

Option Explicit

Dim oMSAgent,oChar
Dim sCharPath,sChar
Dim text

Set oMSAgent = CreateObject("Agent.Control.2")
If IsObject(oMSAgent) Then oMSAgent.Connected = True
sCharPath = "c:\windows\msagent\chars\"
sChar = "Merlin"
oMSAgent.Characters.Load sChar, sCharPath & sChar & ".acs"
set oChar = oMSAgent.Characters(sChar)
oChar.LanguageID = 1031
oChar.Show True

if not FF_HasExif then
   oChar.Speak "Kein Bild geladen."
   WaitAudio
   set oChar = nothing
   set oMSAgent = nothing
   FF_ErrorBreak ""
end if

text = "Blende " & FormatNumber(Replace(FF_GetExifTag("FNumber"),".",","), 1)
text = text & "  Brennweite " & FormatNumber(Replace(FF_GetExifTag("FocalLength"),".",","), 1) & " Millimeter"
oChar.Speak text
WaitAudio
set oChar = nothing
set oMSAgent = nothing

Function WaitAudio()
do
   if oMSAgent.AudioOutput.Status = 4 then exit do
   FF_Sleep 100
loop
do
   if not oMSAgent.AudioOutput.Status = 4 then exit do
   FF_Sleep 100
loop
End Function