Webbrowser yardım

[alikus]

Webbrowser ile açtığım bir web sayfasında bir linke tıklatığımda açılan
sayfanın yeni bir delphi formunda açılmasını nasıl sağlarım. Yardımlarınız
için teşekkürler.

[epic]

TWebBrowser'in OnNewWindow2 olayini kullanabilirsiniz. asagidaki kodlari deneyin:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
  var
	thisForm: TForm1;
  begin
	thisForm := TForm1.Create(Self);
	thisForm.Show;
	ppDisp := thisForm.WebBrowser1.DefaultDispatch;
  end; 

[epic]

tam kod:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls;
type
  TForm1 = class(TForm)
	WebBrowser1: TWebBrowser;
	procedure FormCreate(Sender: TObject);
	procedure WebBrowser1BeforeNavigate2(Sender: TObject;
	  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
	  Headers: OleVariant; var Cancel: WordBool);
	procedure WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
	  var Cancel: WordBool);
  private
	{ Private declarations }
  public
	isFirst: Boolean;
  end;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
  begin
	isFirst := True;
	if (Self.Name = 'Form1') then
	  WebBrowser1.Navigate('http://www.google.com');
  end;
 
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
  var
	newForm: TForm1;
  begin
	if not (isFirst) then begin
	  Cancel := True;
	  newForm := TForm1.Create(Self);
	  newForm.WebBrowser1.Navigate(URL);
	  newForm.Show;
	end
	else isFirst := False;
  end;
 
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
  var
	newForm: TForm1;
  begin
	newForm := TForm1.Create(Self);
	newForm.Show;
	ppDisp := newForm.WebBrowser1.DefaultDispatch;
  end;
 
end. 

[muhammed_cabir]

merhaba arkadaşlar foruma yeni katılıyorum hepinize saygılarımı sunarım.size bir sorum var webbrowser1 kullanarak yapmaya çalıştığım basit bir proje var. bir butonun clik yordamına webbrowser1.GoBack; yazıp çalıştırınca bilinmeyen hata diyor.İlk olarak anasayfa olarak diyelimki google ı verdim.google açıldı diyelim ben hiç google da bir şey arattırmadan geri butonuna tıklayınca yukarıdaki hatayı veriyor.bana yardım ederseniz sevinirim.

[MUDERLESS]

mail adresi verisen sana bir örnek vere bilirm dosya gönderme yetkim yok url adresim de yok zaman yok daha doğrusu bir web sayfası yapmak için muderless@gmail.com adresine bir mail at sana yukardıaki konu ile ilgili ve sen soruna da yanıt vere bilecek bir örnek vereyim ...

hepinize iyi çalışmalar .
bu arada halen daha bir referans bulamadım :P

[MUDERLESS]

Benim sorunum TWebBrowser nesnesinde görüntülenen bir web sayfasını button yardımı ile iexplorer nin favorits ine eklemesini istiyorum. Elinde bununla ilgili bilgi olan arkadaşlardan yardım lütfen.....

[MUDERLESS]

1ad. Tedit , 2ad. TButton, 1ad. TWebBrowser gerekli


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls,registry, SHDocVw, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
WebBrowser1: TWebBrowser;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
const
NotAllowed: set of Char = ['"'] + ['/'] + ['\'] + ['?'] + [':'] + ['*'] +
['<'] + ['>'] + ['|'];

implementation

{$R *.dfm}
function Load(Path, Key: string): string;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey(Path, False);
try
Result := Reg.ReadString(Key);
except
Result := '';
end;
Reg.CloseKey;
finally
Reg.Free;
end;
end;

function WinDir: string;
var
WinDir: PChar;
begin
WinDir := StrAlloc(MAX_PATH);
GetWindowsDirectory(WinDir, MAX_PATH);
Result := string(WinDir);
if Result[Length(Result)] <> '\' then
Result := Result + '\';
StrDispose(WinDir);
end;

function GetSysDir: string;
var
dir: array [0..MAX_PATH] of Char;
begin
GetSystemDirectory(dir, MAX_PATH);
Result := StrPas(dir);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate(edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
url: TStringList;
fav: string;
title, b: string;
i: Integer;
c: Char;
begin
fav := Load('Software\Microsoft\Windows\CurrentVersion\Ex plorer\Shell Folders','Favorites');
url := TStringList.Create;
try
url.Add('[InternetShortcut]');
url.Add('URL=' + webbrowser1.LocationURL);
url.Add('WorkingDirectory=' + WinDir());
url.Add('IconIndex=0');
url.Add('ShowCommand=7');
url.Add('IconFile=' + GetSysDir() + '\url.dll');
title := Webbrowser1.LocationName;
b := '';
for i := 1 to Length(title) do
begin
c := title[i];
if not (c in NotAllowed) then
begin
b := b + Webbrowser1.LocationName[i];
end;
end;
url.SaveToFile(fav + '\' + b + '.url');
finally
url.Free;
end;
end;
end.


işte bu kadar......