[ Milan Milosevic @ 08.12.2018. 07:17 ] @
Imam projekat koji je lepo radio pod Windows 7.
Od nedavno sam prešao na Windows 10 i primetio sam da prozor sada ne učitava stranu googl prevodioca kako treba.
Ima li neko rešenje jer nisam uspeo da nađem na internetu.
[ savkic @ 08.12.2018. 11:44 ] @
TWebBrowser? Radi li iz InternetExplorera?
[ Milan Milosevic @ 08.12.2018. 12:24 ] @
Citat:
savkic: TWebBrowser? Radi li iz InternetExplorera?

Ne znam, kako da proverim?
Moguće je, jer je na sedmici radilo odlično, a sad neće.
Na sedmici je verovatnije starija verzija InternetExplorera.
[ tkaranovic @ 08.12.2018. 13:28 ] @
Ja radim na WIN 7 i koristim svoj pretrazivac sa TWebBrowser u kojem iskljucim skript i pregledam samo ono sto se moze videti bez skripta.
Jedino sam guglov prevod koristio sa skriptom. Sada nece vise da radi. Koliko vidim nece zato sto su izmenili stranu...

Inace i ovu poruku kucan ES pretrazivac sa TWebBrowser bez skripta i nadam se da nece nikad menjati ovaj foruma tako da mora da se koristi skrip...
[ Milan Milosevic @ 08.12.2018. 13:36 ] @
Citat:
tkaranovic: Ja radim na WIN 7 i koristim svoj pretrazivac sa TWebBrowser u kojem iskljucim skript i pregledam samo ono sto se moze videti bez skripta.
Jedino sam guglov prevod koristio sa skriptom. Sada nece vise da radi. Koliko vidim nece zato sto su izmenili stranu...

Inace i ovu poruku kucan ES pretrazivac sa TWebBrowser bez skripta i nadam se da nece nikad menjati ovaj foruma tako da mora da se koristi skrip...


Znači ipak je do Googla.
Razmišljam da InternetExplorer ubacim kao komponentu pa da njega stavim na Formu umesto TWebBrowser ako nema neko drugo rešenje.
[ savkic @ 08.12.2018. 14:16 ] @
TWebBrowser je zapravo samo wrapper oko IEa, s tim sto po defaultu to nije poslednja verzija vec nesto tipa IE7.
Ima nacin da se forsira poslednja verzija kao i upotreba JS, ali ne mogu da nadjem u kodu kako se to radi.
Ima i third party komponenta (isto wrapper oko IE) koja je znacajno naprednija i ima sve te stvari podrzane.
[ savkic @ 08.12.2018. 14:26 ] @
Nasao, EmbeddedWB, https://bitbucket.org/wpostma/tembeddedwb/src.
[ Milan Milosevic @ 08.12.2018. 14:51 ] @


Hvala Savkic
Skino sam i prepravio EmbeddedWB za poslednju verziju Delphija 10.3
Radi užasno sporo, ali što je naj interesantnije vraća potpuno isto kao i TWebBrowser.
[ tkaranovic @ 08.12.2018. 15:09 ] @
Ja sam skript pomenuo smo uvexi toga kako ja koristim.

Izgleda da su uradili izmene tako da proverava da li je IE ili nije.
[ savkic @ 08.12.2018. 15:18 ] @
Vidim da radi iz samostalnog IEa, proveri da li je dozvoljen rad sa java scriptom, i probaj da promenis user agent na Firefox/Chrome.
[ Milan Milosevic @ 08.12.2018. 15:30 ] @
Promenio sam isto se ponaša.
Izgleda da je u pitanju nešto sa podrškom za JavaScript.
Moguće da ove komponente nemaju podršku za novije verzije JavaScript.
[ tkaranovic @ 08.12.2018. 16:18 ] @

Verovatno iz JS pokusava da procita neku vrednost koju ima IE i na tom mestu puca.

U svakom slucaju ja WebBrower vise necu koristiti za gulg prevod.
[ Milan Milosevic @ 08.12.2018. 16:32 ] @
Citat:
tkaranovic: Verovatno iz JS pokusava da procita neku vrednost koju ima IE i na tom mestu puca.

U svakom slucaju ja WebBrower vise necu koristiti za gulg prevod.


Da tkaranovic, ali koja je alternativa?
[ tkaranovic @ 08.12.2018. 16:37 ] @

Ima InternetExplorer komponenta. Davno sam je probao.
Koliko se secam moze se pronaci otvoren IE i/ili se startovati sa linkom za pretragu.
[ Milan Milosevic @ 08.12.2018. 16:56 ] @
Znam. lako se to postiže sa SellExecute funkcijom.
Potrebno je samo obezbediti da IE ostane top prozor.
[ tkaranovic @ 08.12.2018. 17:27 ] @

