Вопрос по GDI+ (почитать в поток/буфер)

[CrazyProgramer]

Привет.

var 
  image: GPIMAGE;
  .
begin
  .
  GdipCreateBitmapFromHBITMAP(HBMP, 0, image);
  .
end;

Подскажите, пожалуйста, как получить указатель на начало и размер данных получившегося битмапа?

[0nni]

GetObject() если это у тебя hbitmap

  
var bi : tagBITMAP;
begin
  ZeroMemory(@bi, SizeOf(bi));;
  GetObject(bitmap, SizeOf(bi), @bi);

[BOBAH13]

GdipBitmapLockBits

[0nni]

ой, плюс не заметил, а то смотрю что-то не то

[CrazyProgramer]

Спасибо, но мало чего понятно конешно...

var
  token: dword;
  input: TGdiplusStartupInput;
  image: GPIMAGE;
  Clsid: TGUID;
  hBMP   : HBITMAP;
  oldObj : HGDIOBJ;
  DESCDC : HDC;
  memDC  : HDC;
begin
  DESCDC := GetDC(0);
  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:\1.png', @ClsId, nil);
  //Сдесь надо заместо сохранения в файл, прочитать в буфер!
  GdipDisposeImage(image);
  GdiplusShutdown(token);
  SelectObject(memDC, oldObj);
  DeleteObject(memDC);
  DeleteObject(hBMP);
  ReleaseDC(GetDesktopWindow(), DESCDC);
end;

Можно поподробнее, обьяснить как это сделать? С gdip первый раз просто столкнулся, оч. надо, или ссыль какунито где прочитать можно поподробнее про неё).

[BOBAH13]

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

Спасибо, но мало чего понятно конешно...

Ну как обычно кому была написана функция (мой пост)... просто игнорируем ? ну да ладно вот смотрите..

var
  Bitmap: GpBitmap;
  BitmapData: TBitmapData;
  r: TGPRectF;
  Stream: TMemoryStream;
begin
  r.X := 0;
  r.Y := 0;
  r.Width := 100;
  r.Height := 50;
  GdipCreateBitmapFromScan0(100, 50, 100 * 4, PixelFormat32bppARGB, NIL, Bitmap);
  GdipBitmapLockBits(Bitmap, @r, ImageLockModeRead or ImageLockModeWrite,
    PixelFormat32bppARGB, @BitmapData);

  Stream := TMemoryStream.Create;
  Stream.Write(BitmapData.Scan0^, 100 * 50 * 4);
  // do something
  Stream.Free;

  GdipBitmapUnlockBits(Bitmap, @BitmapData);
  GdipDisposeImage(Bitmap);
end;

вроде так... а то как не чтобы в файл а поток, тут надо смотреть в сторону IStream... тем более есть метод в GDI+ сохранение в поток GdipSaveImageToStream. Про то как совместить IStream с TStream в сети информация такая есть, так что ищем.

p.s. какая то не состыковка выходит... вы пишете что "вместо сохранения..," надо "прочитать"... ну сохранение - это запись, так вы уже определитесь вы пишите или читаите ?

[CrazyProgramer]

BOBAH13, спасибо, теперь оч. даже понятно!

Ну как обычно кому была написана функция (мой пост)... просто игнорируем ?

Нет, просто впервой с gdip столкнулся, а документации никакой по ней нету у меня(только пару демок нашел), поэтому и написал так...

p.s. какая то не состыковка выходит... вы пишете что "вместо сохранения..," надо "прочитать"... ну сохранение - это запись

Вроде всё верно, имел ввиду почитать сконвертированную картинки в сторонний буфер.
Только вот как бы мне для png это сделать

[BOBAH13]

GdipBitmapLockBits - вернет буфер в формате какой вы указали. А чтобы конвертированный в png буфер получить это надо как я сказал GdipSaveImageToStream используя IStream. В чем проблема вообщем ?

[CrazyProgramer]

Про то как совместить IStream с TStream

Дело в том что нужно было делать без Classes...

В чем проблема вообщем ?

Нивчем, разобрался уже... нашел код, правдо, на буржуйском и на VB, переписал на делф, вроде робит!
Спасибо за участие, Закрыто.