democoding/image.c at main · demoscene-no/democoding · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
/*

  Routine for loading JPEG, GIF and BMP images through win32
  Copyright 2003 Erik Faye-Lund aka kusma/excess

*/

#define WIN32_LEAN_AND_MEAN
#include <windows.h>
#include <commdlg.h>
#include <ocidl.h>
#include <olectl.h>
#include <crtdbg.h>
#define HIMETRIC_INCH	2540

#include "file.h"

BOOL image_load( char *filename, unsigned int **pixels, unsigned int *w, unsigned int *h ){
	BITMAPINFO bi;
	HGLOBAL global;
	void* temp_data;
	LPSTREAM stream;
	HRESULT hr;
	LPPICTURE picture;
	long width, height;
	int width_, height_;

	HBITMAP bitmap;
	HDC hdc, hdc_mem;
	unsigned int* image_data;

	file* file = file_open(filename);
	if(file==NULL){
		return FALSE;
	}

	if(w)*w = 0;
	if(h)*h = 0;
	*pixels = NULL;

	global = GlobalAlloc( GMEM_MOVEABLE, file->size );
	temp_data = GlobalLock( global );
	memcpy( temp_data, file->data, file->size );
	GlobalUnlock( global );
	stream = NULL;
	hr = CreateStreamOnHGlobal( global, TRUE, &stream );
	if(FAILED(hr)) return FALSE;

	OleLoadPicture(
		stream,
		file->size,
		FALSE,
		&IID_IPicture,
		(LPVOID *)&picture
	);

	stream->lpVtbl->Release(stream);
	file_close( file );

	picture->lpVtbl->get_Width( picture, &width );
	picture->lpVtbl->get_Height( picture, &height );

	hdc = GetDC( NULL );
	width_ = MulDiv(width, GetDeviceCaps(hdc, LOGPIXELSX), HIMETRIC_INCH);
	height_ = MulDiv(height, GetDeviceCaps(hdc, LOGPIXELSY), HIMETRIC_INCH);

	bitmap = CreateCompatibleBitmap(hdc, width_, height_ );
	hdc_mem = CreateCompatibleDC(hdc);
	SelectObject(hdc_mem, bitmap);

	picture->lpVtbl->Render( picture, hdc_mem, 0, 0, width_, height_, 0, height, width, -height, NULL );
	picture->lpVtbl->Release(picture);
	image_data = malloc(sizeof(unsigned int)*width_*height_);

	memset( &bi, 0, sizeof(BITMAPINFO) );
	bi.bmiHeader.biSize=sizeof(bi.bmiHeader);
	bi.bmiHeader.biWidth = width_;
	bi.bmiHeader.biHeight = -height_;
	bi.bmiHeader.biPlanes = 1;
	bi.bmiHeader.biBitCount = 32;
	bi.bmiHeader.biCompression = BI_RGB;

	GetDIBits( hdc_mem, bitmap, 0, height_, image_data, &bi, DIB_RGB_COLORS );
	DeleteDC(hdc_mem);
	DeleteObject(bitmap);

	if(w) *w = width_;
	if(h) *h = height_;
	*pixels = image_data;
	return TRUE;
}