bmp to img1 минуя LoadFromFile

[Xsires]

PHP код:

function PrintWindow(HWND:HWND;hdcBlt:HDC;nFlags:DWORD):BOOL; stdcall; external 'user32.dll';
procedure TForm1.btn1Click(Sender: TObject);
var
rcSrc:Trect;
hSrcWnd:HWND;
hDC1:HDC;
hSrcDC:HDC;
hBmp:HBITMAP ;
tBmp:TBitmap;
begin
 tbmp:=TBitmap.Create;
 hSrcWnd := FindWindow(nil, PChAR('Колькулятор'));
 GetWindowRect(hSrcWnd, rcSrc);
 hDC1:= GetDC(hSrcWnd);
 hSrcDC:=CreateCompatibleDC(hDC1);
 hBmp := CreateCompatibleBitmap(hDC1, rcSrc.right - rcSrc.left, rcSrc.bottom - rcSrc.top);
 SelectObject(hSrcDC, hBmp);
 PrintWindow(hSrcWnd, hSrcDC, 0);
 tbmp.Handle:=hbmp;
 tbmp.SaveToFile('d:\temp\temp.bmp');
 img1.Height:=tBmp.Height;
 img1.Width:=tBmp.Width;
 img1.Picture.LoadFromFile('d:\temp\temp.bmp');
 DeleteObject(hBmp);
 DeleteDC(hSrcDC);
 ReleaseDC(hSrcWnd, hDC1);
 tbmp.Free;
end; 


Программа получает скрин окна в данном случае Коьлкулятора но у мну не получилось напрямую записать tbmp в image1 я сохраняю и загружаю файл с диска .... если писать

PHP код:

 img1.Canvas.StretchDraw(rect(0,0,tbmp.Width,tbmp.Height),tbmp); 


или

PHP код:

img1.Picture.Assign(tbmp); 


то вместо изображения получается белый квадрат

подскажите как запихнуть bmp в Image1 минуя LoadFromFile ...

[ZuBy]

function PrintWindow(HWND:HWND;hdcBlt:HDC;nFlags:DWORD):BOOL; stdcall; external 'user32.dll'; 
procedure TForm1.btn1Click(Sender: TObject); 
var 
rcSrc:Trect; 
hSrcWnd:HWND; 
hDC1:HDC; 
hSrcDC:HDC; 
hBmp:HBITMAP ; 
tBmp:TBitmap; 
begin 
 tbmp:=TBitmap.Create; 
 hSrcWnd := FindWindow(nil, PChAR('Колькулятор')); 
 GetWindowRect(hSrcWnd, rcSrc); 
 hDC1:= GetDC(hSrcWnd); 
 hSrcDC:=CreateCompatibleDC(hDC1); 
 hBmp := CreateCompatibleBitmap(hDC1, rcSrc.right - rcSrc.left, rcSrc.bottom - rcSrc.top); 
 SelectObject(hSrcDC, hBmp); 
 PrintWindow(hSrcWnd, hSrcDC, 0); 
 tbmp.Handle:=hbmp; 
// tbmp.SaveToFile('d:\temp\temp.bmp'); 
 img1.Height:=tBmp.Height; 
 img1.Width:=tBmp.Width;
 img1.picture.assign(tbmp); 
// img1.Picture.LoadFromFile('d:\temp\temp.bmp'); 
 DeleteObject(hBmp); 
 DeleteDC(hSrcDC); 
 ReleaseDC(hSrcWnd, hDC1); 
 tbmp.Free; 
end;

[Xsires]

0 внимания программа даже не реагирует ... img вообще не появляется ..

[Пепел Феникса]

function PrintWindow(HWND:HWND;hdcBlt:HDC;nFlags:DWORD):BOOL; stdcall; external 'user32.dll'; 
procedure TForm1.btn1Click(Sender: TObject); 
var 
rcSrc:Trect; 
hSrcWnd:HWND; 
hDC1:HDC; 
hSrcDC:HDC; 
hBmp:HBITMAP ; 
tBmp:TBitmap; 
MS:TMemoryStream;
begin 
 tbmp:=TBitmap.Create; 
 hSrcWnd := FindWindow(nil, PChAR('Колькулятор')); 
 GetWindowRect(hSrcWnd, rcSrc); 
 hDC1:= GetDC(hSrcWnd); 
 hSrcDC:=CreateCompatibleDC(hDC1); 
 hBmp := CreateCompatibleBitmap(hDC1, rcSrc.right - rcSrc.left, rcSrc.bottom - rcSrc.top); 
 SelectObject(hSrcDC, hBmp); 
 PrintWindow(hSrcWnd, hSrcDC, 0); 
 tbmp.Handle:=hbmp; 
 MS:=TMemoryStream.Create;
 tbmp.SaveToStream(MS); 
 img1.Height:=tBmp.Height; 
 img1.Width:=tBmp.Width;
 img1.Picture.Bitmap.LoadFromStream(MS); 
 DeleteObject(hBmp); 
 DeleteDC(hSrcDC); 
 ReleaseDC(hSrcWnd, hDC1); 
 MS.Free;
 tbmp.Free; 
end;

[ZuBy]

эх.. не успел.. Пепел Феникса уже ответил)

[Xsires]

))) та же проблема )) с img1 нече не происходить (

[ZuBy]

hSrcWnd := FindWindow(nil, PChAR('Калькулятор'));

[Пепел Феникса]

я еще строчку забыл,
MS.Position:=0;
перед LoadFromStream

[Xsires]

огромное спс )) заработало )