:: Встречи лисоводов
Фотки конфы
piva

Сообщений: 18655
Откуда: Курган
Дата регистрации: 24.03.2004
Сколько мог натолкал - остальное загружайте - я опубликую и разпихаю

www.foxclub.ru


------------------
Часто бывает так, что есть над чем задуматься, а нечем.




Исправлено 1 раз(а). Последнее : piva, 28.05.07 11:40
Ratings: 0 negative/0 positive
Re: Фотки конфы
PaulWist

Сообщений: 14601
Дата регистрации: 01.04.2004
Хорошо, как буд-то сам побывал.


------------------
Есть многое на свете, друг Горацио...
Что и не снилось нашим мудрецам.
(В.Шекспир Гамлет)
Ratings: 0 negative/0 positive
Re: Фотки конфы
Snick

Сообщений: 5949
Откуда: Москва
Дата регистрации: 21.05.2001
Во, до чего же здорово!


------------------
www.sngsnick.com

Ratings: 0 negative/0 positive
Re: Фотки конфы
piva

Сообщений: 18655
Откуда: Курган
Дата регистрации: 24.03.2004
ЗдОрово, не то слово, сам виноват что не приехал


------------------
Часто бывает так, что есть над чем задуматься, а нечем.
Ratings: 0 negative/0 positive
Re: Фотки конфы
Snick

Сообщений: 5949
Откуда: Москва
Дата регистрации: 21.05.2001
"...вероятно такая судьба"


------------------
www.sngsnick.com

Ratings: 0 negative/0 positive
Re: Фотки конфы
sphinx

Сообщений: 31166
Откуда: Каменск-Уральски
Дата регистрации: 22.11.2006
Завтра и я выложу фотки за 26 число. Описание есть, будут и слайды!


------------------
"Veni, vidi, vici!"(с)
Ratings: 0 negative/0 positive
Re: Фотки конфы
Snick

Сообщений: 5949
Откуда: Москва
Дата регистрации: 21.05.2001
Бум ждать!


------------------
www.sngsnick.com

Ratings: 0 negative/0 positive
Re: Фотки конфы
piva

Сообщений: 18655
Откуда: Курган
Дата регистрации: 24.03.2004
Саня, только сообщи тут когда выложишь, а то мне не очень удобно постоянно там сидеть


------------------
Часто бывает так, что есть над чем задуматься, а нечем.
Ratings: 0 negative/0 positive
Re: Фотки конфы
Равиль
Автор

Сообщений: 6547
Откуда: Уфа
Дата регистрации: 01.08.2003
Ну вот добрался до снимков - те, что оставили на моем ноуте - более 700 фото ...
Как их махом сжать до 640х480 ? Не вопрос - еще в Уфе решили с помощью класса Славы Клепинина
Накидал на коленке:

m.lcStartDir = Justpath(Sys(16))
Set Default To (m.lcStartDIR)
m.loGDI = Newobject('GdiPlus','GdiPlus.PRG')
m.lcDir = Getdir("","","Откройте папку с картинками")
If Empty(m.lcDIR)
Return
Endif
Set Default To (m.lcDIR)
m.lnJPG = Adir(aJPG,"*.JPG")
If Empty(m.lnJPG)
Return
Endif
For m.i=1 To m.lnJPG
Wait Window "Обработка картинок ... "+Transform(m.i) Nowait
m.lcFile = aJPG(m.i,1)
With loGDI
.LoadFromFile(m.lcFile)
m.H = .ImageHeight()
m.B = .ImageWidth()
If m.b>640
.CopyToFile(Sys(2015)+".jpg",100,640,480, 7)
Endif
Endwith
Next
Wait Window "Усе! " Nowait
Set Default To (m.lcStartDIR)
Здесь нет проверки на то, что снимок "повернули" и предполагается, что он еще не обрезан и пропорционален.
Осталось только выложить ... отберу штук 200 и вперед


------------------
Тяжело согнать курсором муху с монитора ...
Ratings: 0 negative/0 positive
Re: Фотки конфы
vivachek

Сообщений: 29
Дата регистрации: 01.01.2005
Обидна мене, досадно!
Да ладно... .

Вы там вместе собрались,
И вернулися.
Мы слезами облились,
Облизнулися.


------------------
В KOI то веки!
Ratings: 0 negative/0 positive
Re: Фотки конфы
Vladimir Sklyar

Сообщений: 1397
Дата регистрации: 13.06.2002
Равиль
Ну вот добрался до снимков - те, что оставили на моем ноуте - более 700 фото ...
Как их махом сжать до 640х480 ? Не вопрос - еще в Уфе решили с помощью класса Славы Клепинина
Накидал на коленке:

Ух-ты, прикольно (я про кусок кода). Нада все таки выделить время и дочитать книжку, благо 3 экземляра были доставлены из Москвы для мну и еще пары хороших программеров

PS ждем фотки


------------------
С уважением Владимир.
Ratings: 0 negative/0 positive
Re: Фотки конфы
Равиль
Автор

Сообщений: 6547
Откуда: Уфа
Дата регистрации: 01.08.2003
Vladimir Sklyar
... PS ждем фотки
Выложили с админом - извините - все в общей куче и похоже некоторые лежат на боку - профилактика остеохондроза


------------------
Тяжело согнать курсором муху с монитора ...
Ratings: 0 negative/0 positive


Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 3 (Гостей: 3)

© 2000-2024 Fox Club 
Яндекс.Метрика