Пытаюсь тут модернизировать компонент rss-ридера с целью возможности получать новости с сайтов по протоколу https, но не получается прикрутить ssl.
компонент брал тут https://github.com/silvioprog/easyrss
Видимо что то не так пытаюсь прикрутить.
Подскажите где ошибка.
Код: Выделить всё
procedure TRSSReader.LoadFromHttp(const AUrl: string);
procedure sockHandleEvent(Sender: TObject; const UseSSL: boolean;
out aHandler: TSocketHandler);
var
h: TSSLSocketHandler;
begin
aHandler := nil;
if UseSSL then
begin
h := TSSLSocketHandler.Create;
// h.RemoteHostName:= ????;
h.SSLType := stTLSv1;
aHandler := h;
end;
end;
var
VHttp: THttp;
VFeed: TStream;
AHandler: TSocketHandler;
begin
if LeftStr(Aurl, 5) = 'https' then
begin
// vhttp.
VHttp := THttp.Create(nil);
vhttp.OnGetSocketHandler := @sockHandleEvent;
end
else
begin
VHttp := THttp.Create(nil);
end;
try
VHttp.GetFeed(AUrl, VFeed);
VFeed.Position := 0;
LoadFromStream(VFeed);
finally
FreeAndNil(VFeed);
VHttp.Free;
end;
end;