Вверх ↑
Разработчик
Ответов: 26067
Рейтинг: 2121
#1: 2017-02-03 02:32:59 ЛС | профиль | цитата
Можно использовать новый штатный компонент Img_GDIFileProcessor. Он позволяет из картинок вытаскивать их эскизы.

Схема


Add(MainForm,2953706,98,77)
{
Width=229
Height=245
Position=1
}
Add(Image,4537805,259,119)
{
Left=10
Top=10
Width=195
Height=150
}
Add(Img_GDIFileProcessor,2381384,203,112)
{
Saveformat=2
Quality=95
ThumbnailSize=100
Point(onGetThumb)
Point(FrameCount)
Point(doGetThumbFrom)
link(onGetThumb,4537805:doLoad,[])
}
Add(Button,5309113,98,126)
{
Left=45
Top=170
Width=120
TabOrder=-1
Ctl3D=0
WinStyle=1
Caption="GetThumbFromFile"
link(onClick,9379140:doExecute,[])
}
Add(ODialog,9379140,147,126)
{
Filter="All Image Files|*.bmp;*.gif;*.ico;*wmf;*.emf;*.tif;*.png;*.jpg;*.jpeg|BMP (*.bmp)|*.bmp|JPG (*.jpg, *.jpeg)|*.jpg;*.jpeg|GIF (*.gif)|*.gif|TIFF (*.tif)|*.tif|PNG (*.png)|*.png|ICO (*.ico)|*.ico|EMF (*.emf)|*.emf|WMF (*.wmf)|*.wmf|All files (*.*)|*.*"
FileName=""
link(onExecute,2381384:doGetThumbFrom,[])
}
карма: 22

1
Голосовали:Sersey