Эт всегда стояло
Добавлено спустя 4 минуты 46 секунд:
Библиотека стоит, в /usr/lib есть libssl.so.0.9.7
Файл ssl_openssl_lib.pas поправил
{$IFDEF CIL}
const
{$IFDEF LINUX}
DLLSSLName = 'libssl.so.0.9.7';
DLLUtilName = 'libcrypto.so.0.9.7';
{$ELSE}
DLLSSLName = 'ssleay32.dll';
DLLUtilName = 'libeay32.dll';
{$ENDIF}
{$ELSE}
var
{$IFNDEF MSWINDOWS}
{$IFDEF DARWIN}
DLLSSLName: string = 'libssl.dylib';
DLLUtilName: string = 'libcrypto.dylib';
{$ELSE}
DLLSSLName: string = 'libssl.so.0.9.7';
DLLUtilName: string = 'libcrypto.so.0.9.7';
{$ENDIF}
{$ELSE}
DLLSSLName: string = 'ssleay32.dll';
DLLSSLName2: string = 'libssl32.dll';
DLLUtilName: string = 'libeay32.dll';
{$ENDIF}
{$ENDIF}
debian squeeze x64 и проблемы с libssl и libxml
Модератор: Модераторы
-
Padre_Mortius
- энтузиаст
- Сообщения: 1265
- Зарегистрирован: 29.05.2007 17:38:07
- Откуда: Спб
Возьмите прямо пример из synapse и попробуйте его запустить. Отпишитесь о результате.
ок, завтра попробую. отпишусь.
Добавлено спустя 31 минуту 52 секунды:
результат тот же самый. 220 2.0.0 Ready to start TLS
Опытным путем выяснил что валиться исключение в файле ssl_openssl_lib.pas на след фунции
function SslConnect(ssl: PSSL):Integer;
begin
if InitSSLInterface and Assigned(_SslConnect) then
begin
try
writeln(inttostr(_SslConnect(ssl)));
except
writeln('exept');
end;
Result := _SslConnect(ssl);
end
else
begin
Result := -1;
end;
end;
Добавлено спустя 12 минут 27 секунд:
Нашел в инете такую тему. У чела тоже также валилось при использовании libssl.
http://www.mail-archive.com/fpc-pascal@ ... 20976.html
у меня после установки 0.9.7 валиться перестало. по крайней мере до прямого обращения к функциям.
Добавлено спустя 14 минут 27 секунд:
указал модуль dynlibs после classes. Валиться на либе 0.9.8 перестало. Но итог тот же 220 2.0.0 Ready to start TLS
Чтож такое)
Добавлено спустя 2 минуты 56 секунд:
Извиняюсь) своей отладкой запорол код)) Все работает. решение всех проблем очередность моделей. Иначе идет переопределение.
Спасибо Padre_Mortius что пытался помочь)
Добавлено спустя 31 минуту 52 секунды:
результат тот же самый. 220 2.0.0 Ready to start TLS
Опытным путем выяснил что валиться исключение в файле ssl_openssl_lib.pas на след фунции
function SslConnect(ssl: PSSL):Integer;
begin
if InitSSLInterface and Assigned(_SslConnect) then
begin
try
writeln(inttostr(_SslConnect(ssl)));
except
writeln('exept');
end;
Result := _SslConnect(ssl);
end
else
begin
Result := -1;
end;
end;
Добавлено спустя 12 минут 27 секунд:
Нашел в инете такую тему. У чела тоже также валилось при использовании libssl.
http://www.mail-archive.com/fpc-pascal@ ... 20976.html
у меня после установки 0.9.7 валиться перестало. по крайней мере до прямого обращения к функциям.
Добавлено спустя 14 минут 27 секунд:
указал модуль dynlibs после classes. Валиться на либе 0.9.8 перестало. Но итог тот же 220 2.0.0 Ready to start TLS
Чтож такое)
Добавлено спустя 2 минуты 56 секунд:
Извиняюсь) своей отладкой запорол код)) Все работает. решение всех проблем очередность моделей. Иначе идет переопределение.
Спасибо Padre_Mortius что пытался помочь)
