Komponenta WebBrowser?

[ Miloš Baić @ 21.03.2006. 16:55 ] @

Kad se ušita stranica u WebBrowser komponentu , hteo bih da napravim Save As...?!!!
Uspeo sam na osnovu OpenDialog komponente i koda da u taj WebBrowser otvorim html koji imam na računaru:

Code:
if OpenDialog1.Execute then
WebBrowser1.Navigate(OpenDialog1);

Pretpostavljam da isto treba da se postavi SaveDialog i memorisati? Pokušao sam, ali nisam skontao kako?
Bilo bi zanimljivo da vidim kako i odraditi štampu stranice koja je učitana?

[ IvanBeograd @ 21.03.2006. 17:36 ] @

Mozda ce ti ovo pomoci,sad sam naleteo na to,nisam probao da li radi,probaj!

http://www.cryer.co.uk/brian/delphi/twebbrowser/Save_as_MHT.htm

poz

_{[Ovu poruku je menjao IvanBeograd dana 21.03.2006. u 18:39 GMT+1]}

[ Miloš Baić @ 21.03.2006. 17:59 ] @

Hvala na odgovoru, ali nije to ono što mi treba. treba mi jednostavno da snimim stranicu iz WebBrowser komponente?! Mislim da bi moglo najlakše pomiću SaveDialog, ali ne znam kako?! ;)

[ Miloš Baić @ 29.03.2006. 23:35 ] @

Nešto sam uspeo ovih dana da skontam sa TWebBrowser komponentom. Ali i dalje mi je problem sa snimanjem učitane stranice. Naime, uspeo sam da na osnovu OpenDialog - a otvorrim HTML stranicu sa HDD-a, a ne mogu na osnovu SaveDialog-a da napravim obratnu situaciju. Jedino što sam uspeo oko snimanja je da se ta stranica direktno snimi u određeni folder. U mom slučaju na c:\WebBrowser\Downloads Pages\.
I još jedan mali problemčić se dešava ka želim ići na Yahoo Mail. Tad prikaže grešku ali posle par trenutaka ako je lozinka i korisničko ime ispravno, uđe u moj log?!
Ali sa GMail to nije slučaj...
Ne bi bilo loše, ako imate vremena da malo isprobate ovaj moj primer, pa da mi apelujete na greške i pomognete da ih ispravim, a i da rešim ovo oko snimanja stranice na HDD?!

P.S. ovaj programčić razvijam za sebe prvenstveno zbog GMail-a, a ujedno može i YahooMail. Ostali surf mi toliko i nije bitan, jer Firefox radi odlično svoj posao...

_{[Ovu poruku je menjao loshmiscg dana 30.03.2006. u 00:37 GMT+1]}

[ sojic @ 30.03.2006. 15:41 ] @

A da das source code pa da vidimo.

[ Miloš Baić @ 30.03.2006. 17:29 ] @

Može na ovom primeru, pa ako neko zna kako izvršiti Save As..., ali gde god to korisnik želi... Pomoću TOpenDialog se otvara sa bilo koje lokacije, a hteo bi da pomoću TSaveDialog komponente da se snimi gde želim?!
Još nešto, naime, kako bi se moglo napraviti da umesto TEdit postavim TComboBox pa da ono što je neko kucao, recimo www.google.com ostane zapamćeno, kao u Internet Exploreru ili Firefox-u?! Kad kucamo www. da se otvara padajući meni?

[ Miloš Baić @ 30.03.2006. 17:30 ] @

[ Miloš Baić @ 31.03.2006. 01:08 ] @

U okviru ove teme, kako da punim ComboBox... Da u njemu ostane ono sto sam unosio, kao u Internet Exploreru, recimo?
Evo mali primer, pokusavao sam nesto ali nisam uspeo, pa ako neko zna nek ga koriguje da vidimo...

[ Nemanja Avramović @ 31.03.2006. 08:40 ] @

OnEnter event ne sluzi da se okine prilikom pritiska na taster ENTER nego kad strelica misha udje u oblast kontrole (nesto kao OnMouseMove, samo sto se ovo okine samo jednom). Evo ti ispravljenog primera, a dodao sam i podrsku za proveru za vec postojecim stavkama u combobox-u, tako da sad nema duplikata

[ Miloš Baić @ 31.03.2006. 11:43 ] @

Hvala na primeru...

Evo, sad sam skoro zavrsio browser iz perspektive delphi-ja, pa ako nekog zanima moze ga skinuti i pogledati...
P.S. za moje potrebe, kao sto sam naveo....

_{[Ovu poruku je menjao loshmiscg dana 31.03.2006. u 13:31 GMT+1]}

[ Nemanja Avramović @ 31.03.2006. 18:48 ] @

Ok je... jedino što mi piše Working offline

Kako si radio progress? Da li TWebBrowser ima OnProgress event, ili... (mrzi me da palim Delphi)?

Još samo šugavi M$ endžin da zameniš sa npr. Gecko endžinom i biće to dobar browser, hehe

_{[Ovu poruku je menjao JaHvram dana 31.03.2006. u 19:48 GMT+1]}

[ Miloš Baić @ 31.03.2006. 20:21 ] @

Počeo sam onako, egzibicionistički da pravim programčić... Pa onda, za svoje potrebe, da učita gmail i yahoo mail... I tako, malo po malo, eto sad vidim, da treba da doradim još neke stvari... Nikad to nije u potpunosti urađeno...

Što se tiče Progress-a, na samoj TWebBrowser komponenti postoji OnProgressChange pa sam obradio događaj:

Code:
procedure TWB.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
   Gauge1.MaxValue := ProgressMax;
   Gauge1.Progress := Progress;
end;

Citat:

