AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Screenshot erzeugen und drucken
Thema durchsuchen
Ansicht
Themen-Optionen

Screenshot erzeugen und drucken

Ein Thema von sr1 · begonnen am 23. Nov 2005 · letzter Beitrag vom 24. Nov 2005
Antwort Antwort
sr1

Registriert seit: 24. Jan 2005
4 Beiträge
 
Delphi 7 Professional
 
#1

Screenshot erzeugen und drucken

  Alt 23. Nov 2005, 23:47
Hallo Leute,

ich hoffe, Ihr könnt mir helfen, bin Newbie:

a) wie kann ich einen screenshot erzeugen und, was noch wichtiger ist,
b) diesen ausdrucken bzw. an den Drucker schicken.

Wäre euch für Codeschnipsel sehr dankbar.

Schonmal vielen Dank für Eure Mühe !!!
  Mit Zitat antworten Zitat
Knotti2005

Registriert seit: 10. Nov 2005
275 Beiträge
 
#2

Re: Screenshot erzeugen und drucken

  Alt 23. Nov 2005, 23:51
Von was willst du einen screenshot machen nur von deinem Projekt oder von kompletten desktop oder...
  Mit Zitat antworten Zitat
sr1

Registriert seit: 24. Jan 2005
4 Beiträge
 
Delphi 7 Professional
 
#3

Re: Screenshot erzeugen und drucken

  Alt 24. Nov 2005, 00:01
Zitat von Knotti2005:
Von was willst du einen screenshot machen nur von deinem Projekt oder von kompletten desktop oder...
hi knotti,

vom kompletten desktop...
  Mit Zitat antworten Zitat
Benutzerbild von sniper_w
sniper_w

Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
 
Delphi 6 Enterprise
 
#4

Re: Screenshot erzeugen und drucken

  Alt 24. Nov 2005, 01:03
Screenshoot erzeugen :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
   Timer1.Enabled := True;
   Visible := false;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
  var dc:THandle;
      temp:tbitmap;
begin
   dc := getdc( getdesktopwindow() );
   temp := tbitmap.Create;
   temp.Width := screen.Width;
   temp.Height := screen.Height;
   temp.PixelFormat := pf24bit;
   bitblt( temp.Canvas.Handle, 0, 0, temp.Width, temp.Height, dc, 0,0, SRCCOPY );
   temp.SaveToFile(edit1.Text);
   temp.Free;
   releasedc( 0, dc );
   Timer1.Enabled := False;
   Visible := true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 timer1.Interval := 200;
end;
Katura Haris
Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
  Mit Zitat antworten Zitat
sr1

Registriert seit: 24. Jan 2005
4 Beiträge
 
Delphi 7 Professional
 
#5

Re: Screenshot erzeugen und drucken

  Alt 24. Nov 2005, 01:36
Zitat von sniper_w:
Screenshoot erzeugen :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
   Timer1.Enabled := True;
   Visible := false;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
  var dc:THandle;
      temp:tbitmap;
begin
   dc := getdc( getdesktopwindow() );
   temp := tbitmap.Create;
   temp.Width := screen.Width;
   temp.Height := screen.Height;
   temp.PixelFormat := pf24bit;
   bitblt( temp.Canvas.Handle, 0, 0, temp.Width, temp.Height, dc, 0,0, SRCCOPY );
   temp.SaveToFile(edit1.Text);
   temp.Free;
   releasedc( 0, dc );
   Timer1.Enabled := False;
   Visible := true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 timer1.Interval := 200;
end;
vielen Dank dafür, aber wie sende ich den screenshot zum drucker???
  Mit Zitat antworten Zitat
Benutzerbild von faux
faux

Registriert seit: 18. Apr 2004
Ort: Linz
2.044 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: Screenshot erzeugen und drucken

  Alt 24. Nov 2005, 08:01
Hallo!

Vielleicht hilft dir http://www.dsdt.info/tipps/?id=347 weiter.

Grüße
Faux
Faux Manuel
Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß.
GoTrillian
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:47 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz