Вопрос 2 Tyomitch :( о GDI +

[ALX_2002]

К твоей чудообрётке GDI+ можно обратиться таким образом ?

1) Указать файл рисунка
2) Сжать его по высоте и ширине
3) Выдать в виде потока

Если да, то мне ООООЧЕНЬ нужна твоя GDI+

P.S Извиняюсь за личный вопр, знаю, что админы этого не одобряют.

[GSerg]

Эээээ....
createimage("path").getthumbnailimage(x,y).savejpegtomemory

http://mix.web.ur.ru/jpeg.zip

[tyomitch]

1, 2. Да.
3. Что значит - "в виде потока"? IStream? можно.

[edit]GSerg, большое спасибо за скоростную поддержку! [/edit]

[ALX_2002]

Гут !!! Пашет - паааасиба.

P.S Был бы ты женского пола, расцеловал бы !!!

[ALX_2002]

Тока мне нуно через CreateObject

[GSerg]

Чё тя смущает?

with createobject("prjGDIplus.Global")
...
end with

[ALX_2002]

Пасиб. Тока что и сам нашёл - по форуму

[ALX_2002]

Хм... Всё равно не пашёт....

Код: Выделить всё

<%
Response.Contenttype="image/jpeg"

Set GDI = CreateObject("prjGDIPlus.Global")

GDI.Createimage("C:\SERVER\DOWNLOAD\NEW\ws2003.jpg").getthumbnailimage 100,100

Response.binaryWrite результат

Set GDI=Nothing
%>



tyomitch - отец - подскажи, как считав файл и сделав его меньше дальше вернуть как данные, которые можно будет прописать через BinaryWrite ?

[GSerg]

savejpegtomemory не ага?
Или сразу savetofile?
И чё это за странный способ возвращения результата?..

[ALX_2002]

В кратце - я генерю изображение на странице

В странице 1.htm есть строка например так <IMG src="1.asp">, а

внутри 1.ASP

прописано Mime type="image\jpg"

Таким образом я возвращаю в IMG src= сформиированное

изображение

Но воть с ентой GDI+ чё то никак не соображу как заюзать

[tyomitch]

ALX_2002, наверное надо так?

Код: Выделить всё

<%
Response.Contenttype="image/jpeg"

Set GDI = CreateObject("prjGDIPlus.Global")

GDI.CreateImage("C:\SERVER\DOWNLOAD\NEW\ws2003.jpg").GetThumbnailImage(100,100).SaveToJpegToMemory результат

Response.binaryWrite результат

Set GDI=Nothing
%>

GSerg, способ возвращения результата самый нормальный

[ALX_2002]

Ошибка выполнения Microsoft VBScript (0x800A01B6)
Объект не поддерживает это свойство или метод: 'GDI.Createimage(...).getthumbnailimage(...).jpegtomemory'
/download/new/2.asp, line 7

Код: Выделить всё

<%
Dim RES
Response.Contenttype="image/jpeg"

Set GDI = CreateObject("prjGDIPlus.Global")

RES = GDI.Createimage("C:\SERVER\DOWNLOAD\NEW\ws2003.jpg").getthumbnailimage(100,100).savejpegtomemory

Set GDI=Nothing
%>


[ALX_2002]

Хорошо.... быть.... тупым.... подумал я

2 Tyomitch - У тебя ICQ есть ?

[tyomitch]

Да не так! Не

Код: Выделить всё

RES = GDI.Createimage("C:\SERVER\DOWNLOAD\NEW\ws2003.jpg").getthumbnailimage(100,100).savejpegtomemory

, а

Код: Выделить всё

GDI.CreateImage("C:\SERVER\DOWNLOAD\NEW\ws2003.jpg").GetThumbnailImage(100,100).SaveToJpegToMemory RES

Ещё, там SaveToJpegToMemory (у тебя описка)

[ALX_2002]

Ага. Я тож нашёл... Тока терь пишет несоответствие типа RES

Там BYTE надо подсовывать, а у меня VARIANT, т.к в я в ASP делаю...

Cbyte пробывал сделать - непомогло

[GSerg]

Гы-гы-гы...
Ну чё, будем tlb переэтывать?

[tyomitch]

Я щас её перекомпилирую и выложу... Stay tuned

[ALX_2002]

2 Tyomitch: Ух ! Это.... Типа спасибо.... Для меня ещё такого никто никогда не делал....

[tyomitch]

Выложил новую версию, вместе с примером использования, на http://mix.web.ur.ru/JPEG.zip .
Добавленная функция Image::SaveToJpegToMemoryVar возвращает байтовый массив в виде варианта.

[ALX_2002]

УРАА ! ПАСИБААА ! ОТЕЦ ! Я ТЕ ОБЯЗАН !

[ALX_2002]

Да, ещё хотел узнать. Если я указываю ширину эскиза 100, а высоту мне надо подсчитать автоматически, то мне нужно это делать так ?

WIDTH=GDI.CreateImage("C:\SERVER\DOWNLOAD\NEW\ws2003.jpg").width
HEIGHT=GDI.CreateImage("C:\SERVER\DOWNLOAD\NEW\ws2003.jpg").height

И считать H=(HEIGHT*100)/WIDTH и W=(WIDTH*100)/HEIGHT ?

Или там есть подсчёт автоматом ?

[tyomitch]

Автоматом нету.
Делай 100 * (Image.Height / Image.Width)
т.е.

Код: Выделить всё

Dim i
Set i = GDI.CreateImage("C:\SERVER\DOWNLOAD\NEW\ws2003.jpg")
результат = i.GetThumbnailImage(100, 100 * i.Height / i.Width).SaveToJpegToMemoryVar


[ALX_2002]

Усёк - всё пашет. Пасиба ещё раз громадное