名前
題名
▼ MrXRAYさん > ▼ Saraさん > > メモリリークが発生する状況を作成できないので， > > > http://blog.sina.com.cn/s/blog_8f0719470100zd39.html > > の修正コードだけをコピペしてやってみました． > usesにWincodec, ActiveXが必要でした． > > procedure TForm1.Button3Click(Sender: TObject); > var > WICImage : TWICImage2; //これ... > Mem : TMemoryStream; > begin > if not OpenDialog1.Execute then exit; > > WICImage := TWICImage2.Create; > Mem := TMemoryStream.Create; > try > WICImage.LoadFromFile(OpenDialog1.FileName); > WICImage.SaveToStream(Mem); > Mem.Position := 0; > Image1.Picture.Bitmap.LoadFromStream(Mem); > finally > Mem.free; > WICImage.Free; > end; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link