Przerobienie poradnika(Artykułu) dla Delphi 7 Personal

0

Cześć. Mógłby ktoś przerobić ten poradnik(Artykuł) dla TWebBrowser w Delphi 7 Personal?

0

A z czym masz problem? Z tego co pobieżnie zobaczyłem to wystarczy zamiast TMemo tworzyć co tam w
jakiejś klasie chcesz czyli TWebBrowser. Nie mam takiego ActiveX'a do niego zainstalowanego, bo z tego
co wiem owy komponent korzysta z internet exploter, a ten wiadomo ssie i nie jest bezpieczny, ale myślę
że nie powinno być żadnego problemu żeby zamiast Memo tworzyć na zakładkach jakiś inny komponent ;/

0
olesio napisał(a)

komponent korzysta z internet exploter, a ten wiadomo ssie i nie jest bezpieczny,

IE8 jest bezpieczniejszy niż Firefox, sprawdź sobie ile realnych, niebezpiecznych błędów od wydania FF 3.5 było, ile w IE.

0

Być może, ja używam Opery i jestem zadowolony, wydaje mi się też, że jest to bezpieczna przeglądarka.

0

Nom, bezpieczna, głownie dlatego, że niszowa... na świecie bodaj nigdy 3% udziału w rynku nie przekroczyła.

0

Próbowałem, ale kilka błędów jest. Podałem je na dole artykułu.

[Error] Unit1.pas(49): Undeclared identifier: 'TWebBrowser'
[Error] Unit1.pas(56): Missing operator or semicolon
[Error] Unit1.pas(57): Missing operator or semicolon
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'
0
  1. program nie wie co to "TWebBrowser". masz w uses OleCtrls, SHDocVw; ?
  2. wklej kod bo musiales cos zle napisac a z samej nazwy bledu nic Ci nie pomozemy.
  3. mam wrazenie ze to powinno byc odeslane do dzialu Newbie.
0

Obecnie jestem na Ubuntu, gdyż Windows mam zepsuty, ale mam przygotowaną przeglądarkę, jeszcze bez zakładek, jednak gdybym chciał do niej je dodać to jak?
Część stąd:http://4programmers.net/Delphi/Gotowce/Przeglądarka_internetowa_(TWebBrowser)_dla_początkujących
A część stąd: http://4programmers.net/Delphi/Gotowce/Przegl%C4%85darka_oprata_na_machanizmach_Internet_Explorera

Aha i jak zrobić listę wyboru wyszukiwarki(korzystając z komponentu, wybór samemu uwzględniony). I jak dodać StatusBara zamiast tego ładowania oraz do niego postęp ładowania strony(gotowe...., trwał ładowanie, etc.)?

0

Po kilku zmianach oto błędy:

[Error] Unit1.pas(58): Cannot assign to a read-only property
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

Kod:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, StdCtrls, OleCtrls, SHDocVw_TLB;

type
  TForm1 = class(TForm)
    Button1: TButton;
    PageControl1: TPageControl;
    Button2: TButton;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Nowazakadka1: TMenuItem;
    WebBrowser1: TWebBrowser;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Nowazakadka1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var zakladka : TTabSheet;
begin
zakladka := TTabSheet.Create(Self);
zakladka.Caption := 'Nowa zakładka';
zakladka.PageControl := PageControl1;
zakladka.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
PageControl1.ActivePage.Free;
end;

procedure TForm1.Nowazakadka1Click(Sender: TObject);
var zakladka : TTabSheet;
    wb     : TWebBrowser;
begin
zakladka := TTabSheet.Create(Self);
zakladka.Caption := 'Nowa zakładka';
zakladka.PageControl := PageControl1;

wb := TWebBrowser.Create(Self);
wb.Align := alClient;
wb.Parent := zakladka;

zakladka.Show;
end;

end.
0
... napisał(a)

Nom, bezpieczna, głownie dlatego, że niszowa... na świecie bodaj nigdy 3% udziału w rynku nie przekroczyła.

To już wiesz czemu hakerzy lubią Operę.

0
OldShaterhan napisał(a)

Po kilku zmianach oto błędy:

[Error] Unit1.pas(58): Cannot assign to a read-only property
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas

To wskazuje na linię wb.Parent := zakladka; że próbujesz przypisać własności będącej tylko do odczytu
jakąś wartość. Nigdy nie bawiłem się TWebBrowser, ale może ma jakąś inną własność odpowiedzialną
za to co ma być dla niego rodzicem, ale wydaje mi się że nie powinno być takiego komunikatu, może
ktoś bardziej doświadczony poradzi Tobie coś. Bo z tego co widzę w googlach to ludzie używali Parent.

0

Ja to robię jako test, gdyż posiadam znacznie bardziej rozbudowaną przeglądarkę, tylko nie wiem jak wdrożyć do niej zakładki.

0

Czy mógłby ktoś pomóc w końcu z tymi zakładkami?

0

nie wiem co dokladnie chcesz uzyskac ale jesli chodzi ci tylko o stworzenie okna twebbrowser w pagecontrol to tutaj masz podpowiedz:
http://codegearguru.com/video/032/FormDocking.html
http://codegearguru.com/video/033/FormDocking2.html

Zamiast formy dajesz twebbrowser i powinno chodzic

1 użytkowników online, w tym zalogowanych: 0, gości: 1