Textbox auslesen ohne benennung ??

s0xtech · Hält's aus hier Beiträge: 14

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!

markieren

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 Christian S.: "html" durch "xml" ersetzt

Yogu · Verfasst: Mo 06.08.07 21:00

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

Warum benennst du nicht einfach die Textbox?

Lannes · Verfasst: Mo 06.08.07 23:28

Hallo,

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

Über JavaScript:

markieren

Quelltext

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

Delphi und der TWebbrowser:

markieren

Delphi-Quelltext

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

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

Yogu · Verfasst: Di 07.08.07 19:46

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

s0xtech · Hält's aus hier Beiträge: 14

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

markieren

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;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme