#include "..\e2dobject.h"
#include "..\e2dmodule.h"
#include "..\e2dtool.h"

std::map<size_t, ID2D1Bitmap*> e2d::Image::bitmap_cache_;

e2d::Image::Image()
	: bitmap_(nullptr)
	, crop_rect_()
{
}

e2d::Image::Image(const Resource& res)
	: bitmap_(nullptr)
	, crop_rect_()
{
	this->Open(res);
}

e2d::Image::Image(const Resource& res, const Rect& crop_rect)
	: bitmap_(nullptr)
	, crop_rect_()
{
	this->Open(res);
	this->Crop(crop_rect);
}

e2d::Image::Image(const String & file_name)
	: bitmap_(nullptr)
	, crop_rect_()
{
	this->Open(file_name);
}

e2d::Image::Image(const String & file_name, const Rect & crop_rect)
	: bitmap_(nullptr)
	, crop_rect_()
{
	this->Open(file_name);
	this->Crop(crop_rect);
}

e2d::Image::~Image()
{
	SafeRelease(bitmap_);
}

bool e2d::Image::Open(const Resource& res)
{
	if (!Image::Preload(res))
	{
		WARN("Load Image from file failed!");
		return false;
	}

	this->SetBitmap(bitmap_cache_.at(res.id));
	return true;
}

bool e2d::Image::Open(const String & file_name)
{
	WARN_IF(file_name.IsEmpty(), "Image Open failed! Invalid file name.");

	if (file_name.IsEmpty())
		return false;

	if (!Image::Preload(file_name))
	{
		WARN("Load Image from file failed!");
		return false;
	}

	this->SetBitmap(bitmap_cache_.at(file_name.GetHash()));
	return true;
}

void e2d::Image::Crop(const Rect& crop_rect)
{
	if (bitmap_)
	{
		crop_rect_.origin.x = std::min(std::max(crop_rect.origin.x, 0.f), this->GetSourceWidth());
		crop_rect_.origin.y = std::min(std::max(crop_rect.origin.y, 0.f), this->GetSourceHeight());
		crop_rect_.size.width = std::min(std::max(crop_rect.size.width, 0.f), this->GetSourceWidth() - crop_rect.origin.x);
		crop_rect_.size.height = std::min(std::max(crop_rect.size.height, 0.f), this->GetSourceHeight() - crop_rect.origin.y);
	}
}

float e2d::Image::GetWidth() const
{
	return crop_rect_.size.width;
}

float e2d::Image::GetHeight() const
{
	return crop_rect_.size.height;
}

e2d::Size e2d::Image::GetSize() const
{
	return crop_rect_.size;
}

float e2d::Image::GetSourceWidth() const
{
	if (bitmap_)
	{
		return bitmap_->GetSize().width;
	}
	else
	{
		return 0;
	}
}

float e2d::Image::GetSourceHeight() const
{
	if (bitmap_)
	{
		return bitmap_->GetSize().height;
	}
	else
	{
		return 0;
	}
}

e2d::Size e2d::Image::GetSourceSize() const
{
	if (bitmap_)
	{
		return Size(GetSourceWidth(), GetSourceHeight());
	}
	else
	{
		return Size();
	}
}

float e2d::Image::GetCropX() const
{
	return crop_rect_.origin.x;
}

float e2d::Image::GetCropY() const
{
	return crop_rect_.origin.y;
}

e2d::Point e2d::Image::GetCropPos() const
{
	return crop_rect_.origin;
}

