Bildschirm Handle

Hallo,

aus der FAQ habe ich Screenshot Variante 1 entnommen. Ich will einen Screenshot vom gesamten Bildschirm haben.
Hab dies verändert:

HDC HWindowDC = GetDesktopWindow;//GetWindowDC(Form1->Handle);

Aber das Ergebnis ist dann immer ein schwarzes Bild.

Wie kann ich den gesamten Bildschirm übergeben ?

Braunstein

HDC HWindowDC = GetWindowDC(0);

Darf ich noch eine Frage stellen - den Bildschirminhalt möchte ich dann als jpg abspeichern.

TJPEGImage *Pic = new TJPEGImage;
Pic->??? = Image1->Picture;
Pic->SaveToFile() ..?

delete Pic;

akari

Hallo

Zum Kopieren des Inhalts von TBitmap nach TJPEG must du mit TCancas::Draw machen.

bis bald
akari

Hallo,

ja okay. Ich will aber auch nur eine Form mit einem Button, größer soll das gesamte Formular nicht sein. Und über den Button dann den Screenshot erstellen. Dazu hab ich nichts gefunden.

Trotzdem danke für die erste Antwort.

void MakeScreenShot(HWND handle, TImage* image)
{
    TCanvas* canvas = new TCanvas();
    canvas->Handle = GetWindowDC(handle);

    TRect Dest   = Form1->Image1->ClientRect;
    TRect Source;
    GetWindowRect(handle, (LPRECT)&Source);
    Source = Rect(0, 0, Source.Right - Source.Left, Source.Bottom - Source.Top);

    image->Canvas->CopyRect(Dest, canvas, Source);
    delete canvas;

   TJPEGImage *Pic = new TJPEGImage;
   Form1->Image1->Canvas->Draw(0, 0, Pic);
   Pic->SaveToFile("c:\\Test.jpg");
   delete Pic;
}

Hallo,

das Image1->Picture kann ich speichern. Aber die jpg-Datei wird erzeugt, hat aber keinen Inhalt. Was mache ich falsch ?

Also, so krieg ich es hin und das läuft auch. Quelle: http://www.mbdealer.de/borland-cpp-builder/screenshot-erstellen-und-jpg-datei-speichern/

Aber der Screenshot ist unscharf. Wenn ich vergleichbar mit SnagIt einen Screenshot mache habe ich ein klares, scharfes Bild. So will ich es auch in meiner Anwendung haben. Nur wie ?!

HDC dc = GetDC(NULL);
TJPEGImage *pJPG_Bild = new TJPEGImage();

Graphics::TCanvas *ScreenCanvas = new Graphics::TCanvas();
ScreenCanvas->Handle = dc;

TRect rect = Rect(0,0,Screen->Width, Screen->Height);
Form1->Image1->Canvas->CopyRect(rect, ScreenCanvas, rect);

ReleaseDC(NULL,dc);

pJPG_Bild->Assign(Image1->Picture->Bitmap);
pJPG_Bild->CompressionQuality = 50;
pJPG_Bild->SaveToFile("c:\\Test.jpg");

delete pJPG_Bild;
delete ScreenCanvas;

Jansen

pJPG_Bild->CompressionQuality = 50;

Denk mal drüber nach ...