PHP DM Gate v0.9 » synaps40, https, в потоке vs обычное приложение

ВладОшин © (30.01.17 17:39) [0]

Взял пример httpdemo.dpr, подправил - работает
выдрал код в поток - не работает

HTTP := THTTPSend.Create;
if not HTTP.HTTPMethod('get', url) then
begin
SS.WriteString('ResultCode = ' + IntToStr(HTTP.ResultCode));
SS.WriteString(HTTP.ResultString);
end else
HTTP.Document.SaveToStream(SS);

в потоке из сервиса
ResultCode = 500
ResultString - пусто - ''

в приложении из примера - нормально

погуглил, говорят, может не видеть open-ssl (libssl32.dll, libeay32.dll).
положил dll рядом с файлом сервиса - ничего, опять ResultCode = 500

Чего ему может не хватать? Прав dll загрузить?

<Цитата>
DayGaykin © (30.01.17 17:51) [1]

500 это внутренняя ошибка *сервера*. Посмотрите лог сервера для начала, что ему не нравится.

<Цитата>
ВладОшин © (30.01.17 18:05) [2]

не, это не та 500

function THTTPSend.HTTPMethod(const Method, URL: string): Boolean;
..
begin
{initial values}
Result := False;
FResultCode := 500;
FResultString := '';
т.е. он как инициализировался, так и остался

А в отладчике вылетаю посреди асмовского кода

proc 1
asm
end
end;

* <-- вот вдруг по F8 оказываюсь.. реально, ладно бы на последнем end
а тут и инструкций то никаких нет

proc 2
asm

<Цитата>
ВладОшин © (30.01.17 18:17) [3]

и почему так - спросишь, и найдешь трабл сразу, а так - 2 часа просидишь - ничего ))

мозгов не хватает.. )
dll положил, а
uses
,ssl_openssl
не написал..

все, работает )) Спасибо за внимание )

<Цитата>