Страница 2 из 3
Re: MAV & SMTPLIB Осипова
Добавлено: 03 Август 2010, 1:19
WadimZapara
То есть, Игорь, "хорошую вещь - только Admin'у" ?
Re: MAV & SMTPLIB Осипова
Добавлено: 03 Август 2010, 8:26
Игорь Столяров
WadimZapara писал(а):То есть, Игорь, "хорошую вещь - только Admin'у" ?
Нет, конечно. Ну не записываются от меня большие файлы на FTP - что я могу с этим сделать ?
Давайте попросим Admin'а записать этот файл в FTP раздел форума - думаю, что у него есть для этого возможность ...
Re: MAV & SMTPLIB Осипова
Добавлено: 03 Август 2010, 10:08
Admin
Игорь Столяров писал(а):WadimZapara писал(а):То есть, Игорь, "хорошую вещь - только Admin'у" ?
Нет, конечно. Ну не записываются от меня большие файлы на FTP - что я могу с этим сделать ?
Давайте попросим Admin'а записать этот файл в FTP раздел форума - думаю, что у него есть для этого возможность ...
Вроде залился. проверьте!
Re: MAV & SMTPLIB Осипова
Добавлено: 11 Август 2010, 10:06
seawolf
Переделал вызов Blat из dll. Стало еще лучше чем с батником - меньше гемора ожидания кода возрата. Всего одна функция Send из dll и туда строку из батника запихиваем.
Re: MAV & SMTPLIB Осипова
Добавлено: 11 Август 2010, 10:30
Admin
seawolf писал(а):Переделал вызов Blat из dll. Стало еще лучше чем с батником - меньше гемора ожидания кода возрата. Всего одна функция Send из dll и туда строку из батника запихиваем.
Мен! Делись с народом.
Re: MAV & SMTPLIB Осипова
Добавлено: 11 Август 2010, 10:56
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.
Re: MAV & SMTPLIB Осипова
Добавлено: 11 Август 2010, 12:10
Admin
Спасибо. Попробуем. Blat нравится...
Re: MAV & SMTPLIB Осипова
Добавлено: 29 Ноябрь 2010, 11:08
Admin
Игорь Столяров писал(а):Забавно. Там еще был и установочный файл релиза 6010.
Видимо кто-то решил обладать им единолично и грохнул его ...
Сейчас зальемс повторно ...
P/S: А не дает записать ! Загрузка проходит - а в конце сообщение "Нет доступа" ...
Сделал на том что ты дал класс. На моей машине все работает. SSL авторизация к удаленному серверу и т.д.
Кинул прогу на другой компьютер и на тебе!
Ошибка SMTP (proc: Connect): This product is not licensed to perform this operation [80042EE2]
И что делать, как жить?
Спасибо
Re: MAV & SMTPLIB Осипова
Добавлено: 29 Ноябрь 2010, 11:33
Игорь Столяров
А ты в приложении лицензию прописал ?
GlobalData
CSTOOLS6_LICENSE_KEY CSTRING('DKELRMGUEMLBJVQC')
Code
If SmtpInitialize(CSTOOLS6_LICENSE_KEY,0) = False
! Ошибка инициализации SMTP библиотеки !
else
! Работаем ...
end
Re: MAV & SMTPLIB Осипова
Добавлено: 29 Ноябрь 2010, 13:12
Admin
Игорь Столяров писал(а):А ты в приложении лицензию прописал ?
Ха. А кто бы мне ее дал?
Странно а как на локале то умудрялось работать?
Спасибо!
Re: MAV & SMTPLIB Осипова
Добавлено: 29 Ноябрь 2010, 13:40
Игорь Столяров
Элементарно. На компьютере где установлена библиотека - она зарегистрирована по умолчанию, т.к. он считается компьютером разработчика.
Что в общем-то правильно. А для пользовательских компютеров есть лицензия - см. файл "csrtkey6.txt" в папке INCLUDE где установлен Catalyst6.
Если ставить библиотеку без регистрационного номера то файла с пользовательской лицензией не будет. Вот и все. Бонзай !
Re: MAV & SMTPLIB Осипова
Добавлено: 29 Ноябрь 2010, 13:51
Admin
Ставил естессно без регномера, т.к. Keygen.exe который ты говорил подходит для catalyst.rar не работает.
Спасибо
Re: MAV & SMTPLIB Осипова
Добавлено: 29 Ноябрь 2010, 14:20
Игорь Столяров
Странно. Что значит не работает ? Не запускается или выдает номера которые не подходят ?
У меня запускается и номера подходят (для CST 6010).
Могу сбросить на e-mail, он не большой по весу ...
Re: MAV & SMTPLIB Осипова
Добавлено: 29 Ноябрь 2010, 15:27
Admin
Игорь Столяров писал(а):Странно. Что значит не работает ? Не запускается или выдает номера которые не подходят ?
У меня запускается и номера подходят (для CST 6010).
Могу сбросить на e-mail, он не большой по весу ...
Кидай на мыло. Я все брал с FTP и кейген и 6010 та же тот что ты в RAR кидал.
Re: MAV & SMTPLIB Осипова
Добавлено: 29 Ноябрь 2010, 15:29
Admin
А то жалко... класс вроде как переписал.
По SSL подключается к серваку нашему... (что было сильно нужно, пользовались stunnel) и месаг сгенереный сейчас не через темповский файл а через память гонять можно.
Одни приятственности!
Спасибо