Entwickler-Ecke

Internet / Netzwerk - Textbox auslesen ohne benennung ??


s0xtech - Sa 04.08.07 13:16
Titel: Textbox auslesen ohne benennung ??
hey

ich mal wieder :-D hab mich jetzt zurechtgefunden überall. ich nutze gerade den TWebBrowser und möchte aber eine Textbox auslesen. Allerdings ist die nicht benannt!


XML-Daten
1:
2:
<textarea rows='12' cols='45'>INHALT BLABLABLA
</textarea>


jetzt ist mein prob wie komme ich an den text INHALT BLABLABLA ??

Moderiert von user profile iconChristian S.: "html" durch "xml" ersetzt


Yogu - Mo 06.08.07 21:00

Jetzt kommt die Antwort: Mit HTML oder JavaScript gar nicht.

Warum benennst du nicht einfach die Textbox?


Lannes - Mo 06.08.07 23:28

Hallo,

man soll nie nie(garnicht) sagen, DOM ist das Zauberwort :wink:
Über JavaScript:

Quelltext
1:
  alert(document.getElementsByTagName("textarea")[0].value);                    

Delphi und der TWebbrowser:

Delphi-Quelltext
1:
showmessage(WebBrowser.OleObject.Document.all.tags('textarea').Item(0).Value);                    


Yogu - Di 07.08.07 19:46

Hab ich mich wohl geirrt.
Wenigstens hab ich nicht nie gesagt. :P


s0xtech - Fr 10.08.07 13:13

das funzt aber nicht. ich hab 2Memo boxen. in die eine kommt was denn solls in der 2ten verschlüsselt wieder drin stehen NUR da steht das selbe in beiden boxen... ich weis nicht wieso


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
GroupBox2.Visible := False;
if length(Memo1.Text) = 0 then
  begin
    showmessage('Sie haben nichts zum Verschlüsseln eingegeben');
  end
else
  begin
   WebBrowser1.Navigate('http://lix.in/index.php?op=index_large');
  repeat
         Application.ProcessMessages;
         Sleep(0);
        until WebBrowser1.ReadyState = READYSTATE_COMPLETE;
        GroupBox2.Visible := True;
     WbSetEditField(WebBrowser1, 'url', Memo1.Text);
     WbBtnClick(WebBrowser1, 'button');
        repeat
         Application.ProcessMessages;
         Sleep(0);
        until WebBrowser1.ReadyState = READYSTATE_COMPLETE;

         Memo2.Text := WebBrowser1.OleObject.Document.all.tags('textarea').Item(0).Value;

  end;
end;