|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
EOleException и webBrowser('About:')
У меня есть 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 Все хорошо открывается никаких проблем,а вот когда я это отправляю в веббраузер появляется ошибка |