Delphi Webbrowser 修改 textarea 值 百度
有个按钮 调用 <a href="#" onclick="$.ajax({url: '/redmine/journals/edit/29606.js', type: 'get'}); 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=\"✓\" /><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 {"STATE":200,"DESC":"执行成功","LIST":[{"OPERATORNAME":"运营商名","BREAKINGLINETIME":10.56,"BREAKINGTIMES":1,"BREAKINGLINERATE":1.5},{"OPERATORNAME":"ADCAP","BREAKINGLINETIME":1.0445,"BREAKINGTIMES":123,"BREAKINGLINERATE":0.55}],"COUNT":2}43502 {"STATE":200,"DESC":"执行成功","LIST":[{"OPERATORNAME":"WSDF","BREAKINGLINESTARTIME":"2015-08-28 00:00:00","BREAKINGLINEENDTIME":"2015-08-28 00:00:00","BREAKINGLINETIME":10.22},{"OPERATORNAME":"ASF是否","BREAKINGLINESTARTIME":"2015-08-27 10:26:52","BREAKINGLINEENDTIME":"2015-08-28 10:26:57","BREAKINGLINETIME":10.4}],"COUNT":2}43503 {"STATE":200,"DESC":"执行成功","LIST":[{"STRATIVEID":123,"OPERATORNAME":"123"},{"STRATIVEID":123,"OPERATORNAME":"123"},{"STRATIVEID":123,"OPERATORNAME":"123"},{"STRATIVEID":123,"OPERATORNAME":"123"},{"STRATIVEID":123,"OPERATORNAME":"123"}],"COUNT":72}\n<\/textarea>\n \n <p><input name=\"commit\" type=\"submit\" value=\"保存\" />\n <a accesskey=\"r\" href=\"#\" onclick=\"submitPreview("/redmine/issues/preview/edit/4635?project_id=industry", "journal-29606-form", "journal_29606_preview"); return false;\">预览<\/a> |\n <a href=\"#\" onclick=\"$('#journal-29606-form').remove(); $('#journal-29606-notes').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');
暂时没法找到方法:
http://www.itnose.net/detail/456763.html
你属性设置错误:textarea不是设置InnerText,而是设置HtmlElement实例.SetAttribute("value","你的文本") 不行 估计是别的编程语言
2、也不行,提示说 接口没有实现
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;
以下为可以操作的:
1、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: '/redmine/journals/edit/29606.js', type: 'get'}); return false;" title="编辑"><img alt="Edit" src="/redmine/images/edit.png?1409696303" /></a></div><p>通过修改ID也可以获取这里面的内容</p></div>
2、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 as
IHTMLElementCollection).item(elementName, index) as IHTMLTextAreaElement
).value := value;
end;
Delphi Webbrowser 修改 textarea 值 百度的更多相关文章
- delphi WebBrowser控件上网页验证码图片识别教程(一)
步骤一:获取网页中验证码图片的url地址 在delphi中加入一个BitBtn和一个memo以及WebBrowser控件实现网页中验证码图片的url地址的获取 程序如下:procedure TForm ...
- Delphi WebBrowser控件的使用(大全 good)
Delphi WebBrowser控件的使用 WebBrowser控件属性:1.Application 如果该对象有效,则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDis ...
- delphi WebBrowser的使用方法详解(五)-难点释疑
网页代码:<SELECT id=fy onchange=TouchRefresh(1) name=fy> <OPTION selected value=15>每頁顯示15筆&l ...
- <总结>delphi WebBrowser控件的使用中出现的bug
Delphi WebBrowser控件的使用中出现的bug: 1.WebBrowser.Visible=false:Visible属性不能使WebBrowser控件不可见,暂时用 WebBrowse ...
- 如何用DELPHI编程修改外部EXE文件的版本信
右击里面有修改 点开直接修改就可以了吧. DELPHI 里程序的版本信息怎么是灰色的,无法更改 耐心读以下说明,应该能解决你的问题,如果不能解决,请Hi我~ 如何给自己的dll文件添加版本信息呢? 首 ...
- delphi版本修改PE头源码
//VC++6外衣 1 OEPCODEFIVE: THEAD = ($55, $8B, $EC, $6A, $FF, $68, $00, $00, $00, $00, $68, $00, $00, $ ...
- 工欲善其事,必先利其器 软件工具开发关键词 protractor自动化测试工具 RegexBuddy正则 CodeSmith,LightSwitch:代码生成 CheatEngine:玩游戏修改内存值必备神器 ApkIDE:Android反编译工具 Reflector:反编译dll动态链接库
工欲善其事,必先利其器 本文版权归翟士丹(Stan Zhai)和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文链接,否则保留追究法律责任的权利. 原文地址:http ...
- jQuery动态对表格Table进行添加或删除行以及修改列值操作
jQuery,不仅可以以少量的代码做很多操作,而且兼容性好(各种浏览器,各种版本). 下面用jQuery动态对表格Table进行添加或删除行以及修改列值操作 1.jQuery代码 <script ...
- 使用jQuery的attr方法来修改onclick值
这篇文章主要介绍了通过jQuery的attr修改onclick值的解决方法 ,需要的朋友可以参考下 var js = "alert('B:' + this.id); return false ...
随机推荐
- java学习笔记一
数据类型 Java数据类型分为两大类:基本数据类型和复合数据类型,其中复合数据类型包括数组.类和接口. 基本数据类型(默认值只在类中有,函数变量无初始值) int 32bit 0 boolean 1b ...
- 【转载】Arcengine效率探究之二——属性的更新
文转载自hymyjl2010<Arcengine效率探究之二——属性的更新> 修改一批要素的属性有多种方法,当数据量较大时,若选择不当可能会大大影响速度. 一.IRowBuffer 方 ...
- HashMap Hasptable的区别
HashTable的应用非常广泛,HashMap是新框架中用来代替HashTable的类,也就是说建议使用HashMap,不要使用HashTable.可能你觉得HashTable很好用,为什么不用呢? ...
- [Java] JSP笔记 - Java Bean
一. Java Bean 是什么? Java Bean 其实就是一个符合特定规则的 Java Class.这些规则包括: 使用 public 声明的公用类 属性使用public 的get,set方法访 ...
- ThinkPHP3.2.3整合smarty模板(二)
前言:继ThinkPHP3.2.3整合smarty模板(一)之后,继续来探讨一下tp框架整合smarty模板,看到有人在群上问到怎么使用自定义的常量,今天就具体来谈谈: 一.开发一个项目,必不可少会用 ...
- Anynote 基于ExtJS多用户个人信息管理系统
Anynote——个人信息管理系统 —–主要用于学习交流—– 源码下载:https://git.oschina.net/xiyt/Anynote.git 一.系统说明 Anynote是一个基于extj ...
- 【重装系统】线上Linux服务器(2TB)分区参考方案
如果是线上服务器,假设它是 2TB 的 SATA 硬盘.8GB 内存,建议按如下方式进行分区: / 20480M(20G)(主分区) /boot 128M swap 10240M /data 2016 ...
- 【Python基础学习六】函数
1.创建函数 Python中函数的关键字def来定义. def fibs(num): f=[0,1] for i in range(1,num): f.append(f[-1]+f[-2]) retu ...
- 启动apache和tomcat端口被占用解决办法
1,打开控制台,使用命令 netstat -aon|findstr 8090 找出端口被占用的进程, 2,使用 taskkill -f -pid 4116(进程id)杀掉当前占用端口的进程
- 《sqoop实现hdfs中的数据导出至mysql数据库》
报错Access denied for user 'root'@'localhost' (using password: YES) 参考一 参考二 登陆mysql时,root密码的修改 参考帖子h ...