npr. Gecko endžinom i biće to dobar browser

Neki primer da vidim kako bi to trebalo da izgleda?!

Jesi video i ovaj primer: SMTP Client

P.S. u vezi offline, to važi samo za dial up..., kako napraviti da detektuje uopšte od konekcije internet?

_{[Ovu poruku je menjao loshmiscg dana 31.03.2006. u 21:26 GMT+1]}

[ sojic @ 31.03.2006. 20:30 ] @

Ja kada sam pokusavao nesto sa "Browsere" nasao sam Mozilla ActiveX control na http://www.iol.ie/~locka/mozilla/control.htm ali nije radila kao sto sam ocekivao. Za "surfanje" radi OK, ali meni je trebalo da "popunjavam" formulare, tako da nisam mogao koristiti:

Code:

Browser.OleObject.Document.Body.innerHTML

ili

Browser.OleObject.Document.Body.getElementById('nesto').value;

[ Miloš Baić @ 31.03.2006. 21:43 ] @

Malo doradjeno...

[ Nemanja Avramović @ 01.04.2006. 00:21 ] @

Napisi sta si doradjivao...

A sto se tice konekcije... nem' pojma... pinguj google pa ces da vidis - ako vraca ping online si :P

[ Miloš Baić @ 01.04.2006. 02:31 ] @

Uglavnom sam odradio neke stvari u vezi IDE-a, neke dopune u kodu?!!! Što se tiče detekcije interneta, kod mene to radi ispravno. Napravio sam funkciju koja detektuje konekciju:

Code:
function Online : Boolean;
var
  dwFlags : dword;
begin
  result := false;
  If (InternetGetConnectedState(@dwFlags, 0)) and
     (dwFlags and 1 = 1) Then
    result := true;
end;

Pa zatim:

Code:
if Online then
Label2.Caption:='Working online...'
else
Label2.Caption:='Working offline...';

Mislim da je čak i bilo reči o tome, neko je postovao?! Znači, prvo se konektujem na net pa onda pokrenem programčić.
Nisi mi dao primer za Gecko engine? Možda sam se i susreo s tim Gecko a da nisam znao!!! Sorry

[ Nemanja Avramović @ 01.04.2006. 08:41 ] @

Gecko engine je engine koji koristi Firefox. Googlaj.

Sto se tice detekcije Interneta, naravno da ne radi na taj nacin jer je meni drugi komp. na netu i on je namesten da bude router, a ja odavde preko LAN-a idem na net (Connection sharing)

[ Miloš Baić @ 01.04.2006. 11:42 ] @

Evo vidiš...
Znači kao FireFox, pa da, pravo da ti kažem nisam naišao na bolji browser...

[ sojic @ 01.04.2006. 11:49 ] @

Ja sam ti dao link gde mozes naci Gecko (Mozilla) ActiveX http://www.iol.ie/~locka/mozilla/control.htm

[ Miloš Baić @ 01.04.2006. 15:56 ] @

Da, posetio sam sajt i skinuo Gecko (Mozilla) ActiveX!!!
Ubacio sam u delphi preko:

Citat:

* Select "Import Type Library" from Delphi's Project menu
* Choose "MozillaControl" in the type library list and click OK
* Delphi's ActiveX VCL toolbar should now contain a "MozillaBrowser" component

Posle toga dobio sam na ActiveX toolbar: MozillaBrowser1!!! Naišao sam na isto sajtu i na neki mali primer pravljenja browser-a, ali samo neke osnove... Nije loše...

[ Miloš Baić @ 02.04.2006. 17:56 ] @

Jel može nekako da se odradi, da kad sa učitane stranice odem na neki link, url, da se u combobox-u, gde i kucam adrese, se predstavi ta lokacija na kojoj se trenutno nalazim. Znači, ona adresa u TWebBrowser-u koja je trenutno, da se prikaže u combobox-u, da on prati surf?
Valjda sam dobro obrazložio?

[ Srki_82 @ 02.04.2006. 18:11 ] @

Jedam mali WebBroser vec imas u Delphi primerima. Pogledaj primer CoolStuf.

[ Miloš Baić @ 03.04.2006. 18:26 ] @

Sve u svemu, od programčića za GMail napravio sam mali simpatični WebBrowser...
Ako imate neke primedbe ili neke inovacije koje treba uvesti, recite, pa ću rado odraditi...
Evega prikačen, kao neka "Beta" verzija...

[ Miloš Baić @ 04.04.2006. 01:20 ] @

još malo dorađeno...

[ Nemanja Avramović @ 04.04.2006. 13:07 ] @

Jel si se prebacio na Gecko engine ili je i dalje IE?

[ Miloš Baić @ 04.04.2006. 13:25 ] @

I dalje je IE..., malo sam se igrao... kad sam odmarao...

[ master037 @ 06.04.2006. 11:23 ] @

U vezi ucitavanja url-a u adress baru kad kliknes na neki link hehe.. pa stavi na primer event na webbrowser komponenti "OnPage load ili tako neshto" da combobox1.text := webbrowser1.location ili address.. nisam sad vec siguran jer nemam ovde trenutno delphi da bi napisao tacan kod.. ;)

[ Miloš Baić @ 06.04.2006. 11:55 ] @

Citat:

master037: U vezi ucitavanja url-a u adress baru kad kliknes na neki link hehe.. pa stavi na primer event na webbrowser komponenti "OnPage load ili tako neshto" da combobox1.text := webbrowser1.location ili address.. nisam sad vec siguran jer nemam ovde trenutno delphi da bi napisao tacan kod.. ;)

Proveri ponovo, imas ga upload-ovanog... Kod mene je radilo...
P.S. skinuo sam ga da proverim, pa postavio ponovo...