Присвоение bitmap из функции

[DarkHacker]

Здравствуйте. Есть функция вида:

function get_screenshot(h:HWND):Tbitmap;
var
bmp:TBitmap;
begin
bmp:=TBitmap.Create;

  hSrcWnd := h;
  GetWindowRect(hSrcWnd, rcSrc);

  if (rcSrc.Right - rcSrc.Left < 170) and (rcSrc.Bottom - rcSrc.Top < 40) then
    begin
      ShowWindow(hSrcWnd, SW_SHOWNORMAL);
      sleep(100);
      GetWindowRect(hSrcWnd, rcSrc);
    end;

   hDC1:= GetDC(hSrcWnd);
   hSrcDC:=CreateCompatibleDC(hDC1);

   hBmp := CreateCompatibleBitmap(hDC1, rcSrc.right - rcSrc.left, rcSrc.bottom - rcSrc.top);

   SelectObject(hSrcDC, hBmp);

   PrintWindow(hSrcWnd, hSrcDC, 0);

   BitBlt(
     hDC1,
     0,
     0,
     rcSrc.right - rcSrc.left,
     rcSrc.bottom - rcSrc.top,
     hSrcDC,
     0,
     0,
     SRCCOPY);


   InvalidateRect(hSrcWnd,nil,false);

  bmp.Handle:=hbmp;
  {
   bmp.SaveToFile('table.bmp');
   }
  DeleteObject(hBmp);
  DeleteDC(hSrcDC);
  ReleaseDC(hSrcWnd, hDC1);

  Result:=bmp;
  //bmp.Free;

end;

Image3.Picture.Bitmap.Create;
Image3.Picture.Bitmap.Assign(get_screenshot(h));
Image3.Picture.Bitmap.FreeImage;

Если в функции поставить на проверку полученный скриншот (ширина, высота и т.д.) то все хорошо, можно из функции его сохранить в файл и загрузить в имейдж, но хочу избавится от работы с файлами.

При применении данной функции image3 остается пустым. Если загрузить в него предварительно изображение то при применении функции image3 остается неизменным.

[WinCoder]

1) Среда?
2) Типы переменных где?

[DarkHacker]

1. Delphi7
2.

var
rcSrc:Trect;
hSrcWnd:HWND;
hDC1:HDC;
hSrcDC:HDC;
hBmp:HBITMAP ;
Bmp:TBitmap;

[NetSpace]

так тебе что надо со скриншотом сделать-то? если его в файл записывать не надо, раз ты хочешь избавиться от работы с файлами, тогда для чего скриншот?
у меня есть работающий пример, когда с экрана делается скриншот по указанным размерам, и сохраняется в файл JPG

[DarkHacker]

Что надо делать с ним потом уже реализовано. Проблема только в том что описал, нужно переделать функцию таким образом чтобы она возвращала битмап. Именно по этому был реализован метод с файлом, так как не нашел решения данного вопроса.
Прошу помощи.

[NetSpace]

так, моя наработка:

   DeskTopCanvas:=TCanvas.Create;
   MyJpeg:=TJpegImage.Create;
   //-----
   obl.Left:=0;
   obl.Top:=0;
   obl.Right:=1280;
   obl.Bottom:=800;
   //----- область записи ------------------------------------------------------
   img:=TBitmap.Create;
   img.Width:=obl.Right-obl.Left;//размер записывается в файл - само изображение+ белая область
   img.Height:=obl.Bottom-obl.Top;
   //-----
   bmp:=TBitmap.Create;
   bmp.Width:=obl.Right-obl.Left;//можно масштабировать выходное изображание, то есть не 1280x800, а 800x600
   bmp.Height:=obl.Bottom-obl.Top;
  DeskTopCanvas.Handle:=GetWindowDC(GetDeskTopWindow);
   img.Canvas.CopyRect(bmp.Canvas.ClipRect,DeskTopCanvas,obl);// вот тут получаем заветный BMP
   MyJpeg.Assign(img);
   MyJpeg.SaveToFile(Name);//а вот тут я для себя сохраняю в файл, если кому надо
   MyJpeg.Free;
      bmp.FreeImage;
      img.FreeImage;

[WinCoder]

Код функции не менял. Далее сделал так.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image3.Picture.Bitmap.Assign(get_screenshot(form1.Handle));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image3.Picture.Bitmap := TBitMap.Create;
end;

Результат на картинке.

[DarkHacker]

NetSpace. Меня кажется не правильно поняли, мне нужно ФУНКЦИЮ переделать на возврат TBitmap (оно то есть, но я видимо неправильно использую), а не на использование непосредственно в главном коде.

WinCoder, а у меня ошибка "bitmap image is not valid"

[WinCoder]

а у меня ошибка "bitmap image is not valid"

Значит твой код не совпадает в моим, и дабы не гадать, где именно не совпадает, проект в студию.

[DarkHacker]

Код совпадает, при чистом проекте все работает, спасибо. Значит проблема у меня в коде, код очень объемный не выложить.

Наверное проблема еще в подключенных модулях, почему-то автоматически подключается jpeg, даже если отключу...
Буду копать. Спасибо.