Сорсы из TWebBrowser - Общие вопросы Delphi - Страница 2

Johnson · 01.08.2009, 17:47

Цитата:

Сообщение от Пепел Феникса

http://programmersforum.ru/showthrea...ght=WebBrowser
вот тема...я говорил поищи

Код:

var
 PersistStream: IPersistStreamInit;
 MemStream: TMemoryStream;
 Stream: IStream;
 SL:TStringList;
begin
 PersistStream := WebBrowser1.Document as IPersistStreamInit;
 MemStream := TMemoryStream.Create;
 SL:=TStringList.Create;
 try
  Stream := TStreamAdapter.Create(MemStream, soReference) as IStream;
  PersistStream.Save(Stream, True);
  MemStream.Position:=0;
  SL.LoadFromStream(MemStream);
  SL.SaveToFile('test.htm');
 finally
  MemStream.Free;
  SL.Free;
 end;

Первый раз вызвал - всё нормально.
Второй раз вызываю - Access volation на строку:

Код:

  PersistStream.Save(Stream, True);

Johnson · 01.08.2009, 17:50

Извиняюсь... Туплю после тяжелого дня...
Забыл сайт открыть в TWebBrowser...

Спасибо большое за код!

psycho-coder · 01.08.2009, 17:50

Опоздал((___

01.08.2009, 17:50	#12
Johnson кривокодер ;) Форумчанин Регистрация: 20.06.2008 Сообщений: 707	Извиняюсь... Туплю после тяжелого дня... Забыл сайт открыть в TWebBrowser... Спасибо большое за код! "А как написать праграму?, "ришыти задачьку очинь нада" ©с форума. Жить становится интереснее, жить становится веселее... {Быть или не быть} {Неуспешный суицид}

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
TWebBrowser	ak3000	Компоненты Delphi	8	08.04.2010 19:33
TWebBrowser	Sergey2	Компоненты Delphi	3	17.06.2009 03:32
TWebBrowser + IE 7.0	Diogo	Общие вопросы Delphi	5	27.01.2008 12:43
TWebBrowser	dima_lamo	Работа с сетью в Delphi	1	19.01.2008 21:16

01.08.2009, 17:50	#13
psycho-coder Участник клуба Регистрация: 06.04.2009 Сообщений: 1,524	Опоздал((___