Forum: Multimedia
Delphi
by ShoAn,
29. Apr 2003
procedure TForm1.Button1Click(Sender: TObject);
begin
aScreenShot('bildsche.jpeg', 75, 640, 480);
end;
Forum: Multimedia
Delphi
by ShoAn,
28. Apr 2003
@RobertS: hehe, ich habn k6 2 300mhz ;)
also jetzt geht eigentlich alles ganz gut. ich hab noch nebenbei reingemacht, dass man die größe von dem bild verändern kann:
procedure aScreenShot(const aFileName: String; Quality, Width, Height : Integer);
var
aDC : hDC;
aBmp : TBitmap;
aJpg : TJPEGImage;
mh, hBmp : THandle;
Forum: Multimedia
Delphi
by ShoAn,
27. Apr 2003
hmm, stimmt. ich hab mal geguckt, wo man den code nacheinander abarbeiten kann. und da sieht man, wo er am längsten brauch. das war nämlich da, wo er den screenshot selbst macht.
ich könnt ja mal sagen, was ich eigentlich vor hab ;)
und zwar, übers netzwerk ein kleines überwachungstool, dass vortlaufend screenshots macht und die dann an einen computer schickt. das ganze soll dann wenns fertig...
Forum: Multimedia
Delphi
by ShoAn,
27. Apr 2003
naja, das mit dem umwandeln wollt ich ja grad nicht machen, weil das mir zu lange dauert, wenn zum beispiel jede sekunde ein bild speichern möchte.
kann ich denn nicht gleich anstelle der TBitmap komponente, die TJpegImage komponente benutzen???
ich hab dann einfach versucht, das beispiel umzuschreiben. aber ich bleib ja schon an der stelle hängen:
...
var
JPEG: TJpegImage;
begin
Forum: Multimedia
Delphi
by ShoAn,
27. Apr 2003
hi, ich möchte gern ein bildschirmfoto machen, aber das gleich als jpeg speichern. das beispiel http://www.delphipraxis.net/viewtopic.php?t=2905 von sakura klappt ganz gut, aber kann ich das nicht gleich mit der TJpegImage - komponente machen?? weil sonst müsste ich das immer umwandeln und das dauert mir zu lang :(
kann mir jemand helfen??