MAV & SMTPLIB Осипова

[WadimZapara]

То есть, Игорь, "хорошую вещь - только Admin'у" ?

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

То есть, Игорь, "хорошую вещь - только Admin'у" ?

Нет, конечно. Ну не записываются от меня большие файлы на FTP - что я могу с этим сделать ?
Давайте попросим Admin'а записать этот файл в FTP раздел форума - думаю, что у него есть для этого возможность ...

[Admin]

То есть, Игорь, "хорошую вещь - только Admin'у" ?

Нет, конечно. Ну не записываются от меня большие файлы на FTP - что я могу с этим сделать ?
Давайте попросим Admin'а записать этот файл в FTP раздел форума - думаю, что у него есть для этого возможность ...

Вроде залился. проверьте!

[seawolf]

Переделал вызов Blat из dll. Стало еще лучше чем с батником - меньше гемора ожидания кода возрата. Всего одна функция Send из dll и туда строку из батника запихиваем.

[Admin]

Переделал вызов Blat из dll. Стало еще лучше чем с батником - меньше гемора ожидания кода возрата. Всего одна функция Send из dll и туда строку из батника запихиваем.

Мен! Делись с народом.

[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]

Спасибо. Попробуем. Blat нравится...

[Admin]

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

P/S: А не дает записать ! Загрузка проходит - а в конце сообщение "Нет доступа" ...

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

Спасибо

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

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

GlobalData

CSTOOLS6_LICENSE_KEY CSTRING('DKELRMGUEMLBJVQC')

Code

If SmtpInitialize(CSTOOLS6_LICENSE_KEY,0) = False
! Ошибка инициализации SMTP библиотеки !
else
! Работаем ...
end

[Admin]

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

Ха. А кто бы мне ее дал?
Странно а как на локале то умудрялось работать?

Спасибо!

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

Элементарно. На компьютере где установлена библиотека - она зарегистрирована по умолчанию, т.к. он считается компьютером разработчика.
Что в общем-то правильно. А для пользовательских компютеров есть лицензия - см. файл "csrtkey6.txt" в папке INCLUDE где установлен Catalyst6.
Если ставить библиотеку без регистрационного номера то файла с пользовательской лицензией не будет. Вот и все. Бонзай !

[Admin]

Ставил естессно без регномера, т.к. Keygen.exe который ты говорил подходит для catalyst.rar не работает.
Спасибо

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

Странно. Что значит не работает ? Не запускается или выдает номера которые не подходят ?
У меня запускается и номера подходят (для CST 6010).
Могу сбросить на e-mail, он не большой по весу ...

[Admin]

Странно. Что значит не работает ? Не запускается или выдает номера которые не подходят ?
У меня запускается и номера подходят (для CST 6010).
Могу сбросить на e-mail, он не большой по весу ...

Кидай на мыло. Я все брал с FTP и кейген и 6010 та же тот что ты в RAR кидал.

[Admin]

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

Спасибо