Screenshot über Sockets als JPEG versenden

[Beckman]

hi neuni!

schau dir mal das projekt im anhang an.

und ins jpg konvertierst du bitmaps so:

uses jpeg;

Delphi-Quellcode:

procedure TForm1.Saveasjpg1Click(Sender: TObject);
var
   jpg: TJpegImage;
begin
//init
jpg := nil;

if savedialog1.Execute then begin
  try
    jpg := TJpegImage.Create;
    jpg.Assign(image1.Picture.Bitmap);
    //Hier können JPG-Eigenschaften wie Kompression, Größe usw. gesetzt werden
    
    jpg.SaveToFile(SaveDialog1.filename);
    finally
      jpg.Free;
      end;
  end;
end;