citysoft » 30.03.2009 (Пн) 10:04
Добрый день!
Получилось ! Спасибо всем!
Вот что мне дали.
Private Declare Sub SaveToJpg1 Lib "c:\savtojpg.dll" (ByVal hgd As Long, ByVal FileName As String, ByVal Height As Long, ByVal Width As Long)'для PictureBox
Private Declare Sub SaveToJpg2 Lib "c:\savtojpg.dll" (ByVal hgd As Long, ByVal FileName As String, ByVal Height As Long, ByVal Width As Long)
Private Declare Sub Bmp2Jpg Lib "c:\savtojpg.dll" (ByVal f1 As String, ByVal f2 As String)'для файлов
Если утилита savtojpg.dll не в корне "c:\", путь надо переписать путь
Вызов:
SaveToJpg1 Picture1.hDC, CD1.FileName, Picture1.ScaleHeight, Picture1.ScaleWidth
Picture1.ScaleMode=3 (Pixel) или Picture1.ScaleHeight / Screen.TwipsPerPixelX, Picture1.ScaleWidth / Screen.TwipsPerPixelY
Но есть несколько вопросов:
Что делает функция SaveToJpg2 ?
Если SaveToJpg без номера работает, но странно - может это какой-то полезный режим ?
И еще:
Захотел тоже с GIF
В инете нашел упоминание аналогичной утилиты SaveToGIF, но самой утилиты не нашел. Если кто знает где напишите.