1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Procedure Screenshot(image:Timage;Bounds:TRect;Faktor:Double);           
var DeskCanvas: TCanvas;
begin
  DeskCanvas := TCanvas.Create;
  DeskCanvas.Handle := GetDC(0);
  image.Width := Round((Bounds.Right - Bounds.left) * Faktor);
  image.Height := Round((Bounds.Right - Bounds.Left) * Faktor);
  Image.Canvas.CopyRect(Image.ClientRect, DeskCanvas, Bounds);
  DeskCanvas.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure Schneiden(Links, Rechts, Oben, Unten, z1, z2 : Integer);                                              
var SourceBitmap : TBitmap;
    TargetBitmap : TBitmap;
    Cut : TRect;
begin
  SourceBitmap:=Tbitmap.Create;
  TargetBitmap:=Tbitmap.Create;
  SourceBitmap.LoadFromFile(Path+'image'+inttostr(z1)+'.bmp');
  Cut.Left := Links;
  Cut.Top := Oben;
  Cut.Right := Rechts;
  Cut.Bottom := Unten;

  TargetBitmap.Width := Cut.Right - Cut.Left;
  TargetBitmap.Height := Cut.Bottom - Cut.Top;
  Sleep(50);
  Application.ProcessMessages;
  BitBlt(TargetBitmap.Canvas.Handle, 0, 0, Cut.Right, Cut.Bottom, SourceBitmap.Canvas.Handle, Cut.Left, Cut.Top, SRCCOPY);
  SourceBitmap.Canvas.Refresh;
  TargetBitmap.SaveToFile(Path+'image'+inttostr(z2)+'.bmp');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function CompareImages(Bitmap3, Bitmap2: TBitmap): LongWord;
var
  xy: integer;
  P1, P2: PInteger;
begin
  Result:=0;
  Bitmap3.PixelFormat:=pf32bit;
  Bitmap2.PixelFormat:=pf32bit;
  P1:=Bitmap3.ScanLine[Bitmap3.Height-1];
  P2:=Bitmap2.ScanLine[Bitmap2.Height-1];
  for xy:=1 to Bitmap3.Height*Bitmap3.Width do begin
    Inc(Result, Byte(P1^<>P2^));
    Inc(P1);
    Inc(P2);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  Screenshot(image1,Rect(Breite,Hoehe,Breite + Breite2,Hoehe + Hoehe2),Faktor);
  Image1.Picture.SaveToFile (Path+'image'+inttostr(z1)+'.bmp');
  schneiden(30,43,64,100,1,2);
  EinBild:= Tbitmap.create;
  NochEinBild:= Tbitmap.create;
  image2.picture.loadfromfile(Path+'image'+inttostr(z2)+'.bmp');
  EinBild.LoadFromFile(Path+'image2.bmp');
  for i := 1 to 20 do
  begin
    NocheinBild.LoadFromFile(Path+'Ordner1\'+'K'+inttostr(i)+'.bmp');
    Diff := CompareImages(EinBild, NocheinBild);					

1:
2:

EinBild.Free;
NochEinBild.Free;					

1:
2:

SourceBitmap.Free;
TargetBitmap.Free;					

1:
2:

Sleep(50);
Application.ProcessMessages;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  repeat
    bitmap1:=0;
    bitmap2:=0;
    bitmap3:=0;
    bitmap4:=0;
    getbitmap1.Click;
    getbitmap2.click;
    getbitmap3.Click;
    getbitmap4.Click;
    wait(500);
  until (bitmap1>0) and (bitmap2>0) and (bitmap3>0) and (bitmap4>0);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

---------------------------
Read1.exe: Memory Leak Detected
---------------------------
This application has leaked memory. The small block leaks are (excluding expected leaks registered by pointer):



61 - 68 bytes: TBitmap x 2

117 - 124 bytes: TBitmapImage x 2



Note: To obtain a log file containing detail on memory leaks, enable the "FullDebugMode" and "LogMemoryLeakDetailToFile" conditional defines. To disable this memory leak check, undefine "EnableMemoryLeakReporting".


---------------------------
OK   
---------------------------					

1:
2:

  FullDebugModeScanMemoryPoolBeforeEveryOperation: Boolean = true;
  FullDebugModeRegisterAllAllocsAsExpectedMemoryLeak: Boolean = true;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

begin
  try
    SourceBitmap:=Tbitmap.Create;
    TargetBitmap:=Tbitmap.Create;
    SourceBitmap.LoadFromFile(Path+'image'+inttostr(z1)+'.bmp');
    Cut.Left := Links;
    Cut.Top := Oben;
    Cut.Right := Rechts;
    Cut.Bottom := Unten;

    TargetBitmap.Width := Cut.Right - Cut.Left;
    TargetBitmap.Height := Cut.Bottom - Cut.Top;
    Sleep(50);
    Application.ProcessMessages;
    BitBlt(TargetBitmap.Canvas.Handle, 0, 0, Cut.Right, Cut.Bottom, SourceBitmap.Canvas.Handle, Cut.Left, Cut.Top, SRCCOPY);
  //  SourceBitmap.Canvas.Refresh;
    TargetBitmap.SaveToFile(Path+'image'+inttostr(z2)+'.bmp');
  finally
    SourceBitmap.Free;
    TargetBitmap.Free;
  end;

end;					

1:
2:
3:
4:
5:
6:

src := TBitmap.Create;
Src.width := IntToStr(Edit1.Text);
Src.Height := IntToStr(Edit2.Text);
//Some more obscure source
Src.Free;
Src := nil;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

src := TBitmap.Create;
try
    Src.width := IntToStr(Edit1.Text);
    Src.Height := IntToStr(Edit2.Text);
    //Some more obscure source
finally
    Src.Free;
    Src := nil;
end;