Показать сообщение отдельно
  #1  
Старый 23.01.2014, 13:51
Аватар для JunkieBeat
JunkieBeat JunkieBeat вне форума
Прохожий
 
Регистрация: 01.02.2013
Сообщения: 48
Версия Delphi: Delphi7 Lite Ed
Репутация: 10
По умолчанию 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 Все хорошо открывается никаких проблем,а вот когда я это отправляю в веббраузер появляется ошибка
Ответить с цитированием