Format der Zwischenablage..... Brauche Hilfe bitte....

[turboPASCAL]

Zitat von hedie:

Ok hab mal das hier versucht

Delphi-Quellcode:

procedure TForm2.Button7Click(Sender: TObject);
var
  bild1:TJpegImage;
begin
  SendMessage( Form2.Panel1.Handle, WM_CAP_EDIT_COPY, 1, 0 );
  bild1 := TJpegImage.Create;
  bild1.LoadFromClipboardFormat(cf_bitmap,ClipBoard.GetAsHandle(cf_bitmap),0);
  bild1.SaveToFile('test.jpg');
  bild1.free; <---<<< !!!!!!
end;

Leider ohne Erfolg...

Was das Bild zu speichern oder die Umwandlung zu JPEG oder wie?

Delphi-Quellcode:

{Pseudo/ nicht getested}
procedure TForm2.Button7Click(Sender: TObject);
var
  Bild: TPicture;
  jpeg: TJpegImage;
begin
  SendMessage(Form2.Panel1.Handle, WM_CAP_EDIT_COPY, 1, 0 );
  Bild := TPicture.Create;
  try
    Bild.Bitmap.LoadFromClipboardFormat(cf_bitmap,ClipBoard.GetAsHandle(cf_bitmap),0); 

    jpeg:= TJpegImage.Create;
    jpeg.Assign(Bild);
    jpeg.SaveToFile('test.jpg');
    jpeg.free;
  finally
    bild.free;
  end;
end;