freepascal.ru

Добрый день, такая проблема. Использую компоненты synapse для отправки почты и libxml2 для работы с xml. На 32 битном линуксе все было ок. Переехал на х64 и вылезли след проблемы.

Все приложения сразу повалились. Еще на этапе подключения библиотек. С xml решил путем перекладывания формирования на базу. Но проблема с отправкой почты осталась((
Отправка идет через гугл, поменять сервер не вариант. У гугла используеться TSL а значит synapse грузит библиотеку libssl. В системе стояла 0.9.8 версия. Моя прога крашила на момент подключения. Поставил 0.9.7 (как советовалось на сайте синапса) прога запускается но падает гдето на инициализации функций.

Возможно кто-то сталкивался с таким? Есть ли решение?

Hiko, набросайте небольшой пример, что бы воспроизвести ошибку, попробуем разобраться вместе...

а программа была пересобрана под 64 бита?

Выдрал кусок кода который почту шлет. Прикладываю.
http://narod.ru/disk/43189629001.a118d5 ... 1.rar.html

Скачал fpc amd64 им и собираю.
Пробовал indy10 все ок пока libssl не подключаешь, потом тоже крашит

Добавлено спустя 5 минут 11 секунд:
Сейчас с либой 0.9.7 не падает. Но почту не шлет. Работает хз как, отладку ставил по всему синапсу. Такое чувство что он просто подключиться не может когда защищенное соединение.
Сделал простой https get с компонентом THTTPSend. Итог краш даже с 0.9.7 либой

Сервер исходящей почты (SMTP) – требуется TLS2 или SSL: smtp.gmail.com (использовать аутентификацию)
Использовать аутентификацию: да
Порт для TLS/STARTTLS: 587
Порт для SSL: 465

а у вас почему-то 25 порт.

Добавлено спустя 2 минуты 53 секунды:
Пример использования smtp и TLS

Да, прошу прощения. Код выдирал когда ошибся, порт с базы берется там 587

и в примере нет куска работы с TLS

Еще раз повторю, на х86 оно работает. И THTTPSend данные через get получает. А на х64 нет((

Добавлено спустя 5 минут 44 секунды:
Посмотрел код из примера, у меня еще на smtp.Login() валиться. Т.е там еще далеко до smtp.StartTLS()

Вот код синапса функции SendToRaw(ее использую)

if SMTP.Login then
begin
writeln('login');

Вот до writeln('login'); у меня и не доходит.

Пустую строку вернул

Пусто

сделайте полный пример. я ближе к ночи смогу его посмотреть на linux x86_64

качнул с нета libssl0.9.7-2 с ним вот чего руганулся:
smtp.ResultString=28
SMTP.FullResult.Text=220 2.0.0 Ready to start TLS

Эт на логине

перед smtp.Login сделайте

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

smtp.AutoTLS := true;