отображение JPEG на WINAPI

[nik2009nik]

Доброго времени суток!
Программирую на CodeBlocks На чистом WinAPI.
Мне необходимо просто отобразить JPEG картинку в своем приложении.

Очень долго искал в интернете, нашел много способов, но ни один из нх не подошел для COdeBlocks.

Например, нашел реализацию с использованием OleLoadPicture, но в том описании используется тип CComPtr, заголовочный файл для которого отсутсвует в данной среде разработки.
В том же описании используют функцию FileToStream, для которой тоже нет заголовочного файла.

Было описание способа через GDI+. Нашел в интернете заголовочные файлы,lib,dll,залинковал, но при компиляции ругается на отсутствие объявления какой-то переменной.

Были варинаты с IJL, но в скачанном архиве куча файлов и никакой документации по использованию.

Также много примеров находил для классов MFC,VCL и т.д., которые отсутствуют в CodeBlocks.

Подскажите, пожалуйста, желательно ОЧЕНЬ ПОДРОБНО, как реализовать загрузку JPEG на форму средствами WinAPI и стандартными заголовочными файлами и библиотеками.
Либо сторонними библиотеками. Вообще, ЛЮБЫМ ДОСТУПНЫМ СПОСОБОМ, который будет работать в CodeBlocks (и WinAPI).

[Lauri]

Хочу поднять актуальную для себя тему что бы не создавать новую. Как на WinApi загрузить JPEG ? (DELPHI)

[Lauri]

Или PNG. Прочитал кучу материала, но так и не нашёл ответ.

[counter]

есть готовые библиотеки для работы с jpeg'ом, можно средствами gdi+, ну или раскурить сам формат и грузить его вручную...

[Lauri]

Сообщение от counter

есть готовые библиотеки для работы с jpeg'ом, можно средствами gdi+, ну или раскурить сам формат и грузить его вручную...

Можно подробнее? Мне подойдёт даже вариант конверта из jpeg to bmp, главное средствами winapi. А то всё что нахожу возможно рабочее, но для VCL Задача отобразить картинку в программе, но BMP слишком жирная, использовать крайне не удобно

[counter]

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[Lauri]

Сообщение от counter

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

К сожалению не знаю Си

#include <stdio.h>
using namespace Gdiplus;

INT GetEncoderClsid(const WCHAR* format, CLSID* pClsid);  // helper function

INT main()
{
   // Initialize GDI+.
   GdiplusStartupInput gdiplusStartupInput;
   ULONG_PTR gdiplusToken;
   GdiplusStartup(&gdiplusToken, &gdiplusStartupInput, NULL);

   CLSID   encoderClsid;
   Status  stat;
   Image*   image = new Image(L"Bird.bmp");

   // Get the CLSID of the PNG encoder.
   GetEncoderClsid(L"image/png", &encoderClsid);

   stat = image->Save(L"Bird.png", &encoderClsid, NULL);

   if(stat == Ok)
      printf("Bird.png was saved successfully\n");
   else
      printf("Failure: stat = %d\n", stat); 

   delete image;
   GdiplusShutdown(gdiplusToken);
   return 0;
}

Из информации по ссылке нашёл пример конверта bmp to png, помогите в делфи перевести, ведь на этом примере можна проделать как раз jpeg to bmp

[Exception]

Я делаю так...

const
  IMAGE_RCDATA = 1;
  IMAGE_PNG    = 2;
  IMAGE_GIF    = 3;
  IMAGE_JPEG   = 4;

function GdipLoadImage(const hinst: HINST; lpszName: LPWSTR; uType: UINT; fuLoad: UINT): HBITMAP;
const
  TYPE_PNG : LPWSTR = 'PNG';
  TYPE_GIF : LPWSTR = 'GIF';
  TYPE_JPEG: LPWSTR = 'JPEG';
var
  hRes     : HRSRC;
  dwResSize: DWORD;
  hResLoad : HGLOBAL;
  lpResLock: Pointer;
  hMem     : HGLOBAL;
  pData    : Pointer;
  hr       : HRESULT;
  pStream  : IStream;
  Bitmap   : TGpImage;
  hGlob    : HGLOBAL;
  lpszType : LPWSTR;
  clrBk    : TColorRef;
begin

  Result := 0;

  clrBk := ColorRefToARGB(0);

  if (fuLoad = LR_SHARED) then
  begin

    GdipCreateBitmapFromFile(lpszName, Bitmap);
    if (Bitmap <> nil) then
    try

      GdipCreateHBITMAPFromBitmap(Bitmap, Result, clrBk);

    finally
    // GdipLoadImageFromFile.
      GdipDisposeImage(Bitmap);
    end;

  end
  else
  begin

    case uType of
      IMAGE_RCDATA: lpszType := MAKEINTRESOURCEW(RT_RCDATA);
      IMAGE_PNG   : lpszType := MAKEINTRESOURCEW(TYPE_PNG);
      IMAGE_GIF   : lpszType := MAKEINTRESOURCEW(TYPE_GIF);
      IMAGE_JPEG  : lpszType := MAKEINTRESOURCEW(TYPE_JPEG);
    else
      lpszType := MAKEINTRESOURCEW(RT_BITMAP);
    end;

    hRes := FindResourceW(hinst, lpszName, lpszType);
    if (hRes <> 0) then
    try

      dwResSize := SizeofResource(hinst, hRes);
      if (dwResSize <> 0) then
      try

        hResLoad := LoadResource(hinst, hRes);
        if (hResLoad <> 0) then
        try

          lpResLock := LockResource(hResLoad);
          if (lpResLock <> nil) then
          try

            hMem := GlobalAlloc(GMEM_MOVEABLE, dwResSize);
            if (hMem <> 0) then
            try

              pData := GlobalLock(hMem);
              if (pData <> nil) then
              try

                CopyMemory(pData, lpResLock, dwResSize);
                pStream := nil;
                hr := CreateStreamOnHGlobal(hMem, FALSE, pStream);
                if (hr = S_OK) then
                try

                  GdipLoadImageFromStream(pStream, Bitmap);
                  if (Bitmap <> nil) then
                  try

                    GdipCreateHBITMAPFromBitmap(Bitmap, Result, clrBk);

                  finally
                  // GdipLoadImageFromStream.
                    GdipDisposeImage(Bitmap);
                  end;

                finally
                // CreateStreamOnHGlobal.
                  hr := GetHGlobalFromStream(pStream, hGlob);
                  if (hr = S_OK) then
                    GlobalFree(hGlob);
                  pStream := nil;
                end;

              finally
              // GlobalLock.
              end;

            finally
            // GlobalAlloc.
              GlobalUnlock(hMem);
              GlobalFree(hMem);
            end;

          finally
          // LockResource.
            UnlockResource(HGLOBAL(lpResLock));
          end;

        finally
        // LoadResource.
          FreeResource(hResLoad);
        end;

      finally
      // SizeofResource.
      end;

    finally
    // FindResource.
    end;

  end;

end;

[kovalev]

Сообщение от Lauri

Хочу поднять актуальную для себя тему что бы не создавать новую. Как на WinApi загрузить JPEG ? (DELPHI)

program Template;

uses
  Windows, Messages, ActiveX;

const
  IID: TGUID = '{7BF80980-BF32-101A-8BBB-00AA00300CAB}';
  HIMETRIC_INCH = 2540;  

var
  WC: TWndClass;
  Msg: TMsg;
  Picture: IPicture = nil;

procedure LoadFile(FileName: String);    // BMP, ICO, GIF, JPG, EMF, WMF
var
  aFile: HFILE;
  Stream: IStream;
  Data: Pointer;
  BytesRead: DWORD;
  FileSize: DWORD;
  Global: HGLOBAL;
begin
  aFile := CreateFile(PChar(FileName), GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
  FileSize := GetFileSize(aFile, nil);
  Global := GlobalAlloc(GMEM_MOVEABLE, FileSize);
  Data := GlobalLock(Global);
  ReadFile(aFile, Data^, FileSize, BytesRead, nil);
  GlobalUnlock(Global);
  CloseHandle(aFile);
  CreateStreamOnHGlobal(Global, True, Stream);
  OleLoadPicture(Stream, FileSize, False, IID, Picture);
  GlobalFree(Global)
end;

function WinProc(Win, Msg, WP, LP: Integer): Integer; stdcall;
var
  PS: TPaintStruct;
  Rect: TRect;
  aWidth, aHeight, bWidth, bHeight: Integer;
begin
  case Msg of

    WM_CREATE: LoadFile('1.jpg');

    WM_PAINT:
    begin
      BeginPaint(Win, PS);
      Picture.get_Width(aWidth);
      Picture.get_Height(aHeight);
      bWidth  := MulDiv(aWidth,  GetDeviceCaps(PS.hDC, LOGPIXELSX), HIMETRIC_INCH);
      bHeight := MulDiv(aHeight, GetDeviceCaps(PS.hDC, LOGPIXELSY), HIMETRIC_INCH);
      GetClientRect(Win, Rect);
      Picture.Render(PS.hDC, 0, 0, bWidth, bHeight, 0, aHeight, aWidth, -aHeight, Rect);
      EndPaint(Win, PS);
    end;

    WM_DESTROY:
      PostQuitMessage(0)

  end;
  Result := DefWindowProc(Win, Msg, WP, LP)
end;

BEGIN
  with WC do
  begin
    lpszClassName := 'asd';
    lpfnWndProc :=  @WinProc;
    hbrBackground := 1;
    hCursor := LoadCursor(0, IDC_ARROW)
  end;
  RegisterClass(WC);

  CreateWindow(WC.lpszClassName, 'Заголовок программы',
    WS_OVERLAPPED or WS_SYSMENU or WS_MINIMIZEBOX or WS_VISIBLE,
    400, 300, 250, 217, 0, 0, hInstance, nil);

  while GetMessage(Msg, 0, 0, 0) do
    begin
      TranslateMessage(Msg);
      DispatchMessage(Msg)
    end;
END.