Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Problem sa autoclick u TWebBrowser komponenti

[es] :: Pascal / Delphi / Kylix :: Problem sa autoclick u TWebBrowser komponenti

[ Pregleda: 3682 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Senaid_backo

Član broj: 191763
Poruke: 36
79.143.168.*

Sajt: www.geeksoftware.org


+1 Profil

icon Problem sa autoclick u TWebBrowser komponenti28.01.2012. u 07:26 - pre 155 meseci
Pozdrav,

Imam problem da nikako ne mogu da skontam kako da uradim "autoclick" kada se na stranici pojavi dugme sledećih vrijednosti:

Code:
<input value="Like" data-profileid="198531200206926" onclick="return fbpage_set_fan_status(this, &quot;198531200206926&quot;, 1, 1, null, null, {&quot;preserve_tab&quot;:true,&quot;fan_origin&quot;:&quot;page_profile&quot;})" type="button" id="u9uca0_8">


Problem kod njega je što on nema svoj "name" tag niti mu je "id" za svaki profil isti, tako da jedino što preostaje ( po meni ) jeste da na osnovu "value" pronađem dato dugme i na neki način izvršim "autoclick". Ima li neko ideju kako da ovo uradim ili da me barem uputi pa ću sam skontat?


Samo jednom se živi, zato iskoristi svaku priliku i uživaj!
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2741



+96 Profil

icon Re: Problem sa autoclick u TWebBrowser komponenti28.01.2012. u 11:19 - pre 155 meseci
> Imam problem da nikako ne mogu da skontam kako da uradim "autoclick" kada se na stranici pojavi dugme sledećih vrijednosti:

Mislim da buttoni u browserima nemaju standardni window handle tako da nećeš moći preko WinApi funkcija, jedino preko TWebBrowser koda. Našao sam neki primer za to na netu, pa pogledaj...

http://stackoverflow.com/quest...in-html-page-webbrowser-delphi
 
Odgovor na temu

Almedin

Član broj: 5895
Poruke: 425
213.196.72.*



+27 Profil

icon Re: Problem sa autoclick u TWebBrowser komponenti28.01.2012. u 12:43 - pre 155 meseci
Još jedan primjer (ovaj gore neće proći ako nema forme) na linku http://www.delphidabbler.com/tips/56.

Pošto tražiš po 'value', trebaš liniju
Code:
if AnsiSameText(Tag.id, Id) then

zamijeniti sa nečim kao:
Code:
if (TVarData(Tag.getAttribute('value',0)).VType = varOleStr) and AnsiSameText(Tag.getAttribute('value',0), Id) then

takođe možeš liniju
Code:
Tags := Body.getElementsByTagName('*');

zamijeniti sa
Code:
Tags := Body.getElementsByTagName('input');

da, zaboravih buttonclick koji tebi treba
Code:
procedure TForm1.Button3Click(Sender: TObject);
var
  Elem: IHTMLElement;
begin
  Elem := GetElementById(wb.Document, 'Like') as IHTMLElement;
  if Assigned(Elem) then
    Elem.click;
end;
 
Odgovor na temu

Senaid_backo

Član broj: 191763
Poruke: 36
79.143.168.*

Sajt: www.geeksoftware.org


+1 Profil

icon Re: Problem sa autoclick u TWebBrowser komponenti02.02.2012. u 18:04 - pre 155 meseci
Nisam imao prije vremena, pa evo da sada iskoristim priliku da Vam se zahvalim na brzim odgovorima, a pogotovo @Almedin-u koji mi je dao tačno ono što sam trebao, a ujedno je to bilo i gotovo riješenje tako da nisam imao potrebe ništa mijenjati!
Samo jednom se živi, zato iskoristi svaku priliku i uživaj!
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Problem sa autoclick u TWebBrowser komponenti

[ Pregleda: 3682 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.