*.jpeg Datei erstellen

[Nils1984]

ich weiss nich ob es zu Multimedia gehört...

ich habe einen Timer der jede Sekunde Zwischenablage ob da nen Bild drin is.

wenn da eins drinne is soll der das als *.jpeg speichern.

in einem ordner der Vorher festgelegt wird.

Hier meine Frage:

Wie kann ich so eine Datei erstellen?
der name der datei hat die Form: name := ('Bild von '+Timetostr(Zeit)+'.jpeg');


Wie geht das??

das der die datei erstellt?

[Matze]

Ich würde erst ein Bitmap draus machen und dann in Jpeg wandeln.

Delphi-Quellcode:

uses Jpeg;

...

var Jpg: TJPEGImage;

...

//Bitmap in -jpg wandeln
JPG.Assign(aBmp);

Achja, wenn das Bild gespeichert wurde, befindet es sich immer noch in der Zwischenablage.
==> Es wird dann jede Sekunde gespeichert.

[hboy]

Delphi-Quellcode:

clip: Clipboard; {unit clipbrd}

clip.clear;

[Nils1984]

hmm ja das is gut.

jaja, die ablage mach ich ja leer mit clipboard.Clear

aber wie Speicher ich das jez ab, wie macht der die datei mit dem namen??

Und was is die var aBmp??



uiuiui

mir is da grad was aufgefallen....

ich hba an keiner stelle meine Variable Datei :TDatei TDatei = File of TPicture

auf das gesetzt was is der ablage is....

uiuiui

[hboy]

des jpeg hat .compress und .savetofile

[hboy]

Delphi-Quellcode:

buf: TJPEGImage;

   buf.Assign(Bitmap);
   buf.CompressionQuality :=  50;
   buf.ProgressiveEncoding := true;
   buf.Compress;
   buf.SaveToFile('bild.jpg');

[edit=r_kerber]Delphi-Tags eingefügt. Mfg, r_kerber[/edit]

[MrKnogge]

Ich glaub, er meint wie er das Bild aus dem Zwischespeicher bekommt.
War das nicht PasteFromClipboard ?

[hboy]

und des aBmp muss ein TBitmap sein.

Delphi-Quellcode:

img: TBitmap;

img := TBitmap.create;

  if clip.HasFormat(CF_BITMAP) then
  begin
     img.LoadFromClipboardFormat(CF_Bitmap,clip.GetAsHandle(CF_Bitmap),0);
     clip.Clear;
  end;

[edit=r_kerber]Delphi-Tags eingefügt. Mfg, r_kerber[/edit]

[hboy]

und danach img.free;

[hboy]

also erst en bild createn, dann vom Clipboard laden, das jpgimage createn, abmp zuweisen, komprimieren, speichern und wieder freigeben. hats geholfen?