PrintWindow函数截图 所有分数都给你们，只求帮忙

PrintWindow函数截图 全部分数都给你们，只求帮忙

Delphi(Pascal) code

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls;type  TForm1 = class(TForm)    Timer1: TTimer;    Button1: TButton;    procedure Timer1Timer(Sender: TObject);    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;  function  EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean;stdcall;  Function  PrintWindow(SourceWindow: hwnd; Destination: hdc; nFlags: cardinal): bool; stdcall; external 'user32.dll' name 'PrintWindow';implementation{$R *.dfm}function   EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean;var  lpszWindowText:array[0..254]   of   char;  Bitmap: TBitmap;  rec : TRect;  //x, y : Integer;begin  GetWindowText(AhWnd,lpszWindowText,254);  if pos('百度搜索',StrPas(lpszWindowText))>0 then  begin    GetWindowRect(AhWnd, rec); //获取到窗口的矩形    Bitmap := TBitmap.Create;    try      Bitmap.Width := rec.Right - rec.Left;      Bitmap.Height := rec.Bottom - rec.Top;      Bitmap.PixelFormat := pf24bit;      PrintWindow(AhWnd, Bitmap.Canvas.Handle, 0);      Bitmap.SaveToFile(FormatDatetime('yyyymmddhhnnss', Now())+'led.bmp');    finally      Bitmap.Free;    end;  end;  Result:=True;end;procedure TForm1.Timer1Timer(Sender: TObject);beginEnumWindows(@EnumWindowsProc,LongInt(self));end;procedure TForm1.Button1Click(Sender: TObject);beginTimer1Timer(nil);end;end.

定时截图，为什么有些图片会出现下半截黑色。甚至会有全部黑色的。如何解决？请各位高手帮忙解决。谢谢。

[解决办法]
timer定时多少，是不是一个间隔没执行完，后一个又来了
[解决办法]
图片没来得及处理完而已，把定时加长，不建议用timer来做，可以用线程加临界区，另外bmp比较大用jpg存比较好

[解决办法]
既然能打开部分图像，那么截图代码应该是没有问题的，应该时间设置不够导致图片不能加载完成

查看更多 下一篇