Image als Tbyte umwandeln

[zeina]

Zitat von Klaus01:

How do you rotate the image?
Do you rotate it by changing the orientation tag in jpg header?
This can be done directly in the memorystream by modifying the appropriate bytes.

Best regards
Klaus

Delphi-Quellcode:

procedure TFormFoto.rotate90(const aSource: TGraphic; Bmp: TBitmap);
var
  SourceBmp : TBitmap;
  SourcePixel, DestPixel : PRGBQuad;
  Y, X, SourceWidth, SourceHeight: Integer;
begin
  SourceBmp := TBitmap.Create;
  try
    SourceBmp.PixelFormat := pf32bit;
    SourceBmp.Height      := aSource.Height;
    SourceBmp.Width       := aSource.Width;
    SourceBmp.Canvas.Draw(0, 0, aSource);
    SourceHeight          := SourceBmp.Height;
    SourceWidth           := SourceBmp.Width;

    Bmp.PixelFormat       := pf32bit;
    Bmp.Height            := SourceWidth;
    Bmp.Width             := SourceHeight;

    for Y := 0 to SourceWidth - 1 do
    begin
      DestPixel          := Bmp.ScanLine[Y];
      SourcePixel        := SourceBmp.ScanLine[SourceBmp.Height - 1];
      Inc(SourcePixel, Y);

      for X := 0 to SourceHeight - 1 do
      begin
        DestPixel^       := SourcePixel^;
        Inc(SourcePixel, SourceWidth);
        Inc(DestPixel);
      end;
    end;
  finally
    SourceBmp.Free;
  end;
end;


procedure TFormFoto.Drehennach1Click(Sender: TObject);
Var
  Bmap:Tbitmap;
begin
  Bmap := TBitmap.Create;
  try
    rotate90(Image1.Picture.Graphic, Bmap);
    Image1.Picture.Assign(Bmap);
    Panel1.Width :=Bmap.Width;
    PAnel1.Height:=Bmap.Height;
    Image1.Refresh;
  finally
    Bmap.Free;
  end;
end;

[Klaus01]

wenn Du das gedrehte BMP als jpg speichern willst musst Du das Bitmap einer jpg Instanz zuweisen. Die TJpegImage Klasse hat auch eine Methode um in einen Stream zu schreiben.

Delphi-Quellcode:

var
  jpg: TJpegImage;
  bmp: TBitmap;
  mStream: TMemoryStream;
begin
  try
    jpg := TJpegImage.Create;
    try
      bmp := TBitmap.Create;
      try
        // do something with bmp

        jpg.Assign(bmp);
        jpg.SaveToStream(mStream);
      finally
        bmp.Free;
      end;
    finally
      jpg.Free;
    end;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

PS: ich weiß das der Memorystream nicht instantiiert ist.

Grüße
Klaus

[zeina]

das funktioniert nicht.Das Bild ist nicht geändert.

gibt es eine Methode,mit der kann ich ein Foto Als TBayte in TmemoryStream abspeicheren

[Klaus01]

.. die MemoryStream Klasse hat eine Methode write und eine weiterer writeBuffer.
Hier kannst du die Daten übergeben.

Grüße
Klaus