将Tpublish.dll导入到delphi中，当作控件来用，Tpublish.dll 代码是java写的。现有一个ActiveForm来调用一个普通form，普通form中用到 了Tpublish这个控件，程序运行没有反应，也不报错。是不是ActiveForm不能调用直接导入的.dll控件啊
procedure TAFTranFormX.btnDeployClick(Sender: TObject); //added by chen 070322
Var
i,ret:Integer;
strMsg,filePath:String;
FormDeployInfo:TFormDeployInfo;
list:TStringList;
//publishToUDDI:Tpublish;
begin
isDeploy:=True;
DeployInfo.Clear;
list:=TStringList.Create;
if XActionCtrl.MakeActive then begin
//显示发布功能界面，输入其它的信息如：服务名，操作说明等必要信息
FormDeployInfo:=TFormDeployInfo.Create(self);
for i:=0 to DeployInfo.Count-1 do begin
if FormDeployInfo.ideploy.IndexOf(DeployInfo[i])=-1 then
FormDeployInfo.ideploy.Add(DeployInfo[i]);
end;
if FormDeployInfo.ShowModal=mrOk then begin
if not DirectoryExists(ExtractFilePath(Application.Exename) 'Save\工程\' ProjectName '\WSDL\' XActionCtrl.FrameEventCode) then
if not CreateDir(ExtractFilePath(Application.Exename) 'Save\工程\' ProjectName '\WSDL\' XActionCtrl.FrameEventCode) then
ShowMessage('无法创建文件夹' ExtractFilePath(Application.Exename) 'Save\工程\' ProjectName '\WSDL\' XActionCtrl.FrameEventCode);
preframeeventcode:= XActionCtrl.FrameEventCode;
filePath:=ExtractFilePath(Application.Exename) 'Save\工程\' ProjectName '\WSDL\' XActionCtrl.FrameEventCode '\' FormDeployInfo.ServiceName.Text '.wsdl';
FormDeployInfo.WSDLFile.SaveToFile(filePath);
//ShowMessage('here');
//publishToUDDI:=Tpublish.Create(Self);
FormDeployInfo.publishToUDDI.setbusinessName(FormDeployInfo.lbledtEntityName.text); 这里用到了普通form FormDeployInfo 中的控件Tpublish运行到这里就没有反应了，不报错，程序就不再往下运行了。
FormDeployInfo.publishToUDDI.setuserid(FormDeployInfo.lbledtUDDIUserName.text);
FormDeployInfo.publishToUDDI.setpassword(FormDeployInfo.lbledtUDDIPwd.text);
FormDeployInfo.publishToUDDI.setpublishURL(FormDeployInfo.lbledtUDDIPublishURL.text);
FormDeployInfo.publishToUDDI.setwsdlURL(filePath);
//FormDeployInfo.publishToUDDI.setNewwsdlURL(FormDeployInfo.LabeledEdit1.Text);
//showmessage(publish1.getuserid());
ret:=FormDeployInfo.publishToUDDI.publishToUDDI;
if ret=1 then begin
strMsg := '发布成功！';
list.Add('businessKey=' FormDeployInfo.publishToUDDI.getbusinessKey());
list.Add('tModelKey=' FormDeployInfo.publishToUDDI.gettModelKey());
list.Add('serviceKey=' FormDeployInfo.publishToUDDI.getserviceKey());
list.SaveToFile(ExtractFilePath(Application.Exename) 'Save\工程\' ProjectName '\WSDL\' FormDeployInfo.ServiceName.Text '.key');
end else begin
strMsg := '发布失败！';
end;
//publishToUDDI.Free;
end else
strMsg := '发布取消！';
FormDeployInfo.Free;
end else
strMsg := Format('发布失败：%s',[XActionCtrl.ErrorMsg]);
list.Free;
MessageBox(self.Handle,PChar(strMsg),'提示',MB_OK MB_ICONINFORMATION);
end;
希望高手能帮忙解决，在线等待。。。。。。。。。。。。。谢谢