У меня есть 2-ва HTML файла они сжаты с помощью потока ZLIB,когда открываю один все норм,но при открытие второго, EoleException вылетает
Код:
procedure TForm2.OpenStream(obj: TWebBrowser);
var
AZLib : TDecompressionStream;
AStream : TFileStream;
AMemStream : TMemoryStream;
ALen : Int64;
str:string;
begin
str:=mydir+tv1.Selected.parent.Text+'\'+tv1.Selected.Text;
AStream := TFileStream.Create(str,fmOpenRead);
AZLib := TDecompressionStream.Create(AStream);
AMemStream := TMemoryStream.Create;
Try
AZLib.ReadBuffer(ALen,SizeOf(Int64));
AMemStream.CopyFrom(AZLib,ALen);
AMemStream.Seek(0,0);
redt1.Lines.LoadFromStream(AMemStream);
Finally
AMemStream.Free;
AZLib.Free;
AStream.Free;
End;
wb1.Navigate('about:'+redt1.text); //вот тут EOleException
end;
Тегов в файле каких то крутых нету,он спокойно открывался,когда я его не сжимал.
Так в целом в RichEdit Все хорошо открывается никаких проблем,а вот когда я это отправляю в веббраузер появляется ошибка