【结贴】请问Delphi7中的控件在x3_3002中可以使用不？**

jiahaiming

sp2的补丁
http://bbs.justep.com/forum.php?mod=viewthread&tid=7039

huixiangtao

我在网上找到了sp2包，现在版本和你们一样了，也不出上面错了。
不过加入.dll及.bpl后，工具栏中还是没有出来新的控件,可能是那儿还有问题。不过和成功近了一步^_^谢谢大家帮助,

jiahaiming

看手册：重置控件工具箱

huixiangtao

我重置了工具栏，但是不出来。
我参考了如何在X3中引入外部控件.pdf，Page10,page14,到了第四步，但是出现page6,问题5，又出现问题3,Error loading type library,是不是使用Socket.pas文件还要改造？
但是我用delphi6打开你们的adocomps.dll也会出Error loading type library呀，却是可以加入x3正常使用的。
你们谁能帮我实验一下如何把Internet控件组加到x3中不，要用到TTCPServer，XMLDocument，现在催得比较急了，非常感谢。

huixiangtao

发现对象浏览器中TTcpServer也出来了，只是x3工具栏中不出现

jiahaiming

检查一下，是否Register函数问题。

huixiangtao

好象加上register就能出来了，下午再试下使用是否都正常。
谢谢～

huixiangtao

我希望把TXmlDocument,和TTcpServer中放在我的MyInternet控件中。刚才只有Sockets.pas文件时TTcpServer是好的。
Sockets.pas
procedure Register; //taohx 2008-4-28
implementation
procedure Register;
begin
  RegisterComponents('MyInternet', [TTcpServer]);
  RegisterComponents('MyInternet', [TTcpClient]);
end;
XMLDoc.pas
procedure Register; //taohx 2008-4-28
implementation
procedure Register;
begin
  RegisterComponents('MyInternet', [TXMLDocument]);
  RegisterComponents('MyInternet', [TXMLNode]);
  RegisterComponents('MyInternet', [TXMLNodeList]);
end;

MySocket.bat内容：
delphiimporter "Sockets.pas;XMLDoc.pas" internet.dll -pl -pb -DMSWINDOWS;VER140;D3;D4;D5;D6;WIN32 -u%cd%;%cd%ImpSrc;%cd%lib -cinternet.ipr -o%cd%lib
pause
运行时错误，如图

jiahaiming

应该是平台中已经有了。
楼主只导入tcpserver、tcpclient就可以了

huixiangtao

我在delphi中下列代码是可以用的，但是在平台上运行时出错,该如何改呢？(实现把xml读出写到数据库中)
procedure  TForm1.xmlMsg2DB(xmlData:String);
var
  xmlDoc:IXMLDocument;
  rootNode,curNode:IXMLNode;
  i:Integer;
  s:String;
begin
    ////DataSet
    if not ADODataSet1.Active then
    begin
    ADODataSet1.Open;
    end;
    xmlDoc:= TXMLDocument.Create(nil);
    xmlDoc.Active:=true;
    xmlDoc.Encoding :='GB2312';
    xmlDoc.LoadFromXml(xmlData);//
    rootNode:=xmlDoc.DocumentElement;// rootNode
    curNode:=rootNode.ChildNodes.FindNode('alarmItem');
    try
      if curNode <> nil then
     begin
         ADODataSet1.Append; //因故障xml只有一条报警，故只须插入一次
         for i :=0  to curNode.ChildNodes.Count -1 do
          begin
           s:=s+curNode.ChildNodes.NodeValue+',';
           ADODataSet1.FieldByName(curNode.ChildNodes.NodeName).AsString:=curNode.ChildNodes.NodeValue;
           end;
          ADODataSet1.Post;
          edtXmlData.Text:=s;
          ADODataSet1.Refresh;
          DBGrid1.Refresh;
     end;
    except
       on e:exception do
        showmessage('Xml-->DataBase Failed!'+e.Message);
    end;

end;

////改在x3平台上用
procedure TBJJKGNTCPFS.xmlMsg2DB(xmlData:String);
var
  xmlDoc:TXMLDocument;
  rootNode,curNode:IXMLNode;
  i:Integer;
  s:String;
begin
    ////DataSet
    if not dsb_Alarm.DataSet.Active then
    begin
    dsb_Alarm.DataSet.Open;
    end;
    //xmlDoc:= TXMLDocument.Create(nil);//delphi
    xmlDoc:= TXMLDocument.Create(Self); //执行到这儿出错
    xmlDoc.Active:=true;
    xmlDoc.Encoding :='GB2312';
    xmlDoc.LoadFromXml(xmlData);//
    rootNode:=xmlDoc.DocumentElement;// rootNode
    curNode:=rootNode.ChildNodes.FindNode('alarmItem');
    try
      if curNode <> nil then
     begin
         dsb_Alarm.DataSet.Append; //因故障xml只有一条报警，故只须插入一次
         for i :=0  to curNode.ChildNodes.Count -1 do
          begin
           s:=s+curNode.ChildNodes.GetText+',';
           dsb_Alarm.DataSet.FieldByName(curNode.ChildNodes.NodeName).AsString:=curNode.ChildNodes.GetText;
           end;
          dsb_Alarm.DataSet.Post;
          edtXmlData.Text:=s;
          dsb_Alarm.DataSet.Refresh;
          DataGrid1.Refresh;
     end;
    except
       on e:exception do
        jsDialogs.ShowMsg(e.Message,'Xml-->DataBase Failed!');
    end;

end;
在