reateRemote(const MachineName: string): ITest; begin Result := CreateRemoteComObject(MachineName, CLASS_Test) as ITest; end;
end.
/////////////////////////////////////以下为Delphi.net调用COM/COM+源码////////////////////////////
//WebForm1.pas单元:
unit WebForm1;
interface
uses System.Collections, System.ComponentModel, System.Data, System.Drawing, System.Web, System.Web.SessionState, System.Web.UI, System.Web.UI.WebControls, System.Web.UI.HtmlControls, ComProject;
type TWebForm1 = class(System.Web.UI.Page) {$REGION ''''Designer Managed Code''''} strict private procedure InitializeComponent; procedure Button1_Click(sender: System.Object; e: System.EventArgs); {$ENDREGION} strict private procedure Page_Load(sender: System.Object; e: System.EventArgs); strict protected Button1: System.Web.UI.WebControls.Button; Label1: System.Web.UI.WebControls.Label; procedure OnInit(e: EventArgs); override; private { Private Declarations } public { Public Declarations } end;
implementation
{$REGION ''''Designer Managed Code''''} /// <summary> /// Required method for Designer support -- do not modify /// the contents of this method with the code editor. /// </summary> procedure TWebForm1.InitializeComponent; begin Include(Self.Button1.Click, Self.Button1_Click); Include(Self.Load, Self.Page_Load); end; {$ENDREGION}
procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs); begin // TODO: Put user code to initialize the page here end;
procedure TWebForm1.OnInit(e: EventArgs); begin // // Required for Designer support // InitializeComponent; inherited OnInit(e); end;
procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs); var Msg: string; Obj: TObject; begin Obj := Server.CreateObject(''''ComProject.Test''''); Test(Obj).GetMsg(Msg); Label1.Text := Msg; end;
end.
///WebForm1.aspx单元:
<%@ Page language="c#" Debug="true" Codebehind="WebForm1.pas" AutoEventWireup="false" Inherits="WebForm1.TWebForm1" Aspcompat="true"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html> <head> <title></title> <meta name="GENERATOR" content="Borland Package Library 7.1"> </head>
<body ms_positioning="GridLayout"> <form runat="server"> <asp:button id=Button1 style="Z-INDEX: 1; LEFT: 238px; POSITION: absolute; TOP: 158px" runat="server" text="Button"> </asp:button> <asp:label id=Label1 style="Z-INDEX: 2; LEFT: 190px; POSITION: absolute; TOP: 54px" runat="server">Label</asp:label> </form> </body> </html>
上一页 [1] [2] [C语言系列]NET 中C#的switch语句的语法 [聊天工具]Google Suggest十大妙用 [聊天工具]保驾护航Web迅雷 全新版本给你更多安全 [聊天工具]玩转火狐的Cookie 让火狐狸吃好小甜饼! [聊天工具]P2P下载的好工具 POCO完全攻略 [聊天工具]横扫一切高价话费 Vbuzzer八分钱国际长途任你打 [聊天工具]众人拾柴火焰高 改进迅雷于不经意间 迅雷 [聊天工具]中英文互翻 Google Toolbar4中文版试用手记 [聊天工具]巧用µTorrent 体验国外下载站的乐趣 [聊天工具]可远程搜索桌面—Google Desktop 3全新体验
|