掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Delphi+ImageMagick (ID:34103)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> M:=TMemoryStream.Create; > M.Clear; > M.Write(PByteA^,Cardinal(PC^)); > M.Position:=0; > BitMap:=TBitMap.Create; > BitMap.LoadFromStream(M); > Form1.Image1.Picture.Graphic := Bitmap; > M.Free; > BitMap.Free; これは、もうチョット簡単なコードになるかな？ type _TStream = class(TCustomMemoryStream); var ms: TMemoryStream; PB: PByte; C: Cardinal; ..... begin ..... PB := MagickGetImageBlob(wand, @C); ms := TMemoryStream.Create; _TStream(ms).SetPointer(PB, C); Image1.Picture.BITMAP.LoadFromStream(ms); ms.Free; end; JPGの場合、 Jpeg:=TJpegImage.Create; ms := TMemoryStream.Create; _TStream(ms).SetPointer(PB, C); Jpeg.LoadFromStream(ms); Image1.Picture.Assign(Jpeg); ms.Free; Jpeg.Free;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.