Создание ScreenShot и автоматическая отправка на E-Mail & FTP через ProxyServer

[Developer]

Привет всем!

Для получения обратной связи от клиентов необходимо автоматическое создание ScreenShot и автоматическая отправка на E-Mail & FTP через ProxyServer.

Необходимо решение в коде Clarion

Прошу помощи, возможно, есть готовое решение

[kreator]

Сразу так много. Пока народ думает давать/не давать готовое решение, даю идеи. Отправка через ClaRunExt. Работа со скриншотом - http://forum.ixbt.com/topic.cgi?id=26:41407. Можно для начала попробовать поиграться с функцией Clipboard().

[finsoftrz]

Я делаю скриншот в bmp с помощью класса Андрея Мялина. Есть в файловом архиве на этом форуме. Отправка по электронной почте делаю через smtplib, тоже есть в архивах. Эта библиотека не будет работать при отправке через почтовые сервисы, требующие поддержки ssl. В этом случае проще всего, на мой взгляд, приспособить curlib (есть целая тема на этом форуме). Предварительно картинку лучше архивировать через zlib. А по ftp - это класс Юры Философова проще всего использовать, тоже есть в файловом архиве (для zlib аналогично).
Все как бы есть в исходниках на этом сайте, остается только собрать решение, в котором могут уже быть частные нюансы...

[Игорь Столяров]

Привет ! Если нет желания травмировать мозг изучением
WinAPI в послепраздничный день - то можно сделать снимок экрана
через библиотеку FreeImage:

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

CapScreen            PROCEDURE  (hWindow_)                 ! Declare Procedure
Loc:SaveFile         STRING(255)                           !
Loc:Text             STRING(120)                           !
theImage    cfiImageControl

Window WINDOW,AT(,,1,1),SYSTEM,GRAY,MDI
       region,AT(0,0),USE(?ImageControl),FULL
     END
     
  CODE
  Open(Window)
  Window{Prop:Hide} = True

  If theImage.iImageControl.Init(?ImageControl) <> False

     theImage.iImage.CaptureScreen(Int(hWindow_))
     theImage.iImage.SetSaveOption(JPEG_QUALITYSUPERB)

     Loc:SaveFile = Clip(GetRAMPath()) & Clip(GetGUID()) & '.jpg' !'.bmp'
     If Exists(Clip(Left(Loc:SaveFile))) then Remove(Clip(Left(Loc:SaveFile))).

     If theImage.iImage.SaveAs(Clip(Left(Loc:SaveFile))) = False
        Message(' Ошибка при сохранении файла с изображением: ' & Clip(LongPath(Loc:SaveFile)),'Сообщение',Icon:Exclamation,'&1. Закрыть')
        Display
     else
        Loc:Text = 'Снимок экрана от ' & Clip(Left(Format(GetCurDate(),@d06.))) & ' г. (' & Clip(Left(Format(Clock(),@t04))) & ')'
        !If ImageCard(Loc:SaveFile,Loc:Text,True,0,0,0). это просто просмотр файл с картинкой
     end

     If (Clip(Left(Loc:SaveFile)) <> '') and Exists(Clip(Left(Loc:SaveFile))) then Remove(Clip(Left(Loc:SaveFile))).
  end

  Close(Window)

Что касается фантазий с отправкой почты - то вообще нет проблем.
Можно, как написали ранее средствами ClaRunExt, можно через Catalyst Socket Tools.
И там и там, прокси поддерживается ....

[Developer]

Kreator, Finsoftrz, Игорь Столяров спасибо за конкретную помощь!

Согласен, задача состоит из трех независимых между собой решений, которые необходимо собрать и протестировать у конечных пользователей.

Подскажите, пожалуйста, кто работает с ScreenShot-ами - уведомляете ли Вы своих пользователей об их создании и отправке?

Вдогонку - есть ли способы видеозахвата а не только ScreenShot по типу записи сеанса TeamViewer и возможна ли реализации на Clarion?

Были ли негативные претензии при использовании и передачи ScreenShot от пользователя?

Необходимо ли уведомлять об этой функции программы в лицензионном соглашении?

Заранее благодарю за отклик и помощь!

[gopstop2007]

Были ли негативные претензии при использовании и передачи ScreenShot от пользователя? Необходимо ли уведомлять об этой функции программы в лицензионном соглашении? Заранее благодарю за отклик и помощь!

Всё то, что Вы писали сюда, кому то все скрины пришли раньше нас. Если как сообщение(скин) об ошибке и с правом выбора для пользователя, то один момент. Если скины для своих целей - посадят шЮтка...

[Игорь Столяров]

Почему шутка ? Все абсолютно верно. Любой контент, произведенный на компьютере пользователя - является
объектом авторского права, а передача этой информации без ведома пользователя классифицируется как кража.
Также есть отдельная статья за разработку программ для ЭВМ, предназначенных для кражи данных с компьютера
пользователя без его ведома. И не важно, что было украдено: новый "Война и мир" или это сообщение в форум.

Вы бы сразу вопрос полностью задали - я бы не тратил время на ответ, а дал бы медицинскую классификацию
симптома непреодолимого желания подсматривать ....

[kreator]

Кстати, в MS Outlook есть забавная функция. В закладке "Вставка" - иконка "Снимок". Outlook определяет количество экранов, позволяет сделать вырезку и т.д. В общем, инструкцию пользователю и вперёд. Наша задача - только перенаправить его в Outlook.