Delphi Webbrowser 修改 textarea 值 百度

有個按鈕 調用  <a href="#" onclick="$.ajax({url: &#x27;/redmine/journals/edit/29606.js&#x27;, type: &#x27;get&#x27;}); return false;" title="編輯"><img alt="Edit" src="/redmine/images/edit.png?1409696303" /></a>

redmine/journals/edit/29606.js
$("#journal-29606-notes").hide();

if ($("form#journal-29606-form").length > 0) {
  // journal edit form already loaded
  $("#journal-29606-form").show();
} else {
  $("#journal-29606-notes").after('<form accept-charset=\"UTF-8\" action=\"/redmine/journals/edit/29606\" data-remote=\"true\" id=\"journal-29606-form\" method=\"post\"><div style=\"margin:0;padding:0;display:inline\"><input name=\"utf8\" type=\"hidden\" value=\"&#x2713;\" /><input name=\"authenticity_token\" type=\"hidden\" value=\"sydzG/YXRpUdgxZ6pyaAyq4gdxRHyScjXTE5BDKOK6w=\" /><\/div>\n    <label class=\"hidden-for-sighted\" for=\"notes\">批註<\/label>\n    <textarea class=\"wiki-edit\" id=\"journal_29606_notes\" name=\"notes\" rows=\"16\">\n43501 {&quot;STATE&quot;:200,&quot;DESC&quot;:&quot;執行成功&quot;,&quot;LIST&quot;:[{&quot;OPERATORNAME&quot;:&quot;運營商名&quot;,&quot;BREAKINGLINETIME&quot;:10.56,&quot;BREAKINGTIMES&quot;:1,&quot;BREAKINGLINERATE&quot;:1.5},{&quot;OPERATORNAME&quot;:&quot;ADCAP&quot;,&quot;BREAKINGLINETIME&quot;:1.0445,&quot;BREAKINGTIMES&quot;:123,&quot;BREAKINGLINERATE&quot;:0.55}],&quot;COUNT&quot;:2}43502 {&quot;STATE&quot;:200,&quot;DESC&quot;:&quot;執行成功&quot;,&quot;LIST&quot;:[{&quot;OPERATORNAME&quot;:&quot;WSDF&quot;,&quot;BREAKINGLINESTARTIME&quot;:&quot;2015-08-28 00:00:00&quot;,&quot;BREAKINGLINEENDTIME&quot;:&quot;2015-08-28 00:00:00&quot;,&quot;BREAKINGLINETIME&quot;:10.22},{&quot;OPERATORNAME&quot;:&quot;ASF是否&quot;,&quot;BREAKINGLINESTARTIME&quot;:&quot;2015-08-27 10:26:52&quot;,&quot;BREAKINGLINEENDTIME&quot;:&quot;2015-08-28 10:26:57&quot;,&quot;BREAKINGLINETIME&quot;:10.4}],&quot;COUNT&quot;:2}43503 {&quot;STATE&quot;:200,&quot;DESC&quot;:&quot;執行成功&quot;,&quot;LIST&quot;:[{&quot;STRATIVEID&quot;:123,&quot;OPERATORNAME&quot;:&quot;123&quot;},{&quot;STRATIVEID&quot;:123,&quot;OPERATORNAME&quot;:&quot;123&quot;},{&quot;STRATIVEID&quot;:123,&quot;OPERATORNAME&quot;:&quot;123&quot;},{&quot;STRATIVEID&quot;:123,&quot;OPERATORNAME&quot;:&quot;123&quot;},{&quot;STRATIVEID&quot;:123,&quot;OPERATORNAME&quot;:&quot;123&quot;}],&quot;COUNT&quot;:72}\n<\/textarea>\n    \n    <p><input name=\"commit\" type=\"submit\" value=\"保存\" />\n    <a accesskey=\"r\" href=\"#\" onclick=\"submitPreview(&quot;/redmine/issues/preview/edit/4635?project_id=industry&quot;, &quot;journal-29606-form&quot;, &quot;journal_29606_preview&quot;); return false;\">預覽<\/a> |\n    <a href=\"#\" onclick=\"$(&#x27;#journal-29606-form&#x27;).remove(); $(&#x27;#journal-29606-notes&#x27;).show(); return false;\">取消<\/a><\/p>\n\n    <div id=\"journal_29606_preview\" class=\"wiki\"><\/div>\n<\/form><script type=\"text/javascript\">\n//<![CDATA[\nvar wikiToolbar = new jsToolBar(document.getElementById(\'journal_29606_notes\')); wikiToolbar.setHelpLink(\'/redmine/help/zh/wiki_syntax.html\'); wikiToolbar.draw();\n//]]>\n<\/script>\n');

View Code

 

暫時無法找到方法：

http://www.itnose.net/detail/456763.html

你屬性設置錯誤：textarea不是設置InnerText，而是設置HtmlElement實例.SetAttribute("value","你的文本")   不行 估計是別的編程語言

 

二、也不行，提示說 接口沒有實現

procedure TForm1.Button2Click(Sender: TObject);
var
Doc:IHTMLDocument2;
input:OleVariant;
TT:ihtmlinputelement;

begin
doc:=webbrowser1.document as ihtmldocument2;
tt:=(doc.all.item('chatInput',0) as ihtmlinputelement);
tt.value:=edit1.text;
end;

如下爲能夠操做的：

一、mmo1.Lines.Add(wb1.OleObject.Document.getElementByID('issue_description').innerText);   //journal-29606-notes

<textarea class="wiki-edit" cols="60" id="issue_description" name="issue[description]" rows="10">
要獲取的內容</textarea>

<div class="wiki editable" id="journal-29606-notes"><div class="contextual"><a href="/redmine/issues/4635/quoted?journal_id=29606" data-method="post" data-remote="true" rel="nofollow" title="引用"><img alt="Comment" src="/redmine/images/comment.png?1409696303" /></a> <a href="#" onclick="$.ajax({url: &#x27;/redmine/journals/edit/29606.js&#x27;, type: &#x27;get&#x27;}); return false;" title="編輯"><img alt="Edit" src="/redmine/images/edit.png?1409696303" /></a></div><p>經過修改ID也能夠獲取這裏面的內容</p></div>

 

二、http://www.cnblogs.com/jxsoft/archive/2011/07/18/2109127.html

解決了本人 修改編輯框裏面的內容；

 給HtmlElement設置Value屬性

procedure SetValueTextAreaName(web: TWebBrowser; elementName, value: string;index: integer);begin(((web.Document as IHTMLDocument2).body.all asIHTMLElementCollection).item(elementName, index) as IHTMLTextAreaElement).value := value;end;