那位高手帮我把delphi代码转bcb代码,谢谢
procedure ShowInWebBrowser(WebB:TWebBrowser; Str:String);
var
v: Variant;
HTMLDocument: IHTMLDocument2;
begin
HTMLDocument:= WebB.Document as IHTMLDocument2;
if (Assigned(HtmlDocument)) then
begin
v:= VarArrayCreate([0, 0], varVariant);
v[0]:= Str; //that is to be shown
HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
HTMLDocument.Close;
end;
end;
学习学习，顺便围观老妖！
感谢妖哥的回复，不过这个好像只能写入一条记录，不能写入多条记录。
不知道你说的这个多条记录是什么东东?
谢谢妖哥，已经可以写入多条字符。
End_rbody_62581646//-->
该回复于2010-01-09 15:01:38被版主删除
对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
急用。联系QQ：8775262，谢谢。
需要进行DllImport的地方直接写DLLImport.方法名。
如：DLLImport.GlobalAddAtom(……);
文件：UShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
hongqi162、windindance
此2人长期不在线，特别是windindance
更换有能力的人上
hongqi162还是经常上来转转的
引用
更换有能力的人上
其实也不是什么能力的原因，主要可能是时间问题吧
工作的还要上班，学� ......