bool e2d::Image::Preload(const Resource& res)
{
	if (bitmap_cache_.find(res.id) != bitmap_cache_.end())
	{
		return true;
	}

	IWICImagingFactory *imaging_factory = Renderer::GetImagingFactory();
	ID2D1HwndRenderTarget* render_target = Renderer::GetInstance()->GetRenderTarget();
	IWICBitmapDecoder *decoder = nullptr;
	IWICBitmapFrameDecode *source = nullptr;
	IWICStream *stream = nullptr;
	IWICFormatConverter *converter = nullptr;
	ID2D1Bitmap *bitmap = nullptr;
	HRSRC res_handle = nullptr;
	HGLOBAL res_data_handle = nullptr;
	void *image_file = nullptr;
	DWORD image_file_size = 0;

	// 定位资源
	res_handle = ::FindResourceW(
		HINST_THISCOMPONENT,
		MAKEINTRESOURCE(res.id),
		(LPCWSTR)res.type
	);

	HRESULT hr = res_handle ? S_OK : E_FAIL;
	if (SUCCEEDED(hr))
	{
		// 加载资源
		res_data_handle = ::LoadResource(HINST_THISCOMPONENT, res_handle);

		hr = res_data_handle ? S_OK : E_FAIL;
	}

	if (SUCCEEDED(hr))
	{
		// 获取文件指针，并锁定资源
		image_file = ::LockResource(res_data_handle);

		hr = image_file ? S_OK : E_FAIL;
	}

	if (SUCCEEDED(hr))
	{
		// 计算大小
		image_file_size = ::SizeofResource(HINST_THISCOMPONENT, res_handle);

		hr = image_file_size ? S_OK : E_FAIL;
	}

	if (SUCCEEDED(hr))
	{
		// 创建 WIC 流
		hr = imaging_factory->CreateStream(&stream);
	}

	if (SUCCEEDED(hr))
	{
		// 初始化流
		hr = stream->InitializeFromMemory(
			reinterpret_cast<BYTE*>(image_file),
			image_file_size
		);
	}

	if (SUCCEEDED(hr))
	{
		// 创建流的解码器
		hr = imaging_factory->CreateDecoderFromStream(
			stream,
			nullptr,
			WICDecodeMetadataCacheOnLoad,
			&decoder
		);
	}

	if (SUCCEEDED(hr))
	{
		// 创建初始化框架
		hr = decoder->GetFrame(0, &source);
	}

	if (SUCCEEDED(hr))
	{
		// 创建图片格式转换器
		hr = imaging_factory->CreateFormatConverter(&converter);
	}

	if (SUCCEEDED(hr))
	{
		// 图片格式转换成 32bppPBGRA
		hr = converter->Initialize(
			source,
			GUID_WICPixelFormat32bppPBGRA,
			WICBitmapDitherTypeNone,
			nullptr,
			0.f,
			WICBitmapPaletteTypeMedianCut
		);
	}

	if (SUCCEEDED(hr))
	{
		// 从 WIC 位图创建一个 Direct2D 位图
		hr = render_target->CreateBitmapFromWicBitmap(
			converter,
			nullptr,
			&bitmap
		);
	}

	if (SUCCEEDED(hr))
	{
		bitmap_cache_.insert(std::make_pair(res.id, bitmap));
	}

	// 释放相关资源
	SafeRelease(decoder);
	SafeRelease(source);
	SafeRelease(stream);
	SafeRelease(converter);

	return SUCCEEDED(hr);
}

bool e2d::Image::Preload(const String & file_name)
{
	File image_file;
	if (!image_file.Open(file_name))
		return false;

	// 用户输入的路径不一定是完整路径，因为用户可能通过 File::AddSearchPath 添加
	// 默认搜索路径，所以需要通过 File::GetPath 获取完整路径
	String image_file_path = image_file.GetPath();
	size_t hash = image_file_path.GetHash();
	if (bitmap_cache_.find(hash) != bitmap_cache_.end())
		return true;

	IWICImagingFactory *imaging_factory = Renderer::GetImagingFactory();
	ID2D1HwndRenderTarget* render_target = Renderer::GetInstance()->GetRenderTarget();
	IWICBitmapDecoder *decoder = nullptr;
	IWICBitmapFrameDecode *source = nullptr;
	IWICStream *stream = nullptr;
	IWICFormatConverter *converter = nullptr;
	ID2D1Bitmap *bitmap = nullptr;

	// 创建解码器
	HRESULT hr = imaging_factory->CreateDecoderFromFilename(
		(LPCWSTR)image_file_path,
		nullptr,
		GENERIC_READ,
		WICDecodeMetadataCacheOnLoad,
		&decoder
	);

	if (SUCCEEDED(hr))
	{
		// 创建初始化框架
		hr = decoder->GetFrame(0, &source);
	}

	if (SUCCEEDED(hr))
	{
		// 创建图片格式转换器
		hr = imaging_factory->CreateFormatConverter(&converter);
	}

	if (SUCCEEDED(hr))
	{
		// 图片格式转换成 32bppPBGRA
		hr = converter->Initialize(
			source,
			GUID_WICPixelFormat32bppPBGRA,
			WICBitmapDitherTypeNone,
			nullptr,
			0.f,
			WICBitmapPaletteTypeMedianCut
		);
	}

	if (SUCCEEDED(hr))
	{
		// 从 WIC 位图创建一个 Direct2D 位图
		hr = render_target->CreateBitmapFromWicBitmap(
			converter,
			nullptr,
			&bitmap
		);
	}

	if (SUCCEEDED(hr))
	{
		bitmap_cache_.insert(std::make_pair(hash, bitmap));
	}

	// 释放相关资源
	SafeRelease(decoder);
	SafeRelease(source);
	SafeRelease(stream);
	SafeRelease(converter);

	return SUCCEEDED(hr);
}

void e2d::Image::ClearCache()
{
	if (bitmap_cache_.empty())
		return;

	for (const auto& bitmap : bitmap_cache_)
	{
		bitmap.second->Release();
	}
	bitmap_cache_.clear();
}

void e2d::Image::SetBitmap(ID2D1Bitmap * bitmap)
{
	if (bitmap_ == bitmap)
		return;

	if (bitmap_)
	{
		bitmap_->Release();
	}

	if (bitmap)
	{
		bitmap->AddRef();

		bitmap_ = bitmap;
		crop_rect_.origin.x = crop_rect_.origin.y = 0;
		crop_rect_.size.width = bitmap_->GetSize().width;
		crop_rect_.size.height = bitmap_->GetSize().height;
	}
}

ID2D1Bitmap * e2d::Image::GetBitmap()
{
	return bitmap_;
}