Ta komponenta radi ovako nesto (ovo sam izguglao):

type
TMainForm = class(TForm)
ShowBrowser: TButton;
procedure FormCreate(Sender: TObject);
procedure ShowBrowserClick(Sender: TObject);
private
FBrowser: Variant;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
FBrowser := CreateOleObject('InternetExplorer.Application');
end;

procedure TMainForm.ShowBrowserClick(Sender: TObject);
begin
FBrowser.Navigate('http://stackoverflow.com');
ShowWindow(FBrowser.HWND, SW_SHOWMAXIMIZED);
FBrowser.Visible := True;
end;
[ Milan Milosevic @ 08.12.2018. 17:43 ] @
tkaranovic radi

Evo jednostavnije varijante koja radi isto
Code:

uses
   ... ShellAPI;

procedure TForm1.ShowBrowserClick(Sender: TObject);
begin
  ShellExecute(Handle, 'OPEN', 'iexplore.exe', '-new https://translate.google.co.uk/?hl=en&tab=TT', '', SW_NORMAL);
end;

[ tkaranovic @ 08.12.2018. 17:49 ] @
Pa sto pitas onda (kad znas)? :)
[ Milan Milosevic @ 08.12.2018. 18:01 ] @
Pa pitam za komponentu WebBrowser jer mi sve montirano i radilo lepo.
Sad moram da prepravljam stvari.
[ tkaranovic @ 08.12.2018. 18:13 ] @
Naravno, kad mora nije tesko... stavio sam smajli upokusaju da budem vedar i ako nema osnova...
[ Milan Milosevic @ 08.12.2018. 19:41 ] @
Ok, hvala ljudi.
Nakrpio sam ga nekako na silu.
Otvorim Explorer u pozadini pa ga nalepim na ScrollBox.
[ _deran_ @ 10.12.2018. 10:35 ] @
Malo se kasno javljam...

Probaj:

Code:
var reg:TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_CURRENT_USER;
    reg.OpenKey('Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', false);
    reg.WriteInteger(ExtractFileName(Vcl.Forms.Application.ExeName), 11000);
  finally
    reg.Free;
  end;
end;



Ili bolje za probu, upisi rucno u registry pa poteraj exe. Onaj kod bi trebalo startovati pre nego sto se kreira komponenta TWebBrowser.
[ tkaranovic @ 10.12.2018. 12:23 ] @

Kod mene (na WIN7) radi.
[ Milan Milosevic @ 10.12.2018. 15:46 ] @
_deran_ hvala puno radi i kod mene.
Kako je u pitanju FM aplikacija malo sam modifikovao kod za FireMonkey

Code:

uses
...,Registry,Winapi.Windows;

...
procedure TForm_Prevodilac.FormCreate(Sender: TObject);
 var
  reg:TRegistry;
begin

  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_CURRENT_USER;
    reg.OpenKey('Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', false);
    reg.WriteInteger(ExtractFileName(ParamStr(1)), 11000);
  finally
    reg.Free;
  end;

  Google:=true;
end;

Baš me zanima odakle ti rešenje?
[ _deran_ @ 11.12.2018. 07:11 ] @
Pravio sam HTML editor koji u pozadini ima TinyMCE, pa sam ga prikazivao preko TWebBrowser-a. Imao sam isti problem... Negde sam izguglao da je to do stare verzije browser-a a kod mene bila najnovija, pa nasao kako da nateram IE11 da radi kao IE11 :)
Inace mi je katastrofa raditi sa TWebBrowserom ali alternativa mi je bilo ubaciti Chrome koji nosi sa sobom jos 100+ mb koje-čega... Radi ovo sad ovako :)
[ tkaranovic @ 11.12.2018. 11:05 ] @
Ja sam pravio uglavnom za licnu upotrbu HTML editor sa TWebBrowserom i danas ga koristim kad zatreba.
Na jednom sam (starom) sistemu koji ima kozolu za mejl i danas koristim svoj program kroz tu kozolu.
Mislim da samo ja tako saljem i primam mejlove i da je niko drugi vise ne koristi tako.
Tako da samo povremeno koristim HTML editor sa TWebBrowserom kad ne mogu sa kozolom da posaljem.

Nisam sa njime imao do sada ovakvih problema ali sam zapisao ovo predstavljane kao IE11 ako zatreba.
[ Milan Milosevic @ 11.12.2018. 13:46 ] @
TWebBrowser je bruka koliko danas loše radi.
Trebalo bi ga malo osvežiti.