那位高手帮我把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
相关问答：
请问Delphi有树形控件吗？
怎样使用？
Ttreeview
treeview.items.addchild(nil(上级节点),'案发时发'(text));
raize 控件包里面有，csdn有下载的
查帮助TTreeView和TNode两个类
TTreeView ......
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
急用。联系QQ：8775262，谢谢。
需要进行DllImport的地方直接写DLLImport.方法名。
如：DLLImport.GlobalAddAtom(……);
文件：UShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
hongqi162、windindance
此2人长期不在线，特别是windindance
更换有能力的人上
hongqi162还是经常上来转转的
引用
更换有能力的人上
其实也不是什么能力的原因，主要可能是时间问题吧
工作的还要上班，学� ......
我在网上找了个关于IEBHO的代码，然后按照哪个设置了，后来运行的时候出现
[错误] Unit1.pas(15): Undeclared identifier: 'GetTypeInfoCount'
[错误] Unit1.pas(15): Undeclared identifier: 'GetTypeInfo ......
