掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
JPEG画像を無劣化で回転するには (ID:48827)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
StackOverFlowのコピペ。 Delphi10.2.1 で確認 https://stackoverflow.com/questions/10633400/rotate-bitmap-by-real-angle uses GDIPAPI, GDIPOBJ, GDIPUTIL; procedure TForm1.Button1Click(Sender: TObject); var encoderClsid: TGUID; encoderParameters: TEncoderParameters; transformation: TEncoderValue; Image: TGPImage; path: string; begin Image := TGPImage.Create('input.jpg'); //適当に GetEncoderClsid('image/jpeg', encoderClsid); encoderParameters.Count := 1; encoderParameters.Parameter[0].Guid := EncoderTransformation; encoderParameters.Parameter[0].Type_:= EncoderParameterValueTypeLong; encoderParameters.Parameter[0].NumberOfValues := 1; transformation := EncoderValueTransformRotate270; encoderParameters.Parameter[0].Value := @transformation; path:= extractfilepatH(Application.ExeName); Image.Save(path + 'imageOUT.jpg', encoderClsid, @encoderParameters); Image.Free; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.