JavaScript -> VBScript: Bildmaße ermitteln

[osn-crusher]

Hi @all,

Ich würde gerne per VBscript die Breite und die Höhe eines Bildes ermitteln,
welches durch ein <input type="file"> angegeben wurde.

Mit Javascript funktioniert es so:

bild = new Image();
bild.src = document.getElementById('foto').value;
alert( bild.width + " x " + bild.height );

Zur weiterverarbeitung bräuchte ich dies jedoch in VBscript.
Das Ganze soll Client-Seitig per *.hta ablaufen.

Ich hoffe ihr hab dazu noch Idden, denn ich hab nichts dazu in Google gefunden.

[osn-crusher]

Hab da jetzt was gefunden, wobei ich mir noch unschlüssigt bin,
ob des passt.

dim pic
set pic = LoadPicture( document.imageconvert.foto.value )
msgbox pic.type & ": " & pic.width & " x " & pic.height

Wenn ich ein Bild angebe, das 1600x1200 px hat liefert mir die obige
Funktion die Werte 42333x31750 Himetric zurück

Weiss jemand, mit welcher Formel ich Himetric in px umrechnen kann?

[osn-crusher]

Moin Moin

hab zwar nicht rausgefunden, was die Einheit "Himetric" bedeutet,
aber die Umrechnung geht folgendermaßen:

Pixel = Hirmetric / 26,45

Ciaoi

[TobiaZ]

http://www.faktedon.com/wiki/de/hi/Himetric.htm