nasr
دوشنبه 30 اردیبهشت 1387, 10:30 صبح
سلام
من از طریق این کد ها از یک کامپیوتر عکس میگیرم .
procedure ScreenShot(Bild: TBitMap);
var
c: TCanvas;
r: TRect;
begin
C := TCanvas.Create;
C.Handle := GetWindowDC(GetDesktopWindow);
try
r := Rect(0, 0, Screen.Width, Screen.Height);
Bild.Width := Screen.Width;
Bild.Height := Screen.Height;
Bild.Canvas.CopyRect(r, c, r);
finally
ReleaseDC(0, c.Handle);
c.Free;
end;
end;
و با این کد در دیتابیس ذخیره می کنم.
with ADOTable1 do
begin
Edit;
ScreenShot(DBImage1.Picture.BitMap);
Post;
end;
حالا یک تایمر گذاشتم که هر 1 ثانیه یک عکس بگیره و وارد دیتابیس کنه ولی سرعت کامپیوتر را وقتی داره این کار را میکنه به شدت میاره پایین.
چکار باید بکنم؟
ممنون
من از طریق این کد ها از یک کامپیوتر عکس میگیرم .
procedure ScreenShot(Bild: TBitMap);
var
c: TCanvas;
r: TRect;
begin
C := TCanvas.Create;
C.Handle := GetWindowDC(GetDesktopWindow);
try
r := Rect(0, 0, Screen.Width, Screen.Height);
Bild.Width := Screen.Width;
Bild.Height := Screen.Height;
Bild.Canvas.CopyRect(r, c, r);
finally
ReleaseDC(0, c.Handle);
c.Free;
end;
end;
و با این کد در دیتابیس ذخیره می کنم.
with ADOTable1 do
begin
Edit;
ScreenShot(DBImage1.Picture.BitMap);
Post;
end;
حالا یک تایمر گذاشتم که هر 1 ثانیه یک عکس بگیره و وارد دیتابیس کنه ولی سرعت کامپیوتر را وقتی داره این کار را میکنه به شدت میاره پایین.
چکار باید بکنم؟
ممنون