|
µ¨¸¶´ç °ø½Ä ÀºÇà°èÁ |
ÇϳªÀºÇà 227-910235-83607 |
¿¹±ÝÁÖ ÀÌ»ó±¹(¿î¿µÁø) |
|
|
|
|
|
|
|
|
|
|
°ÁÂ, ÆÁ, Á¤º¸ |
°ÁÂ, ÆÁ, Á¤º¸ ÀÔ´Ï´Ù. |
|
|
|
[angel] ÆÄÀÏ¿¡¼ À̹ÌÁö ŸÀÔ Àбâ |
Ÿ¶ôõ»ç
(±è¼ºÈÆ)
2015-11-07 ¿ÀÀü 11:20:05
Ä«Å×°í¸®:
ÆÁ
3933ȸ Á¶È¸
µî·ÏµÈ ÆÄÀÏÀÌ ¾ø½À´Ï´Ù.
|
|
|
¾È³çÇϼ¼¿ä. Ÿ¶ôÀÓµÂ.
Ãâó: ¿À·¡µÇ¾ú°í Ãâó ¸ð¸§. °ø°³ ÇØÁֽŠºÐ²² °¨»çµå¸².
ÆÄÀÏ È®ÀåÀÚ´Â À̹ÌÁö Æ÷¸Ë°ú ´Ù¸£°Ô º¯°æ ÇÒ ¼ö ÀÖ¾î¼, ÆÄÀÏ Çì´õ¿¡¼ À̹ÌÁö ŸÀÔÀ» Àоî¾ß ÇÕ´Ï´Ù.
const US_BITMAP_TYPE = $4D42; US_JPEG_TYPE = $FFFFD8FF; US_GIF_TYPE = $4947; US_WMF_TYPE = $FFFFCDD7; US_TIF_TYPE = $4949; US_PCX_TYPE = $50A; US_PSD_TYPE = $4238; US_PNG_TYPE = $5089;
procedure TfrmMain.Button1Click(Sender: TObject); var MyType: SmallInt; MyFile: TFileStream; sTemp: string; begin MyFile := TFileStream.Create('.\MainButtons.png', fmOpenRead + fmShareDenyNone); MyFile.Read(MyType, SizeOf(MyType));
sTemp := ''; case MyType of US_BITMAP_TYPE: sTemp := 'BMP ÆÄÀÏ'; US_JPEG_TYPE: sTemp := 'JPEG ÆÄÀÏ'; US_GIF_TYPE: sTemp := 'GIF ÆÄÀÏ'; US_WMF_TYPE: sTemp := 'WMF ÆÄÀÏ'; US_TIF_TYPE: sTemp := 'TIF ÆÄÀÏ'; US_PCX_TYPE: sTemp := 'PCX ÆÄÀÏ'; US_PSD_TYPE: sTemp := 'PSD ÆÄÀÏ'; US_PNG_TYPE: sTemp := 'PNG ÆÄÀÏ'; end;
ShowMessage(sTemp);
MyFile.Free; end;
|
|
|
|
|
|
|
|
|