User Guide

Application Object 209
ActiveDocument.InsertText(’<p></p>’, false);
}
}
}
GetImageHeight
Syntax GetImageHeight(const wsImageName: WideString): Integer;
Description Returns the height in pixels of the passed image. Returns 0 on error.
Example
/*
Tests GetImageHeight, GetImageWidth
Looks for first GIF image in current directory
*/
function Main(){
with (Application) {
aFileObj= new ActiveXObject("Scripting.FileSystemObject");
aFolder= aFileObj.GetFolder(CurrentFolder);
aFiles= new Enumerator(aFolder.files);
sExtToTest= ’gif’;
sFile= ’’;
for (; !aFiles.atEnd(); aFiles.moveNext()){
if (aFileObj.GetExtensionName(aFiles.item())
== sExtToTest){
sFile = aFiles.item();
break;
}
}
if (!sFile == ’’){
sMsg = sFile + ’\n\n’ + ’Height = ’ +
GetImageHeight(sFile) + ’\n’;
sMsg = sMsg + ’Width = ’ + GetImageWidth(sFile);
MessageBox(sMsg, ’GetImageHeight/Width Test’, 0);
}
else{
MessageBox(’No images found in current directory’,
’GetImageHeight/Width Test’, 0);
}
}