喫茶XRAYトップページ
[
スレッド全体
]
[1398]
画像のサムネイル表示
返信
削除
2007/8/31 (金) 19:12:37
Mr.XRAY
▼ Syakeさん
なんか私のレスに惑されることになってしまったようですね。
過去に挫折した経験があるので、機会があればSyakeさんのコードを
拝借し、挑戦してみたいと思っています。
画像に限らず、サムネイルの表示は難しそうです。数個程度なら速度は気に
する必要はなさそうですが、数が多くなると。
やはり速度はほしいですからね。
[1454]
Re:画像のサムネイル表示
返信
削除
2007/11/15 (木) 19:47:21
Mr.XRAY
▼ Syakeさん
> 過去に挫折した経験があるので、機会があればSyakeさんのコードを
> 拝借し、挑戦してみたいと思っています。
自前でサムネイル表示に挑戦しようと思いやってみました．
nanaさんのDLしたら，あれっ?!
「インデックスが範囲を...」
で，Syakeさんのコードでやってみました．表示されました．
これから時間をみて，少しずついろいろやってみようと思います．
※ nanaさんのとは，以下のものです．
http://
www1.
cncm.
ne.
jp/~
ogawate/
delphi/
samples/
thumbnai
l/
08.
html
動作確認環境 WindowsXP(SP2) + Delphi7 Pro
[1455]
Re2:画像のサムネイル表示
返信
削除
2007/11/16 (金) 15:57:02
Syake
▼ Mr.XRAYさん
> ※ nanaさんのとは，以下のものです．
>
http://
www1.
cncm.
ne.
jp/~
ogawate/
delphi/
samples/
thumbnai
l/
08.
html
私の場合、TStringListの多用はメモリーを多く消費すると言う事を
どこかで見ましたのでそこら辺からとりかかりました。
それと、サムネイルをファイルに保持して高速化を図りました。
って、聴こえは良いですが実のところ画像が追加された場合が面倒な
ので中途半端で終わっちゃってます(^_^;)
[1457]
Re3:画像のサムネイル表示
返信
削除
2007/11/24 (土) 10:32:16
Mr.XRAY
▼ Syakeさん
> 私の場合、TStringListの多用はメモリーを多く消費すると言う事を
そうですね．確かにPCのリソースが少ない時代は．私，多用しています．
今はメモリも豊富ですし... (^_^)
で，エクスプローラの[縮小版]機能のサムネイルのサンプル作成しました．
http://
homepage
2.
nifty.
com/
Mr_XRAY/
Delphi/
plSample
s/
T_ExplTh
umbnail.
htm
(1) XPMan使用時の問題
OnData内でItemを操作すると[インデックス...]となるようです．
(2) スレッド使用時に縮小画像のビットマップがnilになる問題
同一スレッド内に，この縮小画像取得のコード(特にIMalloc関係)を
記述すると取得可能となるようです．
ということのようです．
例によって細かい動作仕様(バグ?)と，誤字脱字はご容赦下さいませ．
[1458]
Re4:画像のサムネイル表示
返信
削除
2007/11/24 (土) 10:37:18
Mr.XRAY
> そうですね．確かにPCのリソースが少ない時代は．私，多用しています．
> 今はメモリも豊富ですし... (^_^)
TList関係で文字列を扱うと，当然同じ意味でリソースを喰うのではない
かと思われます．
サムネイルのサンプルでも，TComponentListを使用していますので，
TListよりもリソース使いますね．(^_^;
まっ，動けば正義ということで...
[1459]
Re3:画像のサムネイル表示
返信
削除
2007/11/24 (土) 11:18:54
Mr.XRAY
▼ Syakeさん
> って、聴こえは良いですが実のところ画像が追加された場合が面倒な
サポートしました．
http://
homepage
2.
nifty.
com/
Mr_XRAY/
Delphi/
plSample
s/
T_ExplTh
umbnail.
htm#
03
のリスト3で，btnRefreshボタンが[最新の情報に更新]用です．
メソッド名は，RefreshThumbnailList です．
このメソッドでは，まず存在しない(削除されている)ファイルを検索し，
次にリストにないファイルを追加しています．
描画自体は追加ファイル分のみですので，時間がかかるのはこの追加分
だけです．もっとも，追加分が多いと... (苦笑)
(検索しながら削除，追加でもいいんですが...)
[1460]
Re4:画像のサムネイル表示
返信
削除
2007/11/29 (木) 16:49:42
Syake
▼ Mr.XRAYさん
ListView1CustomDrawItem
FileName := FThumbList.Items[Item.Index].FileName;
TextRect := Item.DisplayRect(drLabel);
DrawText(Canvas.Handle,PChar(FileName),-1,TextRect,DT_CENTER);
end;
[1461]
Re5:画像のサムネイル表示
返信
削除
2007/11/29 (木) 17:01:49
Syake
▼ Mr.XRAYさん
間違えて送信してしまいましたm(__)m
見ぬ間に激進ですね。
さすがでございます。
>サポートしました．
>
http://
homepage
2.
nifty.
com/
Mr_XRAY/
Delphi/
plSample
s/
T_ExplTh
umbnail.
htm#
03
勉強させていただきますです。
[
▼次のスレッド
]
INCM/CMT
Cyclamen v3.82