如何将memo里的东西写到网页上的textarea里
如何将memo里的东西写到网页上的textarea里
我是新手入门，希望有热心的朋友能指点一下~
问题点数：0、回复次数：7Top
1 楼huojiehai（海天子）回复于 2003-08-02 14:43:17 得分 0
哪的memo呀，你说得清楚点，
要是Application和Ie通讯，很难做到的Top
2 楼FrameSniper（http://naoku.net/blogs/framesniper/）回复于 2003-08-02 14:49:01 得分 0
学习 .........Top
3 楼docetism（一天到晚游泳的鱼）回复于 2003-08-02 14:50:09 得分 0
就是随便哪个form的memo啊
具体是这样：
窗体上有一个form，一个按扭
然后点一下按钮，把memo的东西复制到网页上的textarea里
就是这样，虽然我知道很简单，但我是新手，没接触过，所以希望有人能帮忙给讲解一下
分数一定送上Top
4 楼docetism（一天到晚游泳的鱼）回复于 2003-08-04 19:37:32 得分 0
难道就没人能帮忙救菜鸟吗？Top
5 楼huojiehai（海天子）回复于 2003-08-04 19:46:12 得分 0
这个问题不简单！！！Top
6 楼docetism（一天到晚游泳的鱼）回复于 2003-08-04 20:01:42 得分 0
我记得vb下可以找到页面里这个控件的句柄，然后把内容写进去，delphi不行吗？Top
7 楼westfly（左眼）回复于 2003-08-05 10:45:51 得分 0
//容易，以本贴为例
uses ShDocVw, MSHtml, ActiveX;
procedure TForm1.Button1Click(Sender: TObject);
const
bbs = 'http://expert.csdn.net/Expert/topic/2101/2101191.xml?temp=.208172';
var
Win: IShellWindows;
Web: IWebBrowser2;
doc: IHtmlDocument2;
form: IHtmlFormElement;
textarea: IHTMLTextAreaElement;
itemname, itemindex: OleVariant;
I: Integer;
begin
Win := CoShellWindows.Create;
try
// 枚举所有ie窗口
for I := 0 to Win.Count - 1 do
begin
Web := Win.Item(I) as IWebBrowser2;
Log(Web.LocationURL);
if Web.LocationURL = bbs then
begin
Web.Document.QueryInterface(IHtmlDocument2, doc);
itemname := 'XmlRePly';
doc := (IDispatch(doc.frames.item(itemname)) as IHtmlWindow2).document as IHtmlDocument2;
itemindex := 0;
form := doc.forms.item(itemname, itemindex) as IHtmlFormElement;
itemname := 'ReplyContent';
textarea := form.item(itemname, itemindex) as IHtmlTextAreaElement;
textarea.value := Memo1.Text;
end;
end;
finally
Win := nil;
end;
end;
procedure TForm1.Log(msg: String);
begin
Memo1.Lines.Add(msg);
end;Top
