Сохранение в JPG

[_Мика_]

САБЖ


ЗЫ savetojpg.dll просьба не предлагать

Спасибо

[Sedge]

ЗЫ savetojpg.dll просьба не предлагать

Тогда, имхо, - никак

[GSerg]

Тёмыч... Ну, это... Ну, ты понял

[Sedge]

А что, есть варинаты?

[GSerg]

Эх... Снова отнимать радость постинга у человека?.. Ну ладно, раз его нет, тогда я

http://bbs.vbstreets.ru/viewtopic.php?t=12116

[Sedge]

Так ведь автор же написал "DLL не предлагать".

[_Мика_]

Я не тож то "dll не предлогать" а SaveToJpg.dll не предлогать!

[Александр80]

Простите меня, что не по теме. Прошу загляните сюда:
http://bbs.vbstreets.ru/viewtopic.php?t=12291

[_Мика_]

НЕ ФЛУДИ

Че-то не фурычит

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

Private Sub Command1_Click()
Form1.Print StrConv(CreateBitmapFromPicture(Picture1.Picture).SaveToJpegToMemoryVar(80), vbUnicode)
End Sub


Run-time error '429':

AxtiveX component can't create object
[/code]

[GSerg]

Ну ваще

Библу зарегистрируй (раз) и другие функции зацени (два). А то взял пример из другой области

[Max!]

Ты зарегестрируй его в системе (DLL зарегестрируй) , и всё пойдёт !

[Max!]

Упс ! Я апоздал !

[_Мика_]

ээээ

Интересно, я не дурак, я проверил в реферанс, он был зарегистрирован, и даже функции другие пробовал, а щас попробовал еще раз, и получилось

Спасибо

И еще, а её можно через createobject грузить, чтоб на другом компе шло?

[_Мика_]

Вот попробовал так

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

CreateObject(App.Path & "\GDI+.dll").CreateBitmapFromPicture(Picture1.Picture).SaveToJpeg "C:\1.jpg", 100


Не получилось

[hCORe]

Надо делать как-нибудь так:

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

Dim objGDI As Object
Set objGDI = CreateObject("Проект.Класс")
objGDI.CreateBitmapFromPicture(Picture1.Picture).SaveToJpeg "C:\1.jpg", 100

где вместо "Проект.Класс" подставлено конкретное значение

[Max!]

Можно через CreateObject , толко на другом компе опятьже регистрировать надо , попробуй так

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

Private Declare Function DllRegisterServer Lib "Имя дллшки" () As Long
Private Declare Function DllUnregisterServer Lib "Имядллшкиl" () As Long

Const ERROR_SUCCESS = &H0


Должно пойти и на другом компе !

С наступающим тебя новым годом !

[hCORe]

Вот, так грузится динамически:

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

Private Sub GraphLoad()
On Error Resume Next
    Dim Data() As Byte
    Dim objA As Object
    Err.Clear
    Set objA = CreateObject("prjGDIplus.Global")
    If Err <> 0 Then MsgBox "GDI Plus Lib Not Installed!" : Exit Sub
    objA.CreateBitmapFromPicture(Picture1.Picture).SaveToJpegToMemory Data(), 100
    Form1.Print StrConv(Data, vbUnicode)
    'не забываем произвести деинициализацию
    Set objA = Nothing
End Sub

[Amed]

[offtop]Трудно быть тобом...[/offtop]

А какое имя объекта у GDI+? (Вопрос к tyomitch)

[Max!]

Влюбом случае придётся делать регистрацию ! А то будет ошибка типо "Can't Create Object"

[hCORe]

Отвечу я... prjGDIplus - имя проекта, и, соответственно, имя класса - prjGDIplus.Global (для глобальных членов класса) - выяснено эмпирическим путём

[Amed]

О, плин! ))))


Я написал то же самое, но с ошибкой: prjGIDplus.Global ))
Ещё удивляюсь, почему ничего не работает :/

[_Мика_]

Max! спасибо ща буду пробовать