VmsCommServer/SRC/CDS/TVmsImageF.cpp

//---------------------------------------------------------------------------


#pragma hdrstop

#include "TVmsImageF.h"
#include "AppGlobalF.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

//---------------------------------------------------------------------------
TCDSImageCell::TCDSImageCell()
{
}
//---------------------------------------------------------------------------

TCDSImageCell::~TCDSImageCell()
{
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
TCDSImage::TCDSImage()
{
    pImage  = NULL;
    pImage  = new TImage(NULL);
}
//---------------------------------------------------------------------------

TCDSImage::~TCDSImage()
{
    Clear();
    if (pImage)
    {
        delete pImage;
        pImage = NULL;
    }
    FLists.RemoveAll();
}
//---------------------------------------------------------------------------
void TCDSImage::Clear()
{
    if (pImage)
    {
        pImage->Picture->Bitmap->FreeImage();
        pImage->Picture->Assign(NULL);
    }
}
//---------------------------------------------------------------------------


//---------------------------------------------------------------------------
TCDSImageManager *ImageManager = NULL;
//---------------------------------------------------------------------------

TCDSImageManager::TCDSImageManager()
{
}
//---------------------------------------------------------------------------
TCDSImageManager::~TCDSImageManager()
{
    FLists.RemoveAll();
}
//---------------------------------------------------------------------------


void AssignBmp(TImage *AImage, TStream *AStream)
{
	try
	{
		try
		{
            AImage->Picture->Bitmap->LoadFromStream(AStream);
		}
		catch(...)
		{
		}
	}
	__finally
	{
	}
}
//---------------------------------------------------------------------------

void AssignGif(TImage *AImage, TStream *AStream)
{
	TGIFImage *pGif = new TGIFImage();
	try
	{
		try
		{
			pGif->LoadFromStream(AStream);
			AImage->Picture->Assign(pGif);
		}
		catch(...)
		{
		}
	}
	__finally
	{
		if (pGif) {
			delete pGif;
		}
	}
}
//---------------------------------------------------------------------------

void AssignJpg(TImage *AImage, TStream *AStream)
{
	TJPEGImage *pJpg = new TJPEGImage();
	try
	{
		try
		{
			pJpg->LoadFromStream(AStream);
			AImage->Picture->Assign(pJpg);
		}
		catch(...)
		{
		}
	}
	__finally
	{
		if (pJpg) {
			delete pJpg;
		}
    }
}
//---------------------------------------------------------------------------

void SaveToFileBmp(TImage *AImage, AnsiString AFileName)
{
	try
	{
		try
		{
			AImage->Picture->SaveToFile(AFileName);
		}
		catch(...)
		{
		}
	}
	__finally
	{
    }
}
//---------------------------------------------------------------------------

void SaveToFileGif(TImage *AImage, AnsiString AFileName)
{
	TGIFImage *pGif = new TGIFImage();
	try
	{
		try
		{
			pGif->Assign(AImage->Picture);
			pGif->SaveToFile(AFileName);
		}
		catch(...)
		{
		}
	}
	__finally
	{
		if (pGif) {
			delete pGif;
		}
    }
}
//---------------------------------------------------------------------------

void SaveToFileJpg(TImage *AImage, AnsiString AFileName)
{
	TJPEGImage *pJpg = new TJPEGImage();
	try
	{
		try
		{
			pJpg->Assign(AImage->Picture);
			pJpg->SaveToFile(AFileName);
		}
		catch(...)
		{
		}
	}
	__finally
	{
		if (pJpg) {
			delete pJpg;
		}
    }
}
//---------------------------------------------------------------------------

void SaveToStreamGif(TImage *AImage, TStream *AStream)
{
	TGIFImage *pGif = new TGIFImage();
	try
	{
		try
		{
			pGif->Assign(AImage->Picture);
			pGif->SaveToStream(AStream);
		}
		catch(...)
		{
		}
	}
	__finally
	{
		if (pGif) {
			delete pGif;
		}
    }
}
//---------------------------------------------------------------------------

void SaveToStreamJpg(TImage *AImage, TStream *AStream)
{
	TJPEGImage *pJpg = new TJPEGImage();
	try
	{
		try
		{
			pJpg->Assign(AImage->Picture->Bitmap);
			pJpg->SaveToStream(AStream);
		}
		catch(...)
		{
		}
	}
	__finally
	{
		if (pJpg) {
			delete pJpg;
		}
    }
}
//---------------------------------------------------------------------------