GDI plus API

[delphi_coder]

Есть код, который сохраняет скриншот экрана в файл, конвертируя в PNG средствами gdi.

procedure ScreenShot;
var
  token: dword;
  input: TGdiplusStartupInput;
  image: GPIMAGE;
  Clsid: TGUID;
  hBMP   : HBITMAP;
  oldObj : HGDIOBJ;
  DESCDC : HDC;
  memDC  : HDC;
  Screen_Width  : Integer;
  Screen_Height : Integer;
begin
  Screen_Height := GetSystemMetrics(SM_CYSCREEN);
  Screen_Width  := GetSystemMetrics(SM_CXSCREEN);
  DESCDC := GetDC(GetDesktopWindow());
  memDC  := CreateCompatibleDC(DESCDC);
  hBMP   := CreateCompatibleBitmap(DESCDC, Screen_Width, Screen_Height);
  oldObj := SelectObject(memDC, hBMP);
  BitBlt(memDC, 0, 0, Screen_Width, Screen_Height, DESCDC, 0, 0,   SRCCOPY);
  image := nil;
  FillChar(input, SizeOf(input), 0);
  input.GdiplusVersion := 1;
  GdiplusStartup(token, @input, nil);
  GdipCreateBitmapFromHBITMAP(hBMP, 0, image);
  GetEncoderClsid('image/png', Clsid);
  GdipSaveImageToFile(image, 'C:\screen.png', @ClsId, nil);
  GdipDisposeImage(image);
  GdiplusShutdown(token);
  SelectObject(memDC, oldObj);
  DeleteObject(memDC);
  DeleteObject(hBMP);
  ReleaseDC(GetDesktopWindow(), DESCDC);
end;

Как мне получить указатель на сконвертированный PNG файл в памяти?

[studenth]

Наверное как то так...
Gdiplus::BitmapData bitmapdata;
Эта структура будет хранить информацию об изображении

Gdiplus::Rect rect(0, 0, image.GetWidth(), image.GetHeight());

image.LockBits(&rect, Gdiplus::ImageLockModeRead, image.GetPixelFormat(), &bitmapdata);

а потом bitmapdata.Scan0 - вот тебе и указатель.

Ну естественно в твоем случае нужно сделать иначе....идти, наверное, нужно в эту сторону