VPF::Кодировка кода страницы WebBrowsera

Liberum

Дата 2.6.2012, 13:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 2.6.2012

Репутация: нет
Всего: нет

Народ, вот еще задачка. Нужно по нажатию кнопки создать tabsheet, на нем memo а в memo записать код страницы из webbrowsera. Я делаю так:
На форме pagecontrol1;
На 1 фрейме webbrowser;
На 2 фрейме memo;
Во 2 юните пишу

Код


function TFrame2.WB_GetHTMLCode(WebBrowser1: TWebBrowser;
  SiteEncoding: TEncoding): string;
var memo : TMemoryStream;
   sL : TStringList;
begin
   memo := TMemoryStream.Create;
   try
      (WebBrowser1.Document as IPersistStreamInit).Save(TStreamAdapter.Create(memo), True);
      memo.Position := 0;
      sL := TStringList.Create;
      try
         sL.LoadFromStream(memo, SiteEncoding);
         result := sL.Text;
      finally
         FreeAndNil(sL);
      end;
   finally
      FreeAndNil(memo);
   end;
end;

а потом для кнопки

Код


procedure TFrame2.Action1Execute(Sender: TObject);
begin
form1.Text('f');
end;

А на форме:

Код


procedure TForm1.Text(text: string);
var ts:ttabsheet;
fr:tframe3;
fra:tframe2;
memo:tmemo;
begin
ts:=TTabSheet.Create(PageControl1);
ts.PageControl:=PageControl1;
ts.Parent:=PageControl1;
PageControl1.ActivePage:=ts;
fr:=TFrame3.Create(ts);
fr.Align:=alClient;
fr.Parent:=ts;
memo:=tmemo.Create(fr);
memo.Align:=alclient;
memo.Parent:=fr;
memo.Text:=fra.WB_GetHTMLCode(fra.WebBrowser1, TEncoding.GetEncoding(1251));
end;

ругается на TEncoding.GetEncoding, в чем проблема и как её устранить.

Liberum

Дата 2.6.2012, 14:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 2.6.2012

Репутация: нет
Всего: нет

точнее не ругатся а выкидывает и красным цветом выделяет

Код


memo.Text:=fra.WB_GetHTMLCode(fra.WebBrowser1, TEncoding.GetEncoding(1251));

Liberum

Дата 2.6.2012, 18:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 2.6.2012

Репутация: нет
Всего: нет

Ну чтож, сам задал ответ, сам нашел ответ
http://www.cyberforum.ru/delphi/thread5938...tml#post3115387

MetalFan

Дата 4.6.2012, 18:14 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

Цитата(Liberum @ 2.6.2012, 14:06

)

а выкидывает и красным цветом выделяет

Мда, что выкидывает, что выделяет?! ))
Ну разобрался и хорошо.

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »