Webbrowserda script çalıştırma

[Serhat]

Haydaa..

Sanırm "Webbrowserda script çalıştırma" çözülemeyen konular arasında yok olup gidecek...

- Bak güzel kardeşim, localde çalışmaz dedim, sen HTML olarak localde çalıştığını iddia ediyorsun. Yani kendi bilgisayarında çalıştırabildiğini iddia ettin. Bana inandırıcı gelmedi.


Hocam vermiş olduğunuz örneği inceledim, forma TWebBrowser1 ve buton ekledim ve run dedim ama görüntü gelmedi rica etsem proje örneğini paylaşır mısınız....


http://aktuelkamera.org/arman/a/b.html

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Silent := True;
  WebBrowser1.Navigate('http://aktuelkamera.org/arman/a/b.html');
end;

[mrmarman]

Proje dediğin senin yazdığın bu koddan ibaret. Sisteminde Adobe Flash Player güncelle çalışır.

[mrmarman]

Çalışmazsa sana bir üçkağıt göstereyim, explorer'dan bir itiş gücü diyebilirsin... Çünkü eğer arkada explorer açıksa bu flash playerin yüklemesini kolaylaştırıyor...

Hiçbirşey yapmayan bir Explorer açıp, onun sırtından gösterimi çalıştırıp, hiç göstermeden kapatıyoruz.

Kod: Tümünü seç

Uses ComObj;

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  XIEpp : OleVariant;
begin
  if (VarIsEmpty(xIEpp)) then
  begin
    xIEpp := CreateOleObject('InternetExplorer.Application');
    WebBrowser1.Silent := True;
    WebBrowser1.Navigate('http://aktuelkamera.org/arman/a/b.html');
    xIEpp.Quit;
    xIEpp := UnAssigned;
  end;
end;