MAV & SMTPLIB Осипова

Обсуждение MAV Direct ODBC

Модератор: Andrew™

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion и MAV который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Аватара пользователя
WadimZapara
Активист
Сообщения: 181
Зарегистрирован: 11 Июнь 2008, 12:11
Откуда: Тамбов

Re: MAV & SMTPLIB Осипова

Сообщение WadimZapara »

То есть, Игорь, "хорошую вещь - только Admin'у" ?
:cry:
Компьютер имеет то преимущество перед мозгом, что им пользуются...
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7328
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Re: MAV & SMTPLIB Осипова

Сообщение Игорь Столяров »

WadimZapara писал(а):То есть, Игорь, "хорошую вещь - только Admin'у" ?
:cry:
Нет, конечно. Ну не записываются от меня большие файлы на FTP - что я могу с этим сделать ?
Давайте попросим Admin'а записать этот файл в FTP раздел форума - думаю, что у него есть для этого возможность ... :)
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

Re: MAV & SMTPLIB Осипова

Сообщение Admin »

Игорь Столяров писал(а):
WadimZapara писал(а):То есть, Игорь, "хорошую вещь - только Admin'у" ?
:cry:
Нет, конечно. Ну не записываются от меня большие файлы на FTP - что я могу с этим сделать ?
Давайте попросим Admin'а записать этот файл в FTP раздел форума - думаю, что у него есть для этого возможность ... :)
Вроде залился. проверьте!
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
seawolf
Старожил
Сообщения: 213
Зарегистрирован: 08 Июль 2005, 11:23
Откуда: St. Petersburg

Re: MAV & SMTPLIB Осипова

Сообщение seawolf »

Переделал вызов Blat из dll. Стало еще лучше чем с батником - меньше гемора ожидания кода возрата. Всего одна функция Send из dll и туда строку из батника запихиваем.
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

Re: MAV & SMTPLIB Осипова

Сообщение Admin »

seawolf писал(а):Переделал вызов Blat из dll. Стало еще лучше чем с батником - меньше гемора ожидания кода возрата. Всего одна функция Send из dll и туда строку из батника запихиваем.
Мен! Делись с народом.
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
seawolf
Старожил
Сообщения: 213
Зарегистрирован: 08 Июль 2005, 11:23
Откуда: St. Petersburg

Re: MAV & SMTPLIB Осипова

Сообщение seawolf »

Вот как делал:
1. Делаем lib из blat.dll через либмекер и цепляем blat.lib в проект
2. Объявляем прототип
Module('Blat.lib')
Blat_Send(*Cstring),Long,Pascal,Raw,Name('Send')
.
3. формируем строку в проге для посылке как для батника

CommString Cstring(2048) !строка посылки
Ebody String(80) ! Тело письма мне хватате 80 знаков можно и больше
EFromAddress String(80) ! свой email
EToAddress String(80) ! email клиента
ESubject String(80) ! тема письма
EFile String(256)! путь к вложению, собственно говоря весь сыр бор именно из-за того чтобы послать вложение
EMailHost String(24) !имя SMTP сервера
EMailPort Long ! Порт SMTP сервера


ELogin String(24) ! как правило логин клиента то что до его @
EPass String(24) ! как правило пароль к pop ящику

CommString =' -body "' & Clip(EBody) & '" -f ' & Clip(EFromAddress) & ' -to ' & Clip(EToAddress) & ' -s "' & clip(ESubject) & '"' & |
' -attach ' & Clip(EFile) & ' -server ' & Clip(EMailHost) & ' -port ' & clip(EMailPort)

!Если нужна доп. авторизация то добавим
CommString = Clip(CommString) & ' -u ' & clip(ELogin) & ' -pw ' & Clip(EPass)

Ну и далее

RET = Blat_Send(CommString)
Return RET

RET = 0 если все ушло или если ошибка возращает код
Коды описаны: http://www.blat.net/examples/blat_return_codes.htm

Как оказалось ничего сложного, только вот прототип поискать пришлось не в исходниках (среды MSVC2005 нет под рукой а h файле не увидел).
В google На С++ был пример где прототип и был увиден и далее приведен к Clarion.
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

Re: MAV & SMTPLIB Осипова

Сообщение Admin »

Спасибо. Попробуем. Blat нравится...
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

Re: MAV & SMTPLIB Осипова

Сообщение Admin »

Игорь Столяров писал(а):Забавно. Там еще был и установочный файл релиза 6010.
Видимо кто-то решил обладать им единолично и грохнул его ... :(
Сейчас зальемс повторно ... ;)

P/S: А не дает записать ! Загрузка проходит - а в конце сообщение "Нет доступа" ... :(
Сделал на том что ты дал класс. На моей машине все работает. SSL авторизация к удаленному серверу и т.д.
Кинул прогу на другой компьютер и на тебе!
Ошибка SMTP (proc: Connect): This product is not licensed to perform this operation [80042EE2]
И что делать, как жить? :(

Спасибо
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7328
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Re: MAV & SMTPLIB Осипова

Сообщение Игорь Столяров »

А ты в приложении лицензию прописал ?

GlobalData

CSTOOLS6_LICENSE_KEY CSTRING('DKELRMGUEMLBJVQC')

Code

If SmtpInitialize(CSTOOLS6_LICENSE_KEY,0) = False
! Ошибка инициализации SMTP библиотеки !
else
! Работаем ...
end
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

Re: MAV & SMTPLIB Осипова

Сообщение Admin »

Игорь Столяров писал(а):А ты в приложении лицензию прописал ?
Ха. А кто бы мне ее дал?
Странно а как на локале то умудрялось работать?

Спасибо!
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7328
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Re: MAV & SMTPLIB Осипова

Сообщение Игорь Столяров »

Элементарно. На компьютере где установлена библиотека - она зарегистрирована по умолчанию, т.к. он считается компьютером разработчика.
Что в общем-то правильно. А для пользовательских компютеров есть лицензия - см. файл "csrtkey6.txt" в папке INCLUDE где установлен Catalyst6.
Если ставить библиотеку без регистрационного номера то файла с пользовательской лицензией не будет. Вот и все. Бонзай ! :)
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

Re: MAV & SMTPLIB Осипова

Сообщение Admin »

Ставил естессно без регномера, т.к. Keygen.exe который ты говорил подходит для catalyst.rar не работает.
Спасибо
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7328
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Re: MAV & SMTPLIB Осипова

Сообщение Игорь Столяров »

Странно. Что значит не работает ? Не запускается или выдает номера которые не подходят ?
У меня запускается и номера подходят (для CST 6010).
Могу сбросить на e-mail, он не большой по весу ...
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

Re: MAV & SMTPLIB Осипова

Сообщение Admin »

Игорь Столяров писал(а):Странно. Что значит не работает ? Не запускается или выдает номера которые не подходят ?
У меня запускается и номера подходят (для CST 6010).
Могу сбросить на e-mail, он не большой по весу ...
Кидай на мыло. Я все брал с FTP и кейген и 6010 та же тот что ты в RAR кидал.
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

Re: MAV & SMTPLIB Осипова

Сообщение Admin »

А то жалко... класс вроде как переписал.
По SSL подключается к серваку нашему... (что было сильно нужно, пользовались stunnel) и месаг сгенереный сейчас не через темповский файл а через память гонять можно.
Одни приятственности!

Спасибо
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
Ответить