Форум программистов, компьютерный форум, киберфорум
Наши страницы
C#: Web, ASP.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
straher
1

Помогите с изображениями в ASP

26.04.2006, 16:14. Просмотров 1224. Ответов 5
Метки нет (Все метки)

Всем доброе утро!

пробема следующего характера...
есть скрипт, строящий график - картинку.

но картинка генерируется размером 320x240...

в чем может быть проблема?

в скрипте полазал, не нашел там нигде этих цифр.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2006, 16:14
Ответы с готовыми решениями:

Помогите перевести скрипт с ASP/VBScript в ASP/JScript
Tekst script'a::: <% dim fs,fo,x set fs=Server.CreateObject('Scripting.FileSystemObject') set...

помогите с RegExp на ASP
помогите разобраться с парсингом страницы. Текст находится между <td width='86%'> и </td> Я...

Помогите настроить asp в IIS 5.0
Никак не могу настроить asp в IIS. Please HELP!

Помогите с обработкой ошибок в ASP!
Проблема такая: у меня есть форма, на которой пользователь задаёт параметры на следующей странице...

Помогите установить ASP на IIS
Уже 3 ДНЯ не могу поставить систему чтобы писать на asp+ С#; Поставил IIS VS.NET 2003, MSDN...

5
bazile
66 / 42 / 68
Регистрация: 15.03.2007
Сообщений: 6,909
26.04.2006, 16:58 2
Код в студию ...
0
straher
26.04.2006, 17:05 3
Цитата Сообщение от bazile
Код в студию ...
<%On Error Resume Next

XSize = CInt(Request.QueryString("XSize"))
YSize = CInt(Request.QueryString("YSize"))



' область графиков
vrX1 = 13
vrY1 = 17
vrX2 = XSize-16
vrY2 = YSize-27

' ширина столбика
Wd = CInt(Request.QueryString("Width"))

AllGraphName = Request.QueryString("grname")
XName = Request.QueryString("xname")
CountGraph = CInt(Request.QueryString("type"))
XMin = CInt(Request.QueryString("min"))
XMax = CInt(Request.QueryString("max"))

Dim GraphName(4)
For i = 1 To CountGraph
GraphName(i) = " "+Request.QueryString("name-"+CStr(i))+" "
Next

Dim XCap(100)
Dim GVal(4, 100)

For i = XMin To XMax
XCap(i) = Request.QueryString("xval-"+CStr(i))
For j = 1 To CountGraph
GVal(j,i) = CLng(Request.QueryString("val-"+CStr(j)+"-"+CStr(i)))
Next
Next

Response.Contenttype="image/jpeg"
Response.Expires=0

Set oGR = CreateObject("shotgraph.image")

oGR.CreateImage XSize,YSize,6

'ЦВЕТА
'№ R G B
oGR.SetColor 0,220,220,220 'цвет фона
oGR.SetColor 1, 0, 0,201 'цвет задней колонки №1
oGR.SetColor 2,255,104, 51 'цвет колонки №2
oGR.SetColor 3, 0, 0, 0 'цвет колонки №3
oGR.SetColor 4, 0, 0, 0 'цвет передней колонки №4
oGR.SetColor 5,100, 0,200 'цвет главной надписи
oGR.SetColor 6, 0, 0, 0 'цвет надписей


' Разриcовываем базу
oGR.SetBgColor 0
oGR.FillRect 0,0,XSize-1,YSize-1

' Главная надпись
oGR.SetTextAlign "TA_CENTER","TA_TOP"
oGR.SetBkMode "TRANSPARENT"
oGR.CreateFont "Arial",204,16,0,True,False,False,False
oGR.SetTextColor 5
oGR.TextOut (XSize-1)2,0,AllGraphName

' Надпись имен графиков
oGR.SetTextAlign "TA_LEFT","TA_BOTTOM"
oGR.SetBkMode "TRANSPARENT"
oGR.CreateFont "Arial",204,12,900,False,False,False,False
sQ = "/"
oGR.GetTextDimensions sQ,xQ,yQ
Dim XYGraphName(2,4)
For i = 1 To CountGraph
oGR.GetTextDimensions GraphName(i), XYGraphName(1,i), XYGraphName(2,i)
Next
xAll=xQ*(CountGraph-1)
For i = 1 To CountGraph
xAll = xAll + XYGraphName(1,i)
Next
yBottom = YSize-(YSize-xAll)2
oGR.SetTextColor CountGraph
oGR.TextOut XSize-2,yBottom,GraphName(CountGraph)
For i = 2 To CountGraph
yBottom = yBottom - XYGraphName(1,CountGraph-i+1)
oGR.SetTextColor 6
oGR.TextOut XSize-2,yBottom,sQ
yBottom = yBottom - xQ
oGR.SetTextColor CountGraph-i+1
oGR.TextOut XSize-1,yBottom,GraphName(CountGraph-i+1)
Next

' Надпись оси Y
oGR.SetTextAlign "TA_RIGHT","TA_TOP"
oGR.SetBkMode "TRANSPARENT"
oGR.CreateFont "Arial",204,12,900,False,False,False,False
oGR.SetTextColor 6
AllMax = 0
For i = XMin To XMax
For j = 1 To CountGraph
If AllMax < GVal(j,i) Then AllMax = GVal(j,i)
Next
Next
oGR.TextOut 1,vrY1,CStr(AllMax)

' Надпись оси X
oGR.SetTextAlign "TA_CENTER","TA_BOTTOM"
oGR.SetBkMode "TRANSPARENT"
oGR.CreateFont "Arial",204,14,0,False,False,False,False
oGR.SetTextColor 6
dX = vrX2 - vrX1
k = 0
For i = XMin To XMax
tX = Int(13 + (k+0.5)*dX/(XMax - XMin + 1))
oGR.TextOut tX,YSize-12,XCap(i)
k = k + 1
Next
oGR.CreateFont "Arial",204,14,0,False,False,False,False
oGR.TextOut XSize2,YSize-1,XName

' Прямоугольник вывода
oGR.SetDrawColor 6
oGR.Rectangle vrX1, vrY1, vrX2, vrY2
For i = 1 To 4
oGR.Line vrX1, vrY1+i*(vrY2-vrY1)5, vrX2, vrY1+i*(vrY2-vrY1)/5
Next

' Рисуем графики
' oGR.SetDrawColor 2
' oGR.Rectangle vrX1+10, vrY1+10, vrX2-10, vrY2-10
' oGR.CreateBrush "BS_SOLID",5,""
' oGR.FillRect vrX1+11, vrY1+11, vrX2-11, vrY2-11

Koeff = (vrY2-vrY1)/(AllMax*1.01)

bazile
66 / 42 / 68
Регистрация: 15.03.2007
Сообщений: 6,909
26.04.2006, 17:14 4
Размеры задаются в этой строке
oGR.CreateImage XSize,YSize,6
Переменные же XSize,YSize берутся из строки запроса
XSize = CInt(Request.QueryString("XSize"))
YSize = CInt(Request.QueryString("YSize"))
Соответственно тебе надо передать нужный размер картинки при вызове asp файла.
0
straher
26.04.2006, 21:11 5
Цитата Сообщение от bazile
Размеры задаются в этой строке
oGR.CreateImage XSize,YSize,6
Переменные же XSize,YSize берутся из строки запроса
XSize = CInt(Request.QueryString("XSize"))
YSize = CInt(Request.QueryString("YSize"))
Соответственно тебе надо передать нужный размер картинки при вызове asp файла.
да про это дело я и сам допер...
но вот в строке передаются значения 600 и 250...

а вот скрипт генерит только 320 на 240, причем изображение получается как будто обрезанное...

быть может причина в Microsofte? может быть стоит какая-то простенькая библиотека для работы с изображениями, не позволяющая генерировать картинки размерами выше 320х240?
bazile
66 / 42 / 68
Регистрация: 15.03.2007
Сообщений: 6,909
26.04.2006, 21:20 6
Microsoft здесь ни при чем. По моему компонент shotgraph.image у тебя незарегистрированный. На сайте прозводителя - http://www.shotgraph.com/download.htm - сказано, что в незарегистрированной версии размер картинки не может превышать 320x240.
0
26.04.2006, 21:20
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2006, 21:20

Помогите в разработки чата на asp
Чат полностью написан на asp http://center.km.ru НО есть проблемма: Как сделать на чтобы при...

Помогите! Не запускаются ASP под IIS
Срочно нужно ASP изучить, поставил IIS (WinXP). Html загружается, а ASp файлы выдают ошибку: Server...

Помогите нарисовать график используя ASP
Много раз извиняюсь за свою некомпетентность. Если у кого есть время помогите пожалуйста построить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru