powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Серверный компанент для ASP на VB
1 сообщений из 1, страница 1 из 1
Серверный компанент для ASP на VB
    #33493097
EgoDuh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Задача в следующем написать для ASP серверный компанент который может загружать картинки и пережимать их.
С задачей загрузки всё хорошо. Нов вот с пережатием картинки под новые размеры не выходит.

Пытался пережать картинку с помощью двух API а в именно:
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function SetStretchBltMode Lib "gdi32" (ByVal hdc As Long, ByVal hStretchMode As Long) As Long

Картинка у меня хранится в бинарном массиве. Я ей переделываю в StdPicture =>Dim I As StdPicture
Два PictureBox у меня распологаются на форме.
В один я передаю реальную картинку "Form1.Picture1.Picture=I"

Потом вызываю API:
Сall SetStretchBltMode(Form1.Picture2.hdc, STRETCHMODE)
Call StretchBlt(Form1.Picture2.hdc, 0, 0, 200, 200, Form1.Picture1.hdc, 0, 0, 100, 100, vbSrcCopy)

пробую протестить написаное... запускаю выполнение ASP стрраницы... запускаю загрузку... и IIS выдайт ошибку.

Ради интереса написал то же самое в обычном проекте EXE
Запустил и всё работает... Хотя всё анологично делал.Так же бинарный массив... и те же API
Кто знает в чём дело? и как это обойти.
...
Рейтинг: 0 / 0
1 сообщений из 1, страница 1 из 1
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Серверный компанент для ASP на VB
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]