STDMETHODIMP ActiveScriptImpl::GetDocVersionString(BSTR * pbstrVersion)
{
	if (pbstrVersion == NULL)
		return E_POINTER;
		
	if(fileName.length())
	{
		get_FileName(pbstrVersion);
		return S_OK;
	}
	return E_FAIL;
}
void QcepImageDataBase::copyProperties(QcepImageDataBase *dest)
{
    dest -> set_Type(get_Type());
    dest -> set_Creator(get_Creator());
    dest -> set_Version(get_Version());
    dest -> set_QtVersion(get_QtVersion());
    dest -> set_DataType(get_DataType());
    dest -> set_FileBase(get_FileBase());
    dest -> set_FileName(get_FileName());
    dest -> set_Title(get_Title());
    dest -> set_ReadoutMode(get_ReadoutMode());
    dest -> set_ExposureTime(get_ExposureTime());
    dest -> set_SummedExposures(get_SummedExposures());
    dest -> set_ImageSequenceNumber(get_ImageSequenceNumber());
    dest -> set_ImageNumber(get_ImageNumber());
    dest -> set_PhaseNumber(get_PhaseNumber());
    dest -> set_NPhases(get_NPhases());
    dest -> set_DateTime(get_DateTime());
    dest -> set_HBinning(get_HBinning());
    dest -> set_VBinning(get_VBinning());
    dest -> set_CameraGain(get_CameraGain());
    dest -> set_Triggered(get_Triggered());
    dest -> set_UserComment1(get_UserComment1());
    dest -> set_UserComment2(get_UserComment2());
    dest -> set_UserComment3(get_UserComment3());
    dest -> set_UserComment4(get_UserComment4());
    dest -> set_ObjectSaved(get_ObjectSaved());
    dest -> set_Normalization(get_Normalization());
    dest -> set_ExtraInputs(get_ExtraInputs());
    dest -> set_Used(get_Used());

    QByteArray name;

    foreach(name, dynamicPropertyNames()) {
        dest -> setProperty(name.data(), property(name.data()));
    }