SBL: Bildgröße ermitteln (+zusätzliche Bildinfos)

Beitrag lesen

Hi,

viele wege führen nach Rom.
Mit ASP würde ich Dir empfehlen eine DLL zu installieren, mit der Du diese Infos abrufen kannst.

Ich habe da ein link http://www.newobjects.com/prodct/Category/51
Ist freeware !!

Nachdem Du die DLL registriert hast, kannst du folgenden Source probieren:

<html>
<head></head>
<body>
<%
dim org_x
dim org_y
dim basePath
dim picName

basePath="C:\TEST"  ' <-- bitte anpassen
picName="TEST.JPG"  ' <-- bitte anpassen

function GetPicInfo(baseDir, pName)
 GetPicInfo=false
    Dim objImg
    Set objImg = Server.CreateObject("ZmeYsoft.Util.ImageFile")
    Dim objFSO
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    Dim objFolder
    Set objFolder = objFSO.GetFolder(baseDir)
    Dim objFile

For Each objFile In objFolder.Files
  if objFile.Path=baseDir+pName then
     objImg.FileName = objFile.Path
     org_x=Clng(objImg.Width)
           org_y=Clng(objImg.Height)
           exit for
  end if
    next
 if objImg.Complete=true and objImg.Type<>"" then GetPicInfo=true
end function

// ---------------------------------------------------------------------------------
if GetPicInfo(basePath, picName)=true then
 response.write "org: (x:y) " + trim(cstr(org_x))+":"+trim(Cstr(org_y))+"<br>"
else
   response.write "Dieses Bild ist fehlerhaft oder wird nicht unterstützt."
end if
// ----------------------------------------------------------------------------------
%>
</body>
</html>

Gruß
Sascha

Moin,

habe mir eine dyn. Thumbnail-Gallery mit ASP NET gebaut.
Möchte zu den Bildern jetzt auch die Bildinfos anzeigen lassen,
wie z.B. Bildeigenschaften (Bildgröße),Größe (kb),Datum -> so wie bei ACDsee (kennt doch sicherlich jeder !?).

Bei klick auf ein Thumbnail geht ein extra Javascript-Fenster auf.
Dieses sollte sich nach der Größe des Orginalbildes anpassen (nicht jeder hat IE6). Deswegen auch die Information über die Bildgröße.

Wer kann mir weiterhlefen und Tipps geben ?

Danke

Kay