Форум "Delphi"

Паскаль, Делфи

#0 deep © 28.05.03 13:44:31 - 12.01.08 18:54:39

Компонент TWebBrowser

у него есть свойства AdressBar и StatusBar. Только тип у них булевский и непонятно как их юзать. Устанавливаю их в True и не наблюдаю никакого эффекта. Чувствую себя глупым. :))

и еще: TWebBrowser.LocationURL только для чтения. как установить URL страницы загруженной в TWebBrowser с помощью TWebBrowser.Document.Write()? П.С.Это нужно для того чтоб можно было юзать сокращенные пути в ссылках этого документа.

#1 di © 28.05.03 13:55:13

по первому пункту...
как написано в хелпе у ВебБроузера ни статусбара ни адресбара нет... а свойства эти есть только потому что они есть у интернет эксплоурера...

#2 McSimm © 28.05.03 13:55:51

> Чувствую себя глупым. :))
А должен чувствовать себя не глупым, а ленивым :)

Do not use AddressBar. It is included in the TWebBrowser interface because the IWebBrowser2 interface is shared with Internet Explorer. AddressBar shows or hides the URL address bar on Internet Explorer. TWebBrowser does not have an address bar.

StatusBar - аналогично :)

#3 di © 28.05.03 13:57:19

а второй пункт я плохо понял... если можно подробней...

#4 McSimm © 28.05.03 14:01:01

А по второму - непонятно.
Установить URL страницы можно методом Navigate.
Иначе откуда у тебя вообще Document?

#5 deep © 28.05.03 15:10:38

по первой части - ясненько, с делфовым хелпом конфуз получился.

> McSimm © 28.05.03 15:01
> А по второму - непонятно.
> Установить URL страницы можно методом Navigate.
> Иначе откуда у тебя вообще Document?

var
  Document: IHTMLDocument2;
  V: OleVariant;

.....
  if WB.Document = nil then WB.Navigate('about:blank');
  while WB.Document = nil do Application.ProcessMessages;
  Document:= WB.Document as IHtmlDocument2;
  Document.Write('......');
  Document.Close;

> deep © 28.05.03 14:44
Browser.Document.Write()?
> П.С.Это нужно для того чтоб можно было юзать сокращенные
> пути в ссылках этого документа.
McSimm предложил мне отличный выход из этой ситуации -использовать в документе элемент <base>

<HEAD>
...
<BASE href="file://E:files">
</HEAD>

Тогда, независимо от URI документа относительные пути будут вычисляться от E:files

#6 IronHawk © 28.05.03 15:19:01

%PATH%BorlandDelphi?DemosCoolStufwebbrows.dpr
Открой и глянь, там всё как на ладошке!

#7 McSimm © 28.05.03 15:42:38

> Открой и глянь, там всё как на ладошке!
Что именно?

#8 deep © 11.06.03 10:32:04

ОЧЕРЕДНАЯ СТРАННАЯ ТРАБЛА: отображаю в TWebBrowser следующий код <textarea name=msg2 rows=10 cols=50 maxlength="5000"> </textarea>. Окошко для ввода текста чудно отображается, НО в нем не срабатыет нажатие Enter~a(т.е. нельзя сделать перевод строки), а также операции взятия текста в буффер. Причем выделение текста, вставка из буффера и удаление срабатывают нормально. Как бороться с этой фичей?

#9 Song 11.06.03 14:02:38

AddressBar и StatusBar означают, что они просто будут присутствовать. При этом в StatusBar отображается текуще выделенная ссылка, а в AddressBar - адрес страницы.

>>НО в нем не срабатыет нажатие Enter~a(т.е. нельзя сделать перевод строки), а также операции взятия текста в буффер

Сам Enter отслеживаешь?

#10 deep © 11.06.03 14:10:49

В том то и дело, что ни одного обработчика нажатия(отпускания) клавиш нет, KeyPreview:=false; Вспывающее меню появляется(Cut, Copy, Paste, Delete...), но по нажатию на Сopy - ноль реакции, никаки горячие клавиши тоже не копируют.

#11 deep © 23.07.03 19:12:25

> deep © 11.06.2003 15:10:00
нашел ответ на траблу

community.borland.com</b>

Article #20468: How to enable the cut and copy operations for the TWebBrowser component in Delphi 5.
Why don't the cut and copy operations work for the TWebBrowser component in Delphi 5?

If you are going to use the TWebBrowser and want to enable cut and copy, you will need to add these lines of code at the bottom of the your unit:

initialization OleInitialize(nil); finalization OleUninitialize;

You will also need to add ActiveX to your uses clause.

Last Modified: 19-JAN-00

#12 nollie 18.09.03 10:55:02

> Открой и глянь, там всё как на ладошке!
>Что именно?
всё...
coolbrowser вроде называется. там исходник есть можно все подробно рассмотреть

#13 Deep © 03.10.03 13:50:47

как при использовании TWebBrowser подменять поле REFERER т.е. ссылку с которой пришли на даную страницу?

Реально, как указать банеру счетчику страницы сгенерированой вручную ОТКУДА мы на эту страницу попали?

#14 IronHawk © 03.10.03 13:54:03

> Deep © 03.10.2003 14:50:00
> Реально, как указать банеру счетчику страницы сгенерированой
> вручную ОТКУДА мы на эту страницу попали?
Неа.

#15 Kiberman 19.12.07 20:37:31

procedure TForm1.Button1Click(Sender: TObject);
var
  Flags, Headers, TargetFrameName, PostData: OLEVariant;
  Url, Ref: string;
  IEApp: OLEVariant;
begin
  try
   IEApp := CreateOLEObject('InternetExplorer.Application');
  except
   Exit;
  end;
  IEApp.Visible := True;
  IEApp.Top := 0;
  IEApp.Left := 0;
  IEApp.Width := Screen.Width;
  IEApp.Height := Screen.Height;
  Flags := '1';
  TargetFrameName := '';
  PostData := '';
  Url := ' ';
  Ref := ' ';
  // u cannot navigate to the url above without this referer
  Headers := 'Referer: ' + Ref + #10 + #13;
  IEApp.Navigate(Url, Flags, TargetFrameName, PostData, Headers);
end;

---

#16 ad_Wolf 12.01.08 18:54:39

Здравствуйте!
Можно и мне вопрос задать? Я уже весь рунет облазил, но нигде не могу найти, как в компоненте TWebBrowser скрыть полосы прокрутки? Подскажите пожалуйста!

Написать ответ