這煅程式 為什麼說canvas can`t be drawing |
|
尚未結案
|
|
pricejit2
一般會員   發表：53 回覆：18 積分：14 註冊：2005-01-28 發送簡訊給我 |
這煅程式 為什麼說canvas can`t be drawing sbit:tbitmap;
tcan:tcanvas;
begin sbit:=tbitmap.Create;
tcan:=tcanvas.Create;
sbit.Handle:=getdc(0);
sbit.Width:=screen.Width;
sbit.Height:=screen.Height;
sbit.Canvas.CopyRect(rect(0,0,sbit.Width,sbit.Height),tcan,rect(0,0,screen.Width,screen.Height));
sbit.SaveToFile('c:\screen.jpg');
sbit.Free;
releasedc(0,sbit.Handle);
tcan.Free;
|
|
wameng
版主  發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
var
sbit:tbitmap;
tcan:tcanvas;
begin
sbit:=tbitmap.Create;
tcan:=TCanvas.Create;
tcan.Handle:=getdc(0); {不對頭}
sbit.Width:=screen.Width;
sbit.Height:=screen.Height;
sbit.Canvas.CopyRect(rect(0,0,sbit.Width,sbit.Height),tcan,rect(0,0,screen.Width,screen.Height));
sbit.SaveToFile('c:\screen.bmp'); {只能存 Bitmp }
sbit.Free;
releasedc(0,tcan.Handle);{這裡也錯}
tcan.Free;
end;
事實上建立 TCanvas 是多此一舉！
用 BitBlt 及 GetDC API 拷貝螢幕即可。
|
發表時間：2005-04-27 11:31:21
IP:220.130.xxx.xxx 未訂閱
系統時間：2024-05-05 9:42:26
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |