ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

Sara 2010/01/25(ｿｽｿｽ) 23:31:21

Delphi2010ｿｽｿｽTWICImageｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽRAWｿｽ鞫懶ｿｽﾌ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽA
RAW CodecｿｽｿｽｿｽCｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽﾌ確ｿｽFｿｽﾍでゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾂ能ｿｽﾅゑｿｽｿｽｿｽﾎ一覧ｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽCodecｿｽﾌ擾ｿｽかゑｿｽtｿｽ@ｿｽCｿｽｿｽｿｽ}ｿｽXｿｽNｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽoｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽEｿｽEｿｽE

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽﾜゑｿｽｿｽｿｽｿｽ轤ｲｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽｿｽB

jazzin 2010/01/26(ｿｽｿｽ) 14:58:34

RAWｿｽ鞫懶ｿｽﾍ茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾈゑｿｽｿｽﾌで外ｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、
ｿｽﾈ会ｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽWICｿｽｿｽｿｽTｿｽ|ｿｽ[ｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽ挙でゑｿｽｿｽﾜゑｿｽｿｽB

uses
  ..., WinCodec, ActiveX;

procedure TForm1.Button1Click(Sender: TObject);
var
  factory: IWICImagingFactory;
  enumerator: IEnumUnknown;
  unknown: IUnknown;
  info: IWICBitmapDecoderInfo;
  clsid: TGUID;
  cnt: Cardinal;
  c: array of Char;
begin
  if Failed(CoCreateInstance(CLSID_WICImagingFactory, nil, CLSCTX_INPROC_SERVER or
        CLSCTX_LOCAL_SERVER, IUnknown, factory)) then Exit;

  if Failed(factory.CreateComponentEnumerator(
    WICDecoder,                   // WICComponentType
    WICComponentEnumerateDefault, // WICComponentEnumerateOptions
    enumerator                    // IEnumUnknown
  )) then Exit;

  while enumerator.Next(1, unknown, nil) = S_OK do
  begin
    info := unknown as IWICBitmapDecoderInfo;
    if Assigned(info) then
    begin
      info.GetFriendlyName(0, nil, cnt);
      SetLength(c, cnt);
      info.GetFriendlyName(cnt, PChar(c), cnt);
      Memo1.Lines.Add('[' + PChar(c) + ']');

      info.GetCLSID(clsid);
      Memo1.Lines.Add('GUID: ' + GUIDToString(clsid));

      info.GetFileExtensions(0, nil, cnt);
      SetLength(c, cnt);
      info.GetFileExtensions(cnt, PChar(c), cnt);
      Memo1.Lines.Add('Extensions: ' + PChar(c));
    end;
  end;
end;

ｿｽｿｽｿｽｿｽﾍ列挙ゑｿｽｿｽｿｽｿｽﾈのでイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽ直接撰ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
IWICImagingFactoryｿｽｿｽTWICImage.ImagingFactoryｿｽﾆ難ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽﾌで、
ｿｽｿｽｿｽｿｽｿｽ轤ｩｿｽｿｽ謫ｾｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾈゑｿｽｿｽAｿｽｿｽLｿｽRｿｽ[ｿｽhｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
http://msdn.microsoft.com/ja-jp/magazine/cc546571.aspx

Sara 2010/01/26(ｿｽｿｽ) 19:51:51

jazzinｿｽｿｽｿｽｿｽ@ｿｽﾚ細なコｿｽ[ｿｽhｿｽﾌ提示ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽﾐの休ｿｽeｿｽｿｽｿｽﾔゑｿｽjazzinｿｽｿｽｿｽｿｽﾌ参ｿｽlｿｽﾉゑｿｽｿｽｿｽｿｽTｿｽCｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ
ｿｽｿｽｿｽﾂゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌで帰ｿｽｿｽｿｽｿｽｿｽ邇趣ｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽSｿｽﾉ難ｿｽｿｽすｿｽｿｽRｿｽ[ｿｽhｿｽﾌ提示ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで托ｿｽﾏ擾ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.