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] | 
