Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 SYSTEM.APP  [new]
Valerii
Member

Откуда:
Сообщений: 719
Народ,
где мне найти SYSTEM.APP ( идет вместе с библиотекой gdiplus) файл?
Все перерыл. Помогите найти,он очень нужен для обработки графических файлов.
Всем спасибо.
20 авг 19, 01:06    [21953000]     Ответить | Цитировать Сообщить модератору
 Re: SYSTEM.APP  [new]
Dima T
Member

Откуда:
Сообщений: 14114
Нет такого файла в дистрибутиве VFP9
20 авг 19, 08:00    [21953046]     Ответить | Цитировать Сообщить модератору
 Re: SYSTEM.APP  [new]
Valerii
Member

Откуда:
Сообщений: 719
Dima T,
Добрый день,
В сети есть пару примеров в которых есть ссылка на это файл.
Вот один из них. Он как раз мне и нужен.

+

*1*
*convert and resize any picture with gdiplusX with preserving Ratio or no

Local m.yrep
m.yrep=Addbs(Justpath(Sys(16,1)))


Do Locfile("system.app","app")



Local m.xpict
m.xpict=Getpict()
If Empty(m.xpict)
Return .F.
Endi
Local m.oo,mw0,m.h
m.oo=Newobject("image") &&get original dimensions of this image (native vfp)
m.oo.Picture=m.xpict
m.w0=m.oo.Width
m.h0=m.oo.Height
m.oo=Null


Local m.x
m.x=Inputbox("SAve as: PNG,JPG,BMP,GIF,ICO","","PNG") &&convert to...
If Empty(m.x) Or !Inlist(Upper(m.x),"PNG","JPG","BMP","GIF","ICO")
Return .F.
Endi
m.x=Upper(m.x)

Local xdim
m.xdim=Inputbox("format Widthxheight","","640x480") &&resize to this format wxh
m.xdim=lower(m.xdim)
Local m.w,m.h
If Empty(m.xdim) Or !"x"$ m.xdim
m.w=m.W0
m.h=m.h0
Else &&extract wanted dimensions of the converted image
m.w=Strextract(m.xdim,'',"x")
m.h=Strextract(m.xdim,"x","")
Endi



Local m.preserveRatio
m.preserveRatio=Inputbox("preserve ratio image ? : yes -no","","no")
If Empty(m.preserveRatio) Or !Inlist(Lower(m.preserveRatio),"yes","no")
m.preserveRatio="no"
Endi

m.w=Int(Val(m.w))
m.h=Int(Val(m.h))

If m.preserveRatio="yes"
m.h=Int(m.h*m.w0/m.h0)
Endi

If m.w=0 Or m.h=0
Return .F.
Endi

Local loBMP,loBMP1 As fxcBitmap

With _Screen.System.drawing
loBMP=.Image.fromfile(m.xpict)

Local m.lcdest
m.lcdest=m.yrep+"yconverted"+"."+m.x

loBMP1=.Bitmap.new(m.w,m.h)
logfx= .Graphics.FromImage(loBMP1)
&&working with smoothless & high quality drawing
LOGFX.smoothingmode = .drawing2d.smoothingmode.highquality
LOGFX.interpolationmode = .drawing2d.interpolationmode.highqualitybicubic
LOGFX.pixeloffsetmode = .drawing2d.pixeloffsetmode.highquality
logfx.Clear(.Color.white)
logfx.drawImage(loBMP,0,0,m.w,m.h)

Do Case
Case m.x=="PNG"
loBMP1.Save(m.lcdest,.imaging.imageformat.PNG)
Case m.x=="JPG"
loBMP1.Save(m.lcdest,.imaging.imageformat.JPEG)
Case m.x=="BMP"
loBMP1.Save(m.lcdest,.imaging.imageformat.BMP)
Case m.x=="GIF"
loBMP1.Save(m.lcdest,.imaging.imageformat.GIF)
Case m.x=="ICO"
loBMP1.Save(m.lcdest,.imaging.imageformat.ICON)
Endcase

Endwith

Run/N explorer &lcdest &&show the converted/resized image with explorer
retu



Без него потом не отрабатывется _Screen.System.drawing...
Спасибо за ответ.
20 авг 19, 08:40    [21953055]     Ответить | Цитировать Сообщить модератору
 Re: SYSTEM.APP  [new]
Dima T
Member

Откуда:
Сообщений: 14114
Я так понимаю это из проекта VFPPAINT. Попробуй тут скачать.
20 авг 19, 08:54    [21953058]     Ответить | Цитировать Сообщить модератору
 Re: SYSTEM.APP  [new]
Sergey Sizov
Member

Откуда:
Сообщений: 1449
Valerii
SYSTEM.APP ( идет вместе с библиотекой gdiplus) файл?
Кто это вам такую чушь сказал?
Все перерыл.
Прямо всё?
Помогите найти,он очень нужен для обработки графических файлов.
Он нужен не для обработки графики, а для той системы, которая обрабатывает графику. Вот в той системе и надо искать. Ибо сей файл в каждой системе может быть совершенно свой и он никогда не был чем-то системным и и общеупотребительным.
20 авг 19, 09:00    [21953061]     Ответить | Цитировать Сообщить модератору
 Re: SYSTEM.APP  [new]
Valerii
Member

Откуда:
Сообщений: 719
Dima T
Я так понимаю это из проекта VFPPAINT. Попробуй тут скачать.
ссылка не открывается
20 авг 19, 17:24    [21953690]     Ответить | Цитировать Сообщить модератору
 Re: SYSTEM.APP  [new]
Dima T
Member

Откуда:
Сообщений: 14114
Valerii
Dima T
Я так понимаю это из проекта VFPPAINT. Попробуй тут скачать.
ссылка не открывается

Открывается, но долго. Пробуй в разное время или гугли VFPPAINT, может еще где лежит
20 авг 19, 20:06    [21953786]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить