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;