bild auf screenshot "legen"

[JWeis]

hi leude

ich hab son problem:

ich mach mit meinemprog nen screenshot und den lass ich dan auf meiner ganzen form zeigen.

Delphi-Quellcode:

function GetScreenShot: TBitmap;
var
  Desktop: HDC;
begin
  Result  := TBitmap.Create;
  Desktop := GetDC(0);
  try
    try
      Result.PixelFormat := pf32bit;
      Result.Width := Screen.Width;
      Result.Height := Screen.Height;
      BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, Desktop, 0, 0, SRCCOPY);
      Result.Modified := True;
    finally
      ReleaseDC(0, Desktop);
    end;
  except
    Result.Free;
    Result := nil;
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Picture.Bitmap := GetScreenShot;
end;

so nun will ich, wenn ich irgendwo draufklicke an der position dan ein bild auftaucht.
kan mir jemand helfen.??

[Khabarakh]

Du erzeugst ein Speicherleck, da du das von GetScreenshot erzeugte Bitmap nicht freigibst.
Andere Bitmaps kann man per TCanvas.Draw auf die Canvas des Images kopieren.

[JWeis]

danke mal vorerst ich muss mal testen.

[Cicaro]

Zitat:

Zitat von Khabarakh

Du erzeugst ein Speicherleck, da du das von GetScreenshot erzeugte Bitmap nicht freigibst.

Doch DAS Ding gibt er frei (wenn das Image freigegeben wird), jedoch das Bitmap, das vor der Zuweisung mit dem Zeiger Image1.Picture.Bitmap adressiert werden konnte, ... tja, was damit ist, weiß nur der Compiler.

[Khabarakh]

Zitat:

Zitat von Cicaro

Zitat:

Zitat von Khabarakh

Du erzeugst ein Speicherleck, da du das von GetScreenshot erzeugte Bitmap nicht freigibst.

Doch DAS Ding gibt er frei (wenn das Image freigegeben wird), jedoch das Bitmap, das vor der Zuweisung mit dem Zeiger Image1.Picture.Bitmap adressiert werden konnte, ... tja, was damit ist, weiß nur der Compiler.

Nö.
Da du eine Enterprise-Version besitzt, kannst du selbst in die Sourcen gehen und dich davon überzeugen, dass fast überall in der VCL/RTL im Setter von Objekt-Properties nur Assign aufgerufen und der Pointer nicht verändert wird.

[Cicaro]

Zitat:

Zitat von Khabarakh

Zitat:

Zitat von Cicaro

Zitat:

Zitat von Khabarakh

Du erzeugst ein Speicherleck, da du das von GetScreenshot erzeugte Bitmap nicht freigibst.

Doch DAS Ding gibt er frei (wenn das Image freigegeben wird), jedoch das Bitmap, das vor der Zuweisung mit dem Zeiger Image1.Picture.Bitmap adressiert werden konnte, ... tja, was damit ist, weiß nur der Compiler.

Nö.
Da du eine Enterprise-Version besitzt, kannst du selbst in die Sourcen gehen und dich davon überzeugen, dass fast überall in der VCL/RTL im Setter von Objekt-Properties nur Assign aufgerufen und der Pointer nicht verändert wird.

Naja :), zumindest sind wir uns über das Speicherleck einig.