desktop screenshot

[nikon.de]

hi, ich möchte nen desk screen machen den aber als jpg oder gif speichern , auserdem soll nicht der screen 1024 x 70balbl sein , sondern 300x300 aber der desk soll zu sehen sein , komplett ... hat jemand ne ahnung wie man des macht ?

danke

[fkerber]

Hi!

In der CodeLib müsste ein bsp. zu Screenshots sein. Das kannst du ja als Grundlage nehmen.

Ciao fkerber

[nikon.de]

hab ich mir schon angeguggt .

[fkerber]

Hi!

Und weiter?


Ciao fkerber

[nikon.de]

kann man nen screen machen als bmp und des ist 2.5mb gross :( und hat die größe 1024 x 768 ... soll aber höchsten 200kb gross sein und die größe 300x300 haben und der desk soll komplett zu sehen sein :)

[rebugger]

Schon daran gedacht per Irfanview (http://www.irfanview.de) die Größe und das Dateiformat zu ändern ???

[Luckie]

Forensuche schon bemüht? screenshot and jpg.

[a.vollmer]

Delphi-Quellcode:

procedure TForm1.ScreenToFile(aFileName: string);
var
  Bitmap: TBitmap;
  JPG : TJPEGImage;
  Canvas: TCanvas;
begin
  Canvas := TCanvas.Create;
  try
    Canvas.Handle := GetWindowDC(0);
    Application.ProcessMessages;
    try
      Bitmap := TBitmap.Create;
      Application.ProcessMessages;
      JPG := TJPEGImage.Create;
      Bitmap.PixelFormat:=pf8bit;
       Application.ProcessMessages;
      try
        Bitmap.Width := Screen.DesktopWidth;
        Bitmap.Height:= Screen.DesktopHeight;
        Bitmap.PixelFormat := pfDevice;
         Application.ProcessMessages;
        BitBlt(Bitmap.Canvas.Handle, 0, 0, Pred(Screen.DesktopWidth), Pred(   
        Screen.DesktopHeight), Canvas.Handle, Screen.DesktopLeft,
        Screen.DesktopTop, Bitmap.Canvas.CopyMode);
        Application.ProcessMessages;
//Kompression
        JPG.CompressionQuality:=50;
        JPG.Assign(Bitmap);
        Application.ProcessMessages;
        if fileexists(aFileName) then
          deletefile(aFileName);
        JPG.SaveToFile(aFileName);
      finally
//Größe
       resizepictur(aFileName,300,300);
        Bitmap.Free;
        JPG.Free;   
      end;
    finally   
      ReleaseDC(0, Canvas.Handle);
      Application.ProcessMessages;
    end;   
  finally   
    Canvas.Free;
  end;
end;

Gruß

Alex

[Akut-Programming]

Zitat:

Zitat von nikon.de

kann man nen screen machen als bmp und des ist 2.5mb gross :(

Das Problem hatte ich in meinem Projekt auch. Hatte aber bei Torry ne Komponente gefunden, die bmp -> jpg komprimiert. (heißt glaube sogar "bmptojpg") Damit klappts ganz gut!

Gruß,

[Luckie]

Dazu braucht man keine Komponente. Kann man alles wunderbar selber machen wie obiger Code und die Suche in der Delphipraxis zeigen.