Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Synapse Err 500

Автор: D1myan 24.5.2010, 18:29

Здравствуйте уважаемые! Писал программу с использованием библиотеки synapse// всё было хорошо но вдруг она перестала работать... причем при запросе любой страницы https выдает ошибку 500... эту же страницу на indy получаю нормально.. но хотелось бы разобраться что не так... да и indy мне не нравиться...
вот так я делаю GET запрос страницы...

Код


var
 stream: TStringStream;
 httpsend: THTTPSend;
begin
 stream:=TStringStream.Create('');
 httpsend:=THTTPSend.Create;
 httpsend.MimeType:='application/x-www-form-urlencoded';
 httpsend.HTTPMethod('get','https://www.icq.com/');
 httpsend.Document.SaveToStream(stream);

 Memo1.Lines.Add(Utf8ToAnsi(stream.DataString));

 Memo2.Lines.Add('------Ответ----');
 Memo2.Lines.Add('-----Cokies-----');
 Memo2.Lines.add(httpsend.Cookies.Text);
 Memo2.Lines.Add('-----Headers-----');
 Memo2.Lines.add(httpsend.Headers.Text);
 memo2.lines.add(inttostr(httpsend.ResultCode));
end;

Кто встречался с подобной проблемой? Что не так? Подскажите пожалуйста! =)

ЗЫ: Сраницу http получаю нормально, а вот https откзываеться получать!

Автор: D1myan 24.5.2010, 19:19

Проблема решена! Я случайно удалил из папки программы файлы ssleay32.dll и libeay32.dll... А synapse просто игнорировала что их нету и просто выдавала код ошибки 500...
Спасибо всем кто уделил внимание!