Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi interesantes Submit button (https://www.delphipraxis.net/111919-interesantes-submit-button.html)

n000b 11. Apr 2008 18:19


interesantes Submit button
 
Hallo, ich habe schon viele submit themen durchgelesen doch dort waren buttons näher beschrieben...
tja mein originelles button hat kein Namen ) und ist auch kein image...
wie soll ich den klicken??)
Code:
<input type="submit" value="  ok  "/>
Danke Luetz
Mfg


PS: mit WebBrowser1.OleObject.document.forms.item(1).eleme nts.item versteht sich...oder eine function^^

geskill 11. Apr 2008 21:17

Re: interesantes Submit button
 
zwar wurde sowas schon 100x durchgekaut aber okay
nimm indy komponenten!!!

Delphi-Quellcode:
Uses
  IdHTTP;

// [...]

PROCEDURE Klick;
VAR Lines: TStrings; XIdHTTP:TIdHTTP;
BEGIN
  Lines := TStringList.Create;
  XIdHTTP := TIdHTTP.Create(Application.Owner);
  XIdHTTP.AllowCookies := FALSE;
  Lines.Add('name=post'); // hier erst den Button Namen dann die Sendemethode (post/get)
  Form1.RCheck.Lines.Text := XIdHTTP.Post('http://google.de',Lines); // hier noch die genaue Webseite eintragen!!!
  Lines.Free;
  XIdHTTP.Free;
END;
Lass den Button Namen einfach mal leer vllt. klappts, wenn nicht einfach bischen probieren....

Mit dem Webbrowser geht das zwar auch ist aber deutlich langsamer:
- erst zur webseite navigieren, warten bis geladen und dann...

Delphi-Quellcode:
  IF WebBrowser.OleObject.Document.forms.Length > 0 // prüfen ob überhaupt formular vorhanden
   THEN BEGIN
    WebBrowser.OleObject.Document.forms.item(0).elements.item(0).click; // hier musst du jetzt wissen auf welchem formular, einfach bischen testen...
   END;
Und zack hat man ein Programm was für einen im Internet täglich votet, aber du musst wissen sowas ist betrug und verboten...

n000b 11. Apr 2008 21:49

Re: interesantes Submit button
 
Thanks!!), doch sowas hab ich nicht doppelt gefunden...sorry.


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:25 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz