Delphi控件源码

开发平台：

Delphi

MSXML2_TLB.pas：源码内容

begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TXSLTemplate.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TXSLTemplateProperties.Create(Self);
{$ENDIF}
end;
destructor TXSLTemplate.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TXSLTemplate.GetServerProperties: TXSLTemplateProperties;
begin
Result := FProps;
end;
{$ENDIF}
procedure TXSLTemplate.Set_stylesheet(const stylesheet: IXMLDOMNode);
begin
DefaultInterface.Set_stylesheet(stylesheet);
end;
function TXSLTemplate.Get_stylesheet: IXMLDOMNode;
begin
Result := DefaultInterface.Get_stylesheet;
end;
function TXSLTemplate.createProcessor: IXSLProcessor;
begin
Result := DefaultInterface.createProcessor;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TXSLTemplateProperties.Create(AServer: TXSLTemplate);
begin
inherited Create;
FServer := AServer;
end;
function TXSLTemplateProperties.GetDefaultInterface: IXSLTemplate;
begin
Result := FServer.DefaultInterface;
end;
procedure TXSLTemplateProperties.Set_stylesheet(const stylesheet: IXMLDOMNode);
begin
DefaultInterface.Set_stylesheet(stylesheet);
end;
function TXSLTemplateProperties.Get_stylesheet: IXMLDOMNode;
begin
Result := DefaultInterface.Get_stylesheet;
end;
{$ENDIF}
class function CoXSLTemplate26.Create: IXSLTemplate;
begin
Result := CreateComObject(CLASS_XSLTemplate26) as IXSLTemplate;
end;
class function CoXSLTemplate26.CreateRemote(const MachineName: string): IXSLTemplate;
begin
Result := CreateRemoteComObject(MachineName, CLASS_XSLTemplate26) as IXSLTemplate;
end;
procedure TXSLTemplate26.InitServerData;
const
CServerData: TServerData = (
ClassID: '{F5078F21-C551-11D3-89B9-0000F81FE221}';
IntfIID: '{2933BF93-7B36-11D2-B20E-00C04F983E60}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TXSLTemplate26.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IXSLTemplate;
end;
end;
procedure TXSLTemplate26.ConnectTo(svrIntf: IXSLTemplate);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TXSLTemplate26.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TXSLTemplate26.GetDefaultInterface: IXSLTemplate;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TXSLTemplate26.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TXSLTemplate26Properties.Create(Self);
{$ENDIF}
end;
destructor TXSLTemplate26.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TXSLTemplate26.GetServerProperties: TXSLTemplate26Properties;
begin
Result := FProps;
end;
{$ENDIF}
procedure TXSLTemplate26.Set_stylesheet(const stylesheet: IXMLDOMNode);
begin
DefaultInterface.Set_stylesheet(stylesheet);
end;
function TXSLTemplate26.Get_stylesheet: IXMLDOMNode;
begin
Result := DefaultInterface.Get_stylesheet;
end;
function TXSLTemplate26.createProcessor: IXSLProcessor;
begin
Result := DefaultInterface.createProcessor;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TXSLTemplate26Properties.Create(AServer: TXSLTemplate26);
begin
inherited Create;
FServer := AServer;
end;
function TXSLTemplate26Properties.GetDefaultInterface: IXSLTemplate;
begin
Result := FServer.DefaultInterface;
end;
procedure TXSLTemplate26Properties.Set_stylesheet(const stylesheet: IXMLDOMNode);
begin
DefaultInterface.Set_stylesheet(stylesheet);
end;
function TXSLTemplate26Properties.Get_stylesheet: IXMLDOMNode;
begin
Result := DefaultInterface.Get_stylesheet;
end;
{$ENDIF}
class function CoXSLTemplate30.Create: IXSLTemplate;
begin
Result := CreateComObject(CLASS_XSLTemplate30) as IXSLTemplate;
end;
class function CoXSLTemplate30.CreateRemote(const MachineName: string): IXSLTemplate;
begin
Result := CreateRemoteComObject(MachineName, CLASS_XSLTemplate30) as IXSLTemplate;
end;
procedure TXSLTemplate30.InitServerData;
const
CServerData: TServerData = (
ClassID: '{F5078F36-C551-11D3-89B9-0000F81FE221}';
IntfIID: '{2933BF93-7B36-11D2-B20E-00C04F983E60}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TXSLTemplate30.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IXSLTemplate;
end;
end;
procedure TXSLTemplate30.ConnectTo(svrIntf: IXSLTemplate);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TXSLTemplate30.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TXSLTemplate30.GetDefaultInterface: IXSLTemplate;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TXSLTemplate30.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TXSLTemplate30Properties.Create(Self);
{$ENDIF}
end;
destructor TXSLTemplate30.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TXSLTemplate30.GetServerProperties: TXSLTemplate30Properties;
begin
Result := FProps;
end;
{$ENDIF}
procedure TXSLTemplate30.Set_stylesheet(const stylesheet: IXMLDOMNode);
begin
DefaultInterface.Set_stylesheet(stylesheet);
end;
function TXSLTemplate30.Get_stylesheet: IXMLDOMNode;
begin
Result := DefaultInterface.Get_stylesheet;
end;
function TXSLTemplate30.createProcessor: IXSLProcessor;
begin
Result := DefaultInterface.createProcessor;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TXSLTemplate30Properties.Create(AServer: TXSLTemplate30);
begin
inherited Create;
FServer := AServer;
end;
function TXSLTemplate30Properties.GetDefaultInterface: IXSLTemplate;
begin
Result := FServer.DefaultInterface;
end;
procedure TXSLTemplate30Properties.Set_stylesheet(const stylesheet: IXMLDOMNode);
begin
DefaultInterface.Set_stylesheet(stylesheet);
end;
function TXSLTemplate30Properties.Get_stylesheet: IXMLDOMNode;
begin
Result := DefaultInterface.Get_stylesheet;
end;
{$ENDIF}
class function CoDSOControl.Create: IDSOControl;
begin
Result := CreateComObject(CLASS_DSOControl) as IDSOControl;
end;
class function CoDSOControl.CreateRemote(const MachineName: string): IDSOControl;
begin
Result := CreateRemoteComObject(MachineName, CLASS_DSOControl) as IDSOControl;
end;
procedure TDSOControl.InitServerData;
const
CServerData: TServerData = (
ClassID: '{F6D90F14-9C73-11D3-B32E-00C04F990BB4}';
IntfIID: '{310AFA62-0575-11D2-9CA9-0060B0EC3D39}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TDSOControl.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IDSOControl;
end;
end;
procedure TDSOControl.ConnectTo(svrIntf: IDSOControl);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TDSOControl.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TDSOControl.GetDefaultInterface: IDSOControl;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TDSOControl.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TDSOControlProperties.Create(Self);
{$ENDIF}
end;
destructor TDSOControl.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TDSOControl.GetServerProperties: TDSOControlProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TDSOControl.Get_XMLDocument: IXMLDOMDocument;
begin
Result := DefaultInterface.Get_XMLDocument;
end;
procedure TDSOControl.Set_XMLDocument(const ppDoc: IXMLDOMDocument);
begin
DefaultInterface.Set_XMLDocument(ppDoc);
end;
function TDSOControl.Get_JavaDSOCompatible: Integer;
begin
Result := DefaultInterface.Get_JavaDSOCompatible;
end;
procedure TDSOControl.Set_JavaDSOCompatible(fJavaDSOCompatible: Integer);
begin
DefaultInterface.Set_JavaDSOCompatible(fJavaDSOCompatible);
end;
function TDSOControl.Get_readyState: Integer;
begin
Result := DefaultInterface.Get_readyState;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TDSOControlProperties.Create(AServer: TDSOControl);
begin
inherited Create;
FServer := AServer;
end;
function TDSOControlProperties.GetDefaultInterface: IDSOControl;
begin
Result := FServer.DefaultInterface;
end;
function TDSOControlProperties.Get_XMLDocument: IXMLDOMDocument;
begin
Result := DefaultInterface.Get_XMLDocument;
end;
procedure TDSOControlProperties.Set_XMLDocument(const ppDoc: IXMLDOMDocument);
begin
DefaultInterface.Set_XMLDocument(ppDoc);
end;
function TDSOControlProperties.Get_JavaDSOCompatible: Integer;
begin
Result := DefaultInterface.Get_JavaDSOCompatible;
end;
procedure TDSOControlProperties.Set_JavaDSOCompatible(fJavaDSOCompatible: Integer);
begin
DefaultInterface.Set_JavaDSOCompatible(fJavaDSOCompatible);
end;
function TDSOControlProperties.Get_readyState: Integer;
begin
Result := DefaultInterface.Get_readyState;
end;
{$ENDIF}
class function CoDSOControl26.Create: IDSOControl;
begin
Result := CreateComObject(CLASS_DSOControl26) as IDSOControl;
end;
class function CoDSOControl26.CreateRemote(const MachineName: string): IDSOControl;
begin
Result := CreateRemoteComObject(MachineName, CLASS_DSOControl26) as IDSOControl;
end;
procedure TDSOControl26.InitServerData;
const
CServerData: TServerData = (
ClassID: '{F5078F1F-C551-11D3-89B9-0000F81FE221}';
IntfIID: '{310AFA62-0575-11D2-9CA9-0060B0EC3D39}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TDSOControl26.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IDSOControl;
end;
end;
procedure TDSOControl26.ConnectTo(svrIntf: IDSOControl);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TDSOControl26.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TDSOControl26.GetDefaultInterface: IDSOControl;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TDSOControl26.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TDSOControl26Properties.Create(Self);
{$ENDIF}
end;
destructor TDSOControl26.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TDSOControl26.GetServerProperties: TDSOControl26Properties;
begin
Result := FProps;
end;
{$ENDIF}
function TDSOControl26.Get_XMLDocument: IXMLDOMDocument;
begin
Result := DefaultInterface.Get_XMLDocument;
end;
procedure TDSOControl26.Set_XMLDocument(const ppDoc: IXMLDOMDocument);
begin
DefaultInterface.Set_XMLDocument(ppDoc);
end;
function TDSOControl26.Get_JavaDSOCompatible: Integer;
begin
Result := DefaultInterface.Get_JavaDSOCompatible;
end;
procedure TDSOControl26.Set_JavaDSOCompatible(fJavaDSOCompatible: Integer);
begin
DefaultInterface.Set_JavaDSOCompatible(fJavaDSOCompatible);
end;
function TDSOControl26.Get_readyState: Integer;
begin
Result := DefaultInterface.Get_readyState;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TDSOControl26Properties.Create(AServer: TDSOControl26);
begin
inherited Create;
FServer := AServer;
end;
function TDSOControl26Properties.GetDefaultInterface: IDSOControl;
begin
Result := FServer.DefaultInterface;
end;
function TDSOControl26Properties.Get_XMLDocument: IXMLDOMDocument;
begin
Result := DefaultInterface.Get_XMLDocument;
end;
procedure TDSOControl26Properties.Set_XMLDocument(const ppDoc: IXMLDOMDocument);
begin
DefaultInterface.Set_XMLDocument(ppDoc);
end;
function TDSOControl26Properties.Get_JavaDSOCompatible: Integer;
begin
Result := DefaultInterface.Get_JavaDSOCompatible;
end;
procedure TDSOControl26Properties.Set_JavaDSOCompatible(fJavaDSOCompatible: Integer);
begin
DefaultInterface.Set_JavaDSOCompatible(fJavaDSOCompatible);
end;
function TDSOControl26Properties.Get_readyState: Integer;
begin
Result := DefaultInterface.Get_readyState;
end;
{$ENDIF}
class function CoDSOControl30.Create: IDSOControl;
begin
Result := CreateComObject(CLASS_DSOControl30) as IDSOControl;
end;
class function CoDSOControl30.CreateRemote(const MachineName: string): IDSOControl;
begin
Result := CreateRemoteComObject(MachineName, CLASS_DSOControl30) as IDSOControl;
end;
procedure TDSOControl30.InitServerData;
const
CServerData: TServerData = (
ClassID: '{F5078F39-C551-11D3-89B9-0000F81FE221}';
IntfIID: '{310AFA62-0575-11D2-9CA9-0060B0EC3D39}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TDSOControl30.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IDSOControl;
end;
end;
procedure TDSOControl30.ConnectTo(svrIntf: IDSOControl);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TDSOControl30.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TDSOControl30.GetDefaultInterface: IDSOControl;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TDSOControl30.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TDSOControl30Properties.Create(Self);
{$ENDIF}
end;
destructor TDSOControl30.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TDSOControl30.GetServerProperties: TDSOControl30Properties;
begin
Result := FProps;
end;
{$ENDIF}
function TDSOControl30.Get_XMLDocument: IXMLDOMDocument;
begin
Result := DefaultInterface.Get_XMLDocument;
end;
procedure TDSOControl30.Set_XMLDocument(const ppDoc: IXMLDOMDocument);
begin
DefaultInterface.Set_XMLDocument(ppDoc);
end;
function TDSOControl30.Get_JavaDSOCompatible: Integer;
begin
Result := DefaultInterface.Get_JavaDSOCompatible;
end;
procedure TDSOControl30.Set_JavaDSOCompatible(fJavaDSOCompatible: Integer);
begin
DefaultInterface.Set_JavaDSOCompatible(fJavaDSOCompatible);
end;
function TDSOControl30.Get_readyState: Integer;
begin
Result := DefaultInterface.Get_readyState;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TDSOControl30Properties.Create(AServer: TDSOControl30);
begin
inherited Create;
FServer := AServer;
end;
function TDSOControl30Properties.GetDefaultInterface: IDSOControl;
begin
Result := FServer.DefaultInterface;
end;
function TDSOControl30Properties.Get_XMLDocument: IXMLDOMDocument;
begin
Result := DefaultInterface.Get_XMLDocument;
end;
procedure TDSOControl30Properties.Set_XMLDocument(const ppDoc: IXMLDOMDocument);
begin
DefaultInterface.Set_XMLDocument(ppDoc);
end;
function TDSOControl30Properties.Get_JavaDSOCompatible: Integer;
begin
Result := DefaultInterface.Get_JavaDSOCompatible;
end;
procedure TDSOControl30Properties.Set_JavaDSOCompatible(fJavaDSOCompatible: Integer);
begin
DefaultInterface.Set_JavaDSOCompatible(fJavaDSOCompatible);
end;
function TDSOControl30Properties.Get_readyState: Integer;
begin
Result := DefaultInterface.Get_readyState;
end;
{$ENDIF}
class function CoXMLHTTP.Create: IXMLHTTPRequest;
begin
Result := CreateComObject(CLASS_XMLHTTP) as IXMLHTTPRequest;
end;
class function CoXMLHTTP.CreateRemote(const MachineName: string): IXMLHTTPRequest;
begin
Result := CreateRemoteComObject(MachineName, CLASS_XMLHTTP) as IXMLHTTPRequest;
end;
procedure TXMLHTTP.InitServerData;
const
CServerData: TServerData = (
ClassID: '{F6D90F16-9C73-11D3-B32E-00C04F990BB4}';
IntfIID: '{ED8C108D-4349-11D2-91A4-00C04F7969E8}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TXMLHTTP.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IXMLHTTPRequest;
end;
end;
procedure TXMLHTTP.ConnectTo(svrIntf: IXMLHTTPRequest);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TXMLHTTP.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TXMLHTTP.GetDefaultInterface: IXMLHTTPRequest;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TXMLHTTP.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TXMLHTTPProperties.Create(Self);
{$ENDIF}
end;
destructor TXMLHTTP.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TXMLHTTP.GetServerProperties: TXMLHTTPProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TXMLHTTP.Get_status: Integer;
begin
Result := DefaultInterface.Get_status;
end;
function TXMLHTTP.Get_statusText: WideString;
begin
Result := DefaultInterface.Get_statusText;
end;
function TXMLHTTP.Get_responseXML: IDispatch;
begin
Result := DefaultInterface.Get_responseXML;
end;
function TXMLHTTP.Get_responseText: WideString;
begin
Result := DefaultInterface.Get_responseText;
end;
function TXMLHTTP.Get_responseBody: OleVariant;
begin
Result := DefaultInterface.Get_responseBody;
end;
function TXMLHTTP.Get_responseStream: OleVariant;
begin
Result := DefaultInterface.Get_responseStream;
end;
function TXMLHTTP.Get_readyState: Integer;
begin
Result := DefaultInterface.Get_readyState;
end;
procedure TXMLHTTP.Set_onreadystatechange(const Param1: IDispatch);
begin
DefaultInterface.Set_onreadystatechange(Param1);
end;
procedure TXMLHTTP.open(const bstrMethod: WideString; const bstrUrl: WideString);
begin
DefaultInterface.open(bstrMethod, bstrUrl, EmptyParam, EmptyParam, EmptyParam);
end;
procedure TXMLHTTP.open(const bstrMethod: WideString; const bstrUrl: WideString;
varAsync: OleVariant);
begin
DefaultInterface.open(bstrMethod, bstrUrl, varAsync, EmptyParam, EmptyParam);
end;
procedure TXMLHTTP.open(const bstrMethod: WideString; const bstrUrl: WideString;
varAsync: OleVariant; bstrUser: OleVariant);
begin
DefaultInterface.open(bstrMethod, bstrUrl, varAsync, bstrUser, EmptyParam);
end;
procedure TXMLHTTP.open(const bstrMethod: WideString; const bstrUrl: WideString;
varAsync: OleVariant; bstrUser: OleVariant; bstrPassword: OleVariant);
begin
DefaultInterface.open(bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword);
end;
procedure TXMLHTTP.setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString);
begin
DefaultInterface.setRequestHeader(bstrHeader, bstrValue);
end;
function TXMLHTTP.getResponseHeader(const bstrHeader: WideString): WideString;
begin
Result := DefaultInterface.getResponseHeader(bstrHeader);
end;
function TXMLHTTP.getAllResponseHeaders: WideString;
begin
Result := DefaultInterface.getAllResponseHeaders;
end;
procedure TXMLHTTP.send;
begin
DefaultInterface.send(EmptyParam);
end;
procedure TXMLHTTP.send(varBody: OleVariant);
begin
DefaultInterface.send(varBody);
end;
procedure TXMLHTTP.abort;
begin
DefaultInterface.abort;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TXMLHTTPProperties.Create(AServer: TXMLHTTP);
begin
inherited Create;
FServer := AServer;
end;
function TXMLHTTPProperties.GetDefaultInterface: IXMLHTTPRequest;
begin
Result := FServer.DefaultInterface;
end;
function TXMLHTTPProperties.Get_status: Integer;
begin
Result := DefaultInterface.Get_status;
end;
function TXMLHTTPProperties.Get_statusText: WideString;
begin
Result := DefaultInterface.Get_statusText;
end;
function TXMLHTTPProperties.Get_responseXML: IDispatch;
begin
Result := DefaultInterface.Get_responseXML;
end;
function TXMLHTTPProperties.Get_responseText: WideString;
begin
Result := DefaultInterface.Get_responseText;
end;
function TXMLHTTPProperties.Get_responseBody: OleVariant;
begin
Result := DefaultInterface.Get_responseBody;
end;
function TXMLHTTPProperties.Get_responseStream: OleVariant;
begin
Result := DefaultInterface.Get_responseStream;
end;
function TXMLHTTPProperties.Get_readyState: Integer;
begin
Result := DefaultInterface.Get_readyState;
end;
procedure TXMLHTTPProperties.Set_onreadystatechange(const Param1: IDispatch);
begin
DefaultInterface.Set_onreadystatechange(Param1);
end;
{$ENDIF}
class function CoXMLHTTP26.Create: IXMLHTTPRequest;
begin
Result := CreateComObject(CLASS_XMLHTTP26) as IXMLHTTPRequest;
end;
class function CoXMLHTTP26.CreateRemote(const MachineName: string): IXMLHTTPRequest;
begin
Result := CreateRemoteComObject(MachineName, CLASS_XMLHTTP26) as IXMLHTTPRequest;
end;
procedure TXMLHTTP26.InitServerData;
const
CServerData: TServerData = (
ClassID: '{F5078F1E-C551-11D3-89B9-0000F81FE221}';
IntfIID: '{ED8C108D-4349-11D2-91A4-00C04F7969E8}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TXMLHTTP26.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IXMLHTTPRequest;
end;
end;
procedure TXMLHTTP26.ConnectTo(svrIntf: IXMLHTTPRequest);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TXMLHTTP26.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TXMLHTTP26.GetDefaultInterface: IXMLHTTPRequest;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TXMLHTTP26.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TXMLHTTP26Properties.Create(Self);
{$ENDIF}
end;
destructor TXMLHTTP26.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TXMLHTTP26.GetServerProperties: TXMLHTTP26Properties;
begin
Result := FProps;
end;
{$ENDIF}
function TXMLHTTP26.Get_status: Integer;
begin
Result := DefaultInterface.Get_status;
end;
function TXMLHTTP26.Get_statusText: WideString;
begin
Result := DefaultInterface.Get_statusText;
end;
function TXMLHTTP26.Get_responseXML: IDispatch;
begin
Result := DefaultInterface.Get_responseXML;
end;
function TXMLHTTP26.Get_responseText: WideString;
begin
Result := DefaultInterface.Get_responseText;
end;
function TXMLHTTP26.Get_responseBody: OleVariant;
begin
Result := DefaultInterface.Get_responseBody;
end;
function TXMLHTTP26.Get_responseStream: OleVariant;
begin
Result := DefaultInterface.Get_responseStream;
end;
function TXMLHTTP26.Get_readyState: Integer;
begin
Result := DefaultInterface.Get_readyState;
end;
procedure TXMLHTTP26.Set_onreadystatechange(const Param1: IDispatch);
begin
DefaultInterface.Set_onreadystatechange(Param1);
end;
procedure TXMLHTTP26.open(const bstrMethod: WideString; const bstrUrl: WideString);
begin
DefaultInterface.open(bstrMethod, bstrUrl, EmptyParam, EmptyParam, EmptyParam);
end;
procedure TXMLHTTP26.open(const bstrMethod: WideString; const bstrUrl: WideString;
varAsync: OleVariant);
begin
DefaultInterface.open(bstrMethod, bstrUrl, varAsync, EmptyParam, EmptyParam);
end;
procedure TXMLHTTP26.open(const bstrMethod: WideString; const bstrUrl: WideString;
varAsync: OleVariant; bstrUser: OleVariant);
begin
DefaultInterface.open(bstrMethod, bstrUrl, varAsync, bstrUser, EmptyParam);
end;
procedure TXMLHTTP26.open(const bstrMethod: WideString; const bstrUrl: WideString;
varAsync: OleVariant; bstrUser: OleVariant; bstrPassword: OleVariant);
begin
DefaultInterface.open(bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword);
end;
procedure TXMLHTTP26.setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString);
begin
DefaultInterface.setRequestHeader(bstrHeader, bstrValue);
end;
function TXMLHTTP26.getResponseHeader(const bstrHeader: WideString): WideString;
begin
Result := DefaultInterface.getResponseHeader(bstrHeader);
end;
function TXMLHTTP26.getAllResponseHeaders: WideString;
begin
Result := DefaultInterface.getAllResponseHeaders;
end;
procedure TXMLHTTP26.send;
begin
DefaultInterface.send(EmptyParam);
end;
procedure TXMLHTTP26.send(varBody: OleVariant);
begin
DefaultInterface.send(varBody);
end;
procedure TXMLHTTP26.abort;
begin
DefaultInterface.abort;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TXMLHTTP26Properties.Create(AServer: TXMLHTTP26);
begin
inherited Create;
FServer := AServer;
end;
function TXMLHTTP26Properties.GetDefaultInterface: IXMLHTTPRequest;
begin
Result := FServer.DefaultInterface;
end;
function TXMLHTTP26Properties.Get_status: Integer;
begin
Result := DefaultInterface.Get_status;
end;
function TXMLHTTP26Properties.Get_statusText: WideString;
begin
Result := DefaultInterface.Get_statusText;
end;
function TXMLHTTP26Properties.Get_responseXML: IDispatch;
begin
Result := DefaultInterface.Get_responseXML;
end;
function TXMLHTTP26Properties.Get_responseText: WideString;
begin
Result := DefaultInterface.Get_responseText;
end;
function TXMLHTTP26Properties.Get_responseBody: OleVariant;
begin
Result := DefaultInterface.Get_responseBody;
end;
function TXMLHTTP26Properties.Get_responseStream: OleVariant;
begin
Result := DefaultInterface.Get_responseStream;
end;
function TXMLHTTP26Properties.Get_readyState: Integer;
begin
Result := DefaultInterface.Get_readyState;
end;
procedure TXMLHTTP26Properties.Set_onreadystatechange(const Param1: IDispatch);
begin
DefaultInterface.Set_onreadystatechange(Param1);
end;
{$ENDIF}
class function CoXMLHTTP30.Create: IXMLHTTPRequest;
begin
Result := CreateComObject(CLASS_XMLHTTP30) as IXMLHTTPRequest;
end;
class function CoXMLHTTP30.CreateRemote(const MachineName: string): IXMLHTTPRequest;
begin
Result := CreateRemoteComObject(MachineName, CLASS_XMLHTTP30) as IXMLHTTPRequest;
end;
procedure TXMLHTTP30.InitServerData;
const
CServerData: TServerData = (
ClassID: '{F5078F35-C551-11D3-89B9-0000F81FE221}';
IntfIID: '{ED8C108D-4349-11D2-91A4-00C04F7969E8}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TXMLHTTP30.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IXMLHTTPRequest;
end;
end;
procedure TXMLHTTP30.ConnectTo(svrIntf: IXMLHTTPRequest);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TXMLHTTP30.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TXMLHTTP30.GetDefaultInterface: IXMLHTTPRequest;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TXMLHTTP30.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TXMLHTTP30Properties.Create(Self);
{$ENDIF}
end;
destructor TXMLHTTP30.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TXMLHTTP30.GetServerProperties: TXMLHTTP30Properties;
begin
Result := FProps;
end;
{$ENDIF}
function TXMLHTTP30.Get_status: Integer;
begin
Result := DefaultInterface.Get_status;
end;
function TXMLHTTP30.Get_statusText: WideString;
begin
Result := DefaultInterface.Get_statusText;
end;
function TXMLHTTP30.Get_responseXML: IDispatch;
begin
Result := DefaultInterface.Get_responseXML;
end;
function TXMLHTTP30.Get_responseText: WideString;
begin
Result := DefaultInterface.Get_responseText;
end;
function TXMLHTTP30.Get_responseBody: OleVariant;
begin
Result := DefaultInterface.Get_responseBody;
end;
function TXMLHTTP30.Get_responseStream: OleVariant;
begin
Result := DefaultInterface.Get_responseStream;
end;
function TXMLHTTP30.Get_readyState: Integer;
begin
Result := DefaultInterface.Get_readyState;
end;
procedure TXMLHTTP30.Set_onreadystatechange(const Param1: IDispatch);
begin
DefaultInterface.Set_onreadystatechange(Param1);
end;
procedure TXMLHTTP30.open(const bstrMethod: WideString; const bstrUrl: WideString);
begin
DefaultInterface.open(bstrMethod, bstrUrl, EmptyParam, EmptyParam, EmptyParam);
end;
procedure TXMLHTTP30.open(const bstrMethod: WideString; const bstrUrl: WideString;
varAsync: OleVariant);
begin
DefaultInterface.open(bstrMethod, bstrUrl, varAsync, EmptyParam, EmptyParam);
end;
procedure TXMLHTTP30.open(const bstrMethod: WideString; const bstrUrl: WideString;
varAsync: OleVariant; bstrUser: OleVariant);
begin
DefaultInterface.open(bstrMethod, bstrUrl, varAsync, bstrUser, EmptyParam);
end;
procedure TXMLHTTP30.open(const bstrMethod: WideString; const bstrUrl: WideString;
varAsync: OleVariant; bstrUser: OleVariant; bstrPassword: OleVariant);
begin
DefaultInterface.open(bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword);
end;
procedure TXMLHTTP30.setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString);
begin
DefaultInterface.setRequestHeader(bstrHeader, bstrValue);
end;
function TXMLHTTP30.getResponseHeader(const bstrHeader: WideString): WideString;
begin
Result := DefaultInterface.getResponseHeader(bstrHeader);
end;
function TXMLHTTP30.getAllResponseHeaders: WideString;
begin
Result := DefaultInterface.getAllResponseHeaders;
end;
procedure TXMLHTTP30.send;
begin
DefaultInterface.send(EmptyParam);
end;
procedure TXMLHTTP30.send(varBody: OleVariant);
begin
DefaultInterface.send(varBody);
end;
procedure TXMLHTTP30.abort;
begin
DefaultInterface.abort;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TXMLHTTP30Properties.Create(AServer: TXMLHTTP30);
begin
inherited Create;
FServer := AServer;
end;
function TXMLHTTP30Properties.GetDefaultInterface: IXMLHTTPRequest;
begin
Result := FServer.DefaultInterface;
end;
function TXMLHTTP30Properties.Get_status: Integer;
begin
Result := DefaultInterface.Get_status;
end;
function TXMLHTTP30Properties.Get_statusText: WideString;
begin
Result := DefaultInterface.Get_statusText;
end;
function TXMLHTTP30Properties.Get_responseXML: IDispatch;
begin
Result := DefaultInterface.Get_responseXML;
end;
function TXMLHTTP30Properties.Get_responseText: WideString;
begin
Result := DefaultInterface.Get_responseText;
end;
function TXMLHTTP30Properties.Get_responseBody: OleVariant;
begin
Result := DefaultInterface.Get_responseBody;
end;
function TXMLHTTP30Properties.Get_responseStream: OleVariant;
begin
Result := DefaultInterface.Get_responseStream;
end;
function TXMLHTTP30Properties.Get_readyState: Integer;
begin
Result := DefaultInterface.Get_readyState;
end;
procedure TXMLHTTP30Properties.Set_onreadystatechange(const Param1: IDispatch);
begin
DefaultInterface.Set_onreadystatechange(Param1);
end;
{$ENDIF}
class function CoServerXMLHTTP.Create: IServerXMLHTTPRequest;
begin
Result := CreateComObject(CLASS_ServerXMLHTTP) as IServerXMLHTTPRequest;
end;
class function CoServerXMLHTTP.CreateRemote(const MachineName: string): IServerXMLHTTPRequest;
begin
Result := CreateRemoteComObject(MachineName, CLASS_ServerXMLHTTP) as IServerXMLHTTPRequest;
end;
procedure TServerXMLHTTP.InitServerData;
const
CServerData: TServerData = (
ClassID: '{AFBA6B42-5692-48EA-8141-DC517DCF0EF1}';
IntfIID: '{2E9196BF-13BA-4DD4-91CA-6C571F281495}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TServerXMLHTTP.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IServerXMLHTTPRequest;
end;
end;
procedure TServerXMLHTTP.ConnectTo(svrIntf: IServerXMLHTTPRequest);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TServerXMLHTTP.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TServerXMLHTTP.GetDefaultInterface: IServerXMLHTTPRequest;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TServerXMLHTTP.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TServerXMLHTTPProperties.Create(Self);
{$ENDIF}
end;
destructor TServerXMLHTTP.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TServerXMLHTTP.GetServerProperties: TServerXMLHTTPProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TServerXMLHTTP.Get_status: Integer;
begin
Result := DefaultInterface.Get_status;
end;
function TServerXMLHTTP.Get_statusText: WideString;
begin
Result := DefaultInterface.Get_statusText;
end;
function TServerXMLHTTP.Get_responseXML: IDispatch;
begin
Result := DefaultInterface.Get_responseXML;
end;
function TServerXMLHTTP.Get_responseText: WideString;
begin
Result := DefaultInterface.Get_responseText;
end;
function TServerXMLHTTP.Get_responseBody: OleVariant;
begin
Result := DefaultInterface.Get_responseBody;
end;
function TServerXMLHTTP.Get_responseStream: OleVariant;
begin
Result := DefaultInterface.Get_responseStream;
end;
function TServerXMLHTTP.Get_readyState: Integer;
begin
Result := DefaultInterface.Get_readyState;
end;
procedure TServerXMLHTTP.Set_onreadystatechange(const Param1: IDispatch);
begin
DefaultInterface.Set_onreadystatechange(Param1);
end;
procedure TServerXMLHTTP.open(const bstrMethod: WideString; const bstrUrl: WideString);
begin
DefaultInterface.open(bstrMethod, bstrUrl, EmptyParam, EmptyParam, EmptyParam);
end;
procedure TServerXMLHTTP.open(const bstrMethod: WideString; const bstrUrl: WideString;
varAsync: OleVariant);
begin
DefaultInterface.open(bstrMethod, bstrUrl, varAsync, EmptyParam, EmptyParam);
end;
procedure TServerXMLHTTP.open(const bstrMethod: WideString; const bstrUrl: WideString;
varAsync: OleVariant; bstrUser: OleVariant);
begin
DefaultInterface.open(bstrMethod, bstrUrl, varAsync, bstrUser, EmptyParam);
end;
procedure TServerXMLHTTP.open(const bstrMethod: WideString; const bstrUrl: WideString;
varAsync: OleVariant; bstrUser: OleVariant; bstrPassword: OleVariant);
begin
DefaultInterface.open(bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword);
end;
procedure TServerXMLHTTP.setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString);
begin
DefaultInterface.setRequestHeader(bstrHeader, bstrValue);
end;
function TServerXMLHTTP.getResponseHeader(const bstrHeader: WideString): WideString;
begin
Result := DefaultInterface.getResponseHeader(bstrHeader);
end;
function TServerXMLHTTP.getAllResponseHeaders: WideString;
begin
Result := DefaultInterface.getAllResponseHeaders;
end;
procedure TServerXMLHTTP.send;
begin
DefaultInterface.send(EmptyParam);
end;
procedure TServerXMLHTTP.send(varBody: OleVariant);
begin
DefaultInterface.send(varBody);
end;
procedure TServerXMLHTTP.abort;
begin
DefaultInterface.abort;
end;
procedure TServerXMLHTTP.setTimeouts(resolveTimeout: Integer; connectTimeout: Integer;
sendTimeout: Integer; receiveTimeout: Integer);
begin
DefaultInterface.setTimeouts(resolveTimeout, connectTimeout, sendTimeout, receiveTimeout);
end;
function TServerXMLHTTP.waitForResponse: WordBool;
begin
Result := DefaultInterface.waitForResponse(EmptyParam);
end;
function TServerXMLHTTP.waitForResponse(timeoutInSeconds: OleVariant): WordBool;
begin
Result := DefaultInterface.waitForResponse(timeoutInSeconds);
end;
function TServerXMLHTTP.getOption(option: SERVERXMLHTTP_OPTION): OleVariant;
begin
Result := DefaultInterface.getOption(option);
end;
procedure TServerXMLHTTP.setOption(option: SERVERXMLHTTP_OPTION; value: OleVariant);
begin
DefaultInterface.setOption(option, value);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TServerXMLHTTPProperties.Create(AServer: TServerXMLHTTP);
begin
inherited Create;
FServer := AServer;
end;
function TServerXMLHTTPProperties.GetDefaultInterface: IServerXMLHTTPRequest;
begin
Result := FServer.DefaultInterface;
end;
function TServerXMLHTTPProperties.Get_status: Integer;
begin
Result := DefaultInterface.Get_status;
end;
function TServerXMLHTTPProperties.Get_statusText: WideString;
begin
Result := DefaultInterface.Get_statusText;
end;
function TServerXMLHTTPProperties.Get_responseXML: IDispatch;
begin
Result := DefaultInterface.Get_responseXML;
end;
function TServerXMLHTTPProperties.Get_responseText: WideString;
begin
Result := DefaultInterface.Get_responseText;
end;
function TServerXMLHTTPProperties.Get_responseBody: OleVariant;
begin
Result := DefaultInterface.Get_responseBody;
end;
function TServerXMLHTTPProperties.Get_responseStream: OleVariant;
begin
Result := DefaultInterface.Get_responseStream;
end;
function TServerXMLHTTPProperties.Get_readyState: Integer;
begin
Result := DefaultInterface.Get_readyState;
end;
procedure TServerXMLHTTPProperties.Set_onreadystatechange(const Param1: IDispatch);
begin
DefaultInterface.Set_onreadystatechange(Param1);
end;
{$ENDIF}
class function CoServerXMLHTTP30.Create: IServerXMLHTTPRequest;
begin
Result := CreateComObject(CLASS_ServerXMLHTTP30) as IServerXMLHTTPRequest;
end;
class function CoServerXMLHTTP30.CreateRemote(const MachineName: string): IServerXMLHTTPRequest;
begin
Result := CreateRemoteComObject(MachineName, CLASS_ServerXMLHTTP30) as IServerXMLHTTPRequest;
end;
procedure TServerXMLHTTP30.InitServerData;
const
CServerData: TServerData = (
ClassID: '{AFB40FFD-B609-40A3-9828-F88BBE11E4E3}';
IntfIID: '{2E9196BF-13BA-4DD4-91CA-6C571F281495}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TServerXMLHTTP30.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IServerXMLHTTPRequest;
end;
end;
procedure TServerXMLHTTP30.ConnectTo(svrIntf: IServerXMLHTTPRequest);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TServerXMLHTTP30.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TServerXMLHTTP30.GetDefaultInterface: IServerXMLHTTPRequest;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TServerXMLHTTP30.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TServerXMLHTTP30Properties.Create(Self);
{$ENDIF}
end;
destructor TServerXMLHTTP30.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TServerXMLHTTP30.GetServerProperties: TServerXMLHTTP30Properties;
begin
Result := FProps;
end;
{$ENDIF}
function TServerXMLHTTP30.Get_status: Integer;
begin
Result := DefaultInterface.Get_status;
end;
function TServerXMLHTTP30.Get_statusText: WideString;
begin
Result := DefaultInterface.Get_statusText;
end;
function TServerXMLHTTP30.Get_responseXML: IDispatch;
begin
Result := DefaultInterface.Get_responseXML;
end;
function TServerXMLHTTP30.Get_responseText: WideString;
begin
Result := DefaultInterface.Get_responseText;
end;
function TServerXMLHTTP30.Get_responseBody: OleVariant;
begin
Result := DefaultInterface.Get_responseBody;
end;
function TServerXMLHTTP30.Get_responseStream: OleVariant;
begin
Result := DefaultInterface.Get_responseStream;
end;
function TServerXMLHTTP30.Get_readyState: Integer;
begin
Result := DefaultInterface.Get_readyState;
end;
procedure TServerXMLHTTP30.Set_onreadystatechange(const Param1: IDispatch);
begin
DefaultInterface.Set_onreadystatechange(Param1);
end;
procedure TServerXMLHTTP30.open(const bstrMethod: WideString; const bstrUrl: WideString);
begin
DefaultInterface.open(bstrMethod, bstrUrl, EmptyParam, EmptyParam, EmptyParam);
end;
procedure TServerXMLHTTP30.open(const bstrMethod: WideString; const bstrUrl: WideString;
varAsync: OleVariant);
begin
DefaultInterface.open(bstrMethod, bstrUrl, varAsync, EmptyParam, EmptyParam);
end;
procedure TServerXMLHTTP30.open(const bstrMethod: WideString; const bstrUrl: WideString;
varAsync: OleVariant; bstrUser: OleVariant);
begin
DefaultInterface.open(bstrMethod, bstrUrl, varAsync, bstrUser, EmptyParam);
end;
procedure TServerXMLHTTP30.open(const bstrMethod: WideString; const bstrUrl: WideString;
varAsync: OleVariant; bstrUser: OleVariant; bstrPassword: OleVariant);
begin
DefaultInterface.open(bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword);
end;
procedure TServerXMLHTTP30.setRequestHeader(const bstrHeader: WideString;
const bstrValue: WideString);
begin
DefaultInterface.setRequestHeader(bstrHeader, bstrValue);
end;
function TServerXMLHTTP30.getResponseHeader(const bstrHeader: WideString): WideString;
begin
Result := DefaultInterface.getResponseHeader(bstrHeader);
end;
function TServerXMLHTTP30.getAllResponseHeaders: WideString;
begin
Result := DefaultInterface.getAllResponseHeaders;
end;
procedure TServerXMLHTTP30.send;
begin
DefaultInterface.send(EmptyParam);
end;
procedure TServerXMLHTTP30.send(varBody: OleVariant);
begin
DefaultInterface.send(varBody);
end;
procedure TServerXMLHTTP30.abort;
begin
DefaultInterface.abort;
end;
procedure TServerXMLHTTP30.setTimeouts(resolveTimeout: Integer; connectTimeout: Integer;
sendTimeout: Integer; receiveTimeout: Integer);
begin
DefaultInterface.setTimeouts(resolveTimeout, connectTimeout, sendTimeout, receiveTimeout);
end;
function TServerXMLHTTP30.waitForResponse: WordBool;
begin
Result := DefaultInterface.waitForResponse(EmptyParam);
end;
function TServerXMLHTTP30.waitForResponse(timeoutInSeconds: OleVariant): WordBool;
begin
Result := DefaultInterface.waitForResponse(timeoutInSeconds);
end;
function TServerXMLHTTP30.getOption(option: SERVERXMLHTTP_OPTION): OleVariant;
begin
Result := DefaultInterface.getOption(option);
end;
procedure TServerXMLHTTP30.setOption(option: SERVERXMLHTTP_OPTION; value: OleVariant);
begin
DefaultInterface.setOption(option, value);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TServerXMLHTTP30Properties.Create(AServer: TServerXMLHTTP30);
begin
inherited Create;
FServer := AServer;
end;
function TServerXMLHTTP30Properties.GetDefaultInterface: IServerXMLHTTPRequest;
begin
Result := FServer.DefaultInterface;
end;
function TServerXMLHTTP30Properties.Get_status: Integer;
begin
Result := DefaultInterface.Get_status;
end;
function TServerXMLHTTP30Properties.Get_statusText: WideString;
begin
Result := DefaultInterface.Get_statusText;
end;
function TServerXMLHTTP30Properties.Get_responseXML: IDispatch;
begin
Result := DefaultInterface.Get_responseXML;
end;
function TServerXMLHTTP30Properties.Get_responseText: WideString;
begin
Result := DefaultInterface.Get_responseText;
end;
function TServerXMLHTTP30Properties.Get_responseBody: OleVariant;
begin
Result := DefaultInterface.Get_responseBody;
end;
function TServerXMLHTTP30Properties.Get_responseStream: OleVariant;
begin
Result := DefaultInterface.Get_responseStream;
end;
function TServerXMLHTTP30Properties.Get_readyState: Integer;
begin
Result := DefaultInterface.Get_readyState;
end;
procedure TServerXMLHTTP30Properties.Set_onreadystatechange(const Param1: IDispatch);
begin
DefaultInterface.Set_onreadystatechange(Param1);
end;
{$ENDIF}
class function CoSAXXMLReader.Create: IVBSAXXMLReader;
begin
Result := CreateComObject(CLASS_SAXXMLReader) as IVBSAXXMLReader;
end;
class function CoSAXXMLReader.CreateRemote(const MachineName: string): IVBSAXXMLReader;
begin
Result := CreateRemoteComObject(MachineName, CLASS_SAXXMLReader) as IVBSAXXMLReader;
end;
procedure TSAXXMLReader.InitServerData;
const
CServerData: TServerData = (
ClassID: '{079AA557-4A18-424A-8EEE-E39F0A8D41B9}';
IntfIID: '{8C033CAA-6CD6-4F73-B728-4531AF74945F}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TSAXXMLReader.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IVBSAXXMLReader;
end;
end;
procedure TSAXXMLReader.ConnectTo(svrIntf: IVBSAXXMLReader);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TSAXXMLReader.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TSAXXMLReader.GetDefaultInterface: IVBSAXXMLReader;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TSAXXMLReader.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TSAXXMLReaderProperties.Create(Self);
{$ENDIF}
end;
destructor TSAXXMLReader.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TSAXXMLReader.GetServerProperties: TSAXXMLReaderProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TSAXXMLReader.Get_entityResolver: IVBSAXEntityResolver;
begin
Result := DefaultInterface.Get_entityResolver;
end;
procedure TSAXXMLReader.Set_entityResolver(const oResolver: IVBSAXEntityResolver);
begin
DefaultInterface.Set_entityResolver(oResolver);
end;
function TSAXXMLReader.Get_contentHandler: IVBSAXContentHandler;
begin
Result := DefaultInterface.Get_contentHandler;
end;
procedure TSAXXMLReader.Set_contentHandler(const oHandler: IVBSAXContentHandler);
begin
DefaultInterface.Set_contentHandler(oHandler);
end;
function TSAXXMLReader.Get_dtdHandler: IVBSAXDTDHandler;
begin
Result := DefaultInterface.Get_dtdHandler;
end;
procedure TSAXXMLReader.Set_dtdHandler(const oHandler: IVBSAXDTDHandler);
begin
DefaultInterface.Set_dtdHandler(oHandler);
end;
function TSAXXMLReader.Get_errorHandler: IVBSAXErrorHandler;
begin
Result := DefaultInterface.Get_errorHandler;
end;
procedure TSAXXMLReader.Set_errorHandler(const oHandler: IVBSAXErrorHandler);
begin
DefaultInterface.Set_errorHandler(oHandler);
end;
function TSAXXMLReader.Get_baseURL: WideString;
begin
Result := DefaultInterface.Get_baseURL;
end;
procedure TSAXXMLReader.Set_baseURL(const strBaseURL: WideString);
begin
DefaultInterface.Set_baseURL(strBaseURL);
end;
function TSAXXMLReader.Get_secureBaseURL: WideString;
begin
Result := DefaultInterface.Get_secureBaseURL;
end;
procedure TSAXXMLReader.Set_secureBaseURL(const strSecureBaseURL: WideString);
begin
DefaultInterface.Set_secureBaseURL(strSecureBaseURL);
end;
function TSAXXMLReader.getFeature(const strName: WideString): WordBool;
begin
Result := DefaultInterface.getFeature(strName);
end;
procedure TSAXXMLReader.putFeature(const strName: WideString; fValue: WordBool);
begin
DefaultInterface.putFeature(strName, fValue);
end;
function TSAXXMLReader.getProperty(const strName: WideString): OleVariant;
begin
Result := DefaultInterface.getProperty(strName);
end;
procedure TSAXXMLReader.putProperty(const strName: WideString; varValue: OleVariant);
begin
DefaultInterface.putProperty(strName, varValue);
end;
procedure TSAXXMLReader.parse(varInput: OleVariant);
begin
DefaultInterface.parse(varInput);
end;
procedure TSAXXMLReader.parseURL(const strURL: WideString);
begin
DefaultInterface.parseURL(strURL);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TSAXXMLReaderProperties.Create(AServer: TSAXXMLReader);
begin
inherited Create;
FServer := AServer;
end;
function TSAXXMLReaderProperties.GetDefaultInterface: IVBSAXXMLReader;
begin
Result := FServer.DefaultInterface;
end;
function TSAXXMLReaderProperties.Get_entityResolver: IVBSAXEntityResolver;
begin
Result := DefaultInterface.Get_entityResolver;
end;
procedure TSAXXMLReaderProperties.Set_entityResolver(const oResolver: IVBSAXEntityResolver);
begin
DefaultInterface.Set_entityResolver(oResolver);
end;
function TSAXXMLReaderProperties.Get_contentHandler: IVBSAXContentHandler;
begin
Result := DefaultInterface.Get_contentHandler;
end;
procedure TSAXXMLReaderProperties.Set_contentHandler(const oHandler: IVBSAXContentHandler);
begin
DefaultInterface.Set_contentHandler(oHandler);
end;
function TSAXXMLReaderProperties.Get_dtdHandler: IVBSAXDTDHandler;
begin
Result := DefaultInterface.Get_dtdHandler;
end;
procedure TSAXXMLReaderProperties.Set_dtdHandler(const oHandler: IVBSAXDTDHandler);
begin
DefaultInterface.Set_dtdHandler(oHandler);
end;
function TSAXXMLReaderProperties.Get_errorHandler: IVBSAXErrorHandler;
begin
Result := DefaultInterface.Get_errorHandler;
end;
procedure TSAXXMLReaderProperties.Set_errorHandler(const oHandler: IVBSAXErrorHandler);
begin
DefaultInterface.Set_errorHandler(oHandler);
end;
function TSAXXMLReaderProperties.Get_baseURL: WideString;
begin
Result := DefaultInterface.Get_baseURL;
end;
procedure TSAXXMLReaderProperties.Set_baseURL(const strBaseURL: WideString);
begin
DefaultInterface.Set_baseURL(strBaseURL);
end;
function TSAXXMLReaderProperties.Get_secureBaseURL: WideString;
begin
Result := DefaultInterface.Get_secureBaseURL;
end;
procedure TSAXXMLReaderProperties.Set_secureBaseURL(const strSecureBaseURL: WideString);
begin
DefaultInterface.Set_secureBaseURL(strSecureBaseURL);
end;
{$ENDIF}
class function CoSAXXMLReader30.Create: IVBSAXXMLReader;
begin
Result := CreateComObject(CLASS_SAXXMLReader30) as IVBSAXXMLReader;
end;
class function CoSAXXMLReader30.CreateRemote(const MachineName: string): IVBSAXXMLReader;
begin
Result := CreateRemoteComObject(MachineName, CLASS_SAXXMLReader30) as IVBSAXXMLReader;
end;
procedure TSAXXMLReader30.InitServerData;
const
CServerData: TServerData = (
ClassID: '{3124C396-FB13-4836-A6AD-1317F1713688}';
IntfIID: '{8C033CAA-6CD6-4F73-B728-4531AF74945F}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TSAXXMLReader30.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IVBSAXXMLReader;
end;
end;
procedure TSAXXMLReader30.ConnectTo(svrIntf: IVBSAXXMLReader);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TSAXXMLReader30.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TSAXXMLReader30.GetDefaultInterface: IVBSAXXMLReader;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TSAXXMLReader30.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TSAXXMLReader30Properties.Create(Self);
{$ENDIF}
end;
destructor TSAXXMLReader30.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TSAXXMLReader30.GetServerProperties: TSAXXMLReader30Properties;
begin
Result := FProps;
end;
{$ENDIF}
function TSAXXMLReader30.Get_entityResolver: IVBSAXEntityResolver;
begin
Result := DefaultInterface.Get_entityResolver;
end;
procedure TSAXXMLReader30.Set_entityResolver(const oResolver: IVBSAXEntityResolver);
begin
DefaultInterface.Set_entityResolver(oResolver);
end;
function TSAXXMLReader30.Get_contentHandler: IVBSAXContentHandler;
begin
Result := DefaultInterface.Get_contentHandler;
end;
procedure TSAXXMLReader30.Set_contentHandler(const oHandler: IVBSAXContentHandler);
begin
DefaultInterface.Set_contentHandler(oHandler);
end;
function TSAXXMLReader30.Get_dtdHandler: IVBSAXDTDHandler;
begin
Result := DefaultInterface.Get_dtdHandler;
end;
procedure TSAXXMLReader30.Set_dtdHandler(const oHandler: IVBSAXDTDHandler);
begin
DefaultInterface.Set_dtdHandler(oHandler);
end;
function TSAXXMLReader30.Get_errorHandler: IVBSAXErrorHandler;
begin
Result := DefaultInterface.Get_errorHandler;
end;
procedure TSAXXMLReader30.Set_errorHandler(const oHandler: IVBSAXErrorHandler);
begin
DefaultInterface.Set_errorHandler(oHandler);
end;
function TSAXXMLReader30.Get_baseURL: WideString;
begin
Result := DefaultInterface.Get_baseURL;
end;
procedure TSAXXMLReader30.Set_baseURL(const strBaseURL: WideString);
begin
DefaultInterface.Set_baseURL(strBaseURL);
end;
function TSAXXMLReader30.Get_secureBaseURL: WideString;
begin
Result := DefaultInterface.Get_secureBaseURL;
end;
procedure TSAXXMLReader30.Set_secureBaseURL(const strSecureBaseURL: WideString);
begin
DefaultInterface.Set_secureBaseURL(strSecureBaseURL);
end;
function TSAXXMLReader30.getFeature(const strName: WideString): WordBool;
begin
Result := DefaultInterface.getFeature(strName);
end;
procedure TSAXXMLReader30.putFeature(const strName: WideString; fValue: WordBool);
begin
DefaultInterface.putFeature(strName, fValue);
end;
function TSAXXMLReader30.getProperty(const strName: WideString): OleVariant;
begin
Result := DefaultInterface.getProperty(strName);
end;
procedure TSAXXMLReader30.putProperty(const strName: WideString; varValue: OleVariant);
begin
DefaultInterface.putProperty(strName, varValue);
end;
procedure TSAXXMLReader30.parse(varInput: OleVariant);
begin
DefaultInterface.parse(varInput);
end;
procedure TSAXXMLReader30.parseURL(const strURL: WideString);
begin
DefaultInterface.parseURL(strURL);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TSAXXMLReader30Properties.Create(AServer: TSAXXMLReader30);
begin
inherited Create;
FServer := AServer;
end;
function TSAXXMLReader30Properties.GetDefaultInterface: IVBSAXXMLReader;
begin
Result := FServer.DefaultInterface;
end;
function TSAXXMLReader30Properties.Get_entityResolver: IVBSAXEntityResolver;
begin
Result := DefaultInterface.Get_entityResolver;
end;
procedure TSAXXMLReader30Properties.Set_entityResolver(const oResolver: IVBSAXEntityResolver);
begin
DefaultInterface.Set_entityResolver(oResolver);
end;
function TSAXXMLReader30Properties.Get_contentHandler: IVBSAXContentHandler;
begin
Result := DefaultInterface.Get_contentHandler;
end;
procedure TSAXXMLReader30Properties.Set_contentHandler(const oHandler: IVBSAXContentHandler);
begin
DefaultInterface.Set_contentHandler(oHandler);
end;
function TSAXXMLReader30Properties.Get_dtdHandler: IVBSAXDTDHandler;
begin
Result := DefaultInterface.Get_dtdHandler;
end;
procedure TSAXXMLReader30Properties.Set_dtdHandler(const oHandler: IVBSAXDTDHandler);
begin
DefaultInterface.Set_dtdHandler(oHandler);
end;
function TSAXXMLReader30Properties.Get_errorHandler: IVBSAXErrorHandler;
begin
Result := DefaultInterface.Get_errorHandler;
end;
procedure TSAXXMLReader30Properties.Set_errorHandler(const oHandler: IVBSAXErrorHandler);
begin
DefaultInterface.Set_errorHandler(oHandler);
end;
function TSAXXMLReader30Properties.Get_baseURL: WideString;
begin
Result := DefaultInterface.Get_baseURL;
end;
procedure TSAXXMLReader30Properties.Set_baseURL(const strBaseURL: WideString);
begin
DefaultInterface.Set_baseURL(strBaseURL);
end;
function TSAXXMLReader30Properties.Get_secureBaseURL: WideString;
begin
Result := DefaultInterface.Get_secureBaseURL;
end;
procedure TSAXXMLReader30Properties.Set_secureBaseURL(const strSecureBaseURL: WideString);
begin
DefaultInterface.Set_secureBaseURL(strSecureBaseURL);
end;
{$ENDIF}
class function CoMXXMLWriter.Create: IMXWriter;
begin
Result := CreateComObject(CLASS_MXXMLWriter) as IMXWriter;
end;
class function CoMXXMLWriter.CreateRemote(const MachineName: string): IMXWriter;
begin
Result := CreateRemoteComObject(MachineName, CLASS_MXXMLWriter) as IMXWriter;
end;
procedure TMXXMLWriter.InitServerData;
const
CServerData: TServerData = (
ClassID: '{FC220AD8-A72A-4EE8-926E-0B7AD152A020}';
IntfIID: '{4D7FF4BA-1565-4EA8-94E1-6E724A46F98D}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TMXXMLWriter.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IMXWriter;
end;
end;
procedure TMXXMLWriter.ConnectTo(svrIntf: IMXWriter);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TMXXMLWriter.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TMXXMLWriter.GetDefaultInterface: IMXWriter;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TMXXMLWriter.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TMXXMLWriterProperties.Create(Self);
{$ENDIF}
end;
destructor TMXXMLWriter.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TMXXMLWriter.GetServerProperties: TMXXMLWriterProperties;
begin
Result := FProps;
end;
{$ENDIF}
procedure TMXXMLWriter.Set_output(varDestination: OleVariant);
begin
DefaultInterface.Set_output(varDestination);
end;
function TMXXMLWriter.Get_output: OleVariant;
begin
Result := DefaultInterface.Get_output;
end;
procedure TMXXMLWriter.Set_encoding(const strEncoding: WideString);
begin
DefaultInterface.Set_encoding(strEncoding);
end;
function TMXXMLWriter.Get_encoding: WideString;
begin
Result := DefaultInterface.Get_encoding;
end;
procedure TMXXMLWriter.Set_byteOrderMark(fWriteByteOrderMark: WordBool);
begin
DefaultInterface.Set_byteOrderMark(fWriteByteOrderMark);
end;
function TMXXMLWriter.Get_byteOrderMark: WordBool;
begin
Result := DefaultInterface.Get_byteOrderMark;
end;
procedure TMXXMLWriter.Set_indent(fIndentMode: WordBool);
begin
DefaultInterface.Set_indent(fIndentMode);
end;
function TMXXMLWriter.Get_indent: WordBool;
begin
Result := DefaultInterface.Get_indent;
end;
procedure TMXXMLWriter.Set_standalone(fValue: WordBool);
begin
DefaultInterface.Set_standalone(fValue);
end;
function TMXXMLWriter.Get_standalone: WordBool;
begin
Result := DefaultInterface.Get_standalone;
end;
procedure TMXXMLWriter.Set_omitXMLDeclaration(fValue: WordBool);
begin
DefaultInterface.Set_omitXMLDeclaration(fValue);
end;
function TMXXMLWriter.Get_omitXMLDeclaration: WordBool;
begin
Result := DefaultInterface.Get_omitXMLDeclaration;
end;
procedure TMXXMLWriter.Set_version(const strVersion: WideString);
begin
DefaultInterface.Set_version(strVersion);
end;
function TMXXMLWriter.Get_version: WideString;
begin
Result := DefaultInterface.Get_version;
end;
procedure TMXXMLWriter.Set_disableOutputEscaping(fValue: WordBool);
begin
DefaultInterface.Set_disableOutputEscaping(fValue);
end;
function TMXXMLWriter.Get_disableOutputEscaping: WordBool;
begin
Result := DefaultInterface.Get_disableOutputEscaping;
end;
procedure TMXXMLWriter.flush;
begin
DefaultInterface.flush;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TMXXMLWriterProperties.Create(AServer: TMXXMLWriter);
begin
inherited Create;
FServer := AServer;
end;
function TMXXMLWriterProperties.GetDefaultInterface: IMXWriter;
begin
Result := FServer.DefaultInterface;
end;
procedure TMXXMLWriterProperties.Set_output(varDestination: OleVariant);
begin
DefaultInterface.Set_output(varDestination);
end;
function TMXXMLWriterProperties.Get_output: OleVariant;
begin
Result := DefaultInterface.Get_output;
end;
procedure TMXXMLWriterProperties.Set_encoding(const strEncoding: WideString);
begin
DefaultInterface.Set_encoding(strEncoding);
end;
function TMXXMLWriterProperties.Get_encoding: WideString;
begin
Result := DefaultInterface.Get_encoding;
end;
procedure TMXXMLWriterProperties.Set_byteOrderMark(fWriteByteOrderMark: WordBool);
begin
DefaultInterface.Set_byteOrderMark(fWriteByteOrderMark);
end;
function TMXXMLWriterProperties.Get_byteOrderMark: WordBool;
begin
Result := DefaultInterface.Get_byteOrderMark;
end;
procedure TMXXMLWriterProperties.Set_indent(fIndentMode: WordBool);
begin
DefaultInterface.Set_indent(fIndentMode);
end;
function TMXXMLWriterProperties.Get_indent: WordBool;
begin
Result := DefaultInterface.Get_indent;
end;
procedure TMXXMLWriterProperties.Set_standalone(fValue: WordBool);
begin
DefaultInterface.Set_standalone(fValue);
end;
function TMXXMLWriterProperties.Get_standalone: WordBool;
begin
Result := DefaultInterface.Get_standalone;
end;
procedure TMXXMLWriterProperties.Set_omitXMLDeclaration(fValue: WordBool);
begin
DefaultInterface.Set_omitXMLDeclaration(fValue);
end;
function TMXXMLWriterProperties.Get_omitXMLDeclaration: WordBool;
begin
Result := DefaultInterface.Get_omitXMLDeclaration;
end;
procedure TMXXMLWriterProperties.Set_version(const strVersion: WideString);
begin
DefaultInterface.Set_version(strVersion);
end;
function TMXXMLWriterProperties.Get_version: WideString;
begin
Result := DefaultInterface.Get_version;
end;
procedure TMXXMLWriterProperties.Set_disableOutputEscaping(fValue: WordBool);
begin
DefaultInterface.Set_disableOutputEscaping(fValue);
end;
function TMXXMLWriterProperties.Get_disableOutputEscaping: WordBool;
begin
Result := DefaultInterface.Get_disableOutputEscaping;
end;
{$ENDIF}
class function CoMXXMLWriter30.Create: IMXWriter;
begin
Result := CreateComObject(CLASS_MXXMLWriter30) as IMXWriter;
end;
class function CoMXXMLWriter30.CreateRemote(const MachineName: string): IMXWriter;
begin
Result := CreateRemoteComObject(MachineName, CLASS_MXXMLWriter30) as IMXWriter;
end;
procedure TMXXMLWriter30.InitServerData;
const
CServerData: TServerData = (
ClassID: '{3D813DFE-6C91-4A4E-8F41-04346A841D9C}';
IntfIID: '{4D7FF4BA-1565-4EA8-94E1-6E724A46F98D}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TMXXMLWriter30.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IMXWriter;
end;
end;
procedure TMXXMLWriter30.ConnectTo(svrIntf: IMXWriter);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TMXXMLWriter30.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TMXXMLWriter30.GetDefaultInterface: IMXWriter;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TMXXMLWriter30.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TMXXMLWriter30Properties.Create(Self);
{$ENDIF}
end;
destructor TMXXMLWriter30.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TMXXMLWriter30.GetServerProperties: TMXXMLWriter30Properties;
begin
Result := FProps;
end;
{$ENDIF}
procedure TMXXMLWriter30.Set_output(varDestination: OleVariant);
begin
DefaultInterface.Set_output(varDestination);
end;
function TMXXMLWriter30.Get_output: OleVariant;
begin
Result := DefaultInterface.Get_output;
end;
procedure TMXXMLWriter30.Set_encoding(const strEncoding: WideString);
begin
DefaultInterface.Set_encoding(strEncoding);
end;
function TMXXMLWriter30.Get_encoding: WideString;
begin
Result := DefaultInterface.Get_encoding;
end;
procedure TMXXMLWriter30.Set_byteOrderMark(fWriteByteOrderMark: WordBool);
begin
DefaultInterface.Set_byteOrderMark(fWriteByteOrderMark);
end;
function TMXXMLWriter30.Get_byteOrderMark: WordBool;
begin
Result := DefaultInterface.Get_byteOrderMark;
end;
procedure TMXXMLWriter30.Set_indent(fIndentMode: WordBool);
begin
DefaultInterface.Set_indent(fIndentMode);
end;
function TMXXMLWriter30.Get_indent: WordBool;
begin
Result := DefaultInterface.Get_indent;
end;
procedure TMXXMLWriter30.Set_standalone(fValue: WordBool);
begin
DefaultInterface.Set_standalone(fValue);
end;
function TMXXMLWriter30.Get_standalone: WordBool;
begin
Result := DefaultInterface.Get_standalone;
end;
procedure TMXXMLWriter30.Set_omitXMLDeclaration(fValue: WordBool);
begin
DefaultInterface.Set_omitXMLDeclaration(fValue);
end;
function TMXXMLWriter30.Get_omitXMLDeclaration: WordBool;
begin
Result := DefaultInterface.Get_omitXMLDeclaration;
end;
procedure TMXXMLWriter30.Set_version(const strVersion: WideString);
begin
DefaultInterface.Set_version(strVersion);
end;
function TMXXMLWriter30.Get_version: WideString;
begin
Result := DefaultInterface.Get_version;
end;
procedure TMXXMLWriter30.Set_disableOutputEscaping(fValue: WordBool);
begin
DefaultInterface.Set_disableOutputEscaping(fValue);
end;
function TMXXMLWriter30.Get_disableOutputEscaping: WordBool;
begin
Result := DefaultInterface.Get_disableOutputEscaping;
end;
procedure TMXXMLWriter30.flush;
begin
DefaultInterface.flush;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TMXXMLWriter30Properties.Create(AServer: TMXXMLWriter30);
begin
inherited Create;
FServer := AServer;
end;
function TMXXMLWriter30Properties.GetDefaultInterface: IMXWriter;
begin
Result := FServer.DefaultInterface;
end;
procedure TMXXMLWriter30Properties.Set_output(varDestination: OleVariant);
begin
DefaultInterface.Set_output(varDestination);
end;
function TMXXMLWriter30Properties.Get_output: OleVariant;
begin
Result := DefaultInterface.Get_output;
end;
procedure TMXXMLWriter30Properties.Set_encoding(const strEncoding: WideString);
begin
DefaultInterface.Set_encoding(strEncoding);
end;
function TMXXMLWriter30Properties.Get_encoding: WideString;
begin
Result := DefaultInterface.Get_encoding;
end;
procedure TMXXMLWriter30Properties.Set_byteOrderMark(fWriteByteOrderMark: WordBool);
begin
DefaultInterface.Set_byteOrderMark(fWriteByteOrderMark);
end;
function TMXXMLWriter30Properties.Get_byteOrderMark: WordBool;
begin
Result := DefaultInterface.Get_byteOrderMark;
end;
procedure TMXXMLWriter30Properties.Set_indent(fIndentMode: WordBool);
begin
DefaultInterface.Set_indent(fIndentMode);
end;
function TMXXMLWriter30Properties.Get_indent: WordBool;
begin
Result := DefaultInterface.Get_indent;
end;
procedure TMXXMLWriter30Properties.Set_standalone(fValue: WordBool);
begin
DefaultInterface.Set_standalone(fValue);
end;
function TMXXMLWriter30Properties.Get_standalone: WordBool;
begin
Result := DefaultInterface.Get_standalone;
end;
procedure TMXXMLWriter30Properties.Set_omitXMLDeclaration(fValue: WordBool);
begin
DefaultInterface.Set_omitXMLDeclaration(fValue);
end;
function TMXXMLWriter30Properties.Get_omitXMLDeclaration: WordBool;
begin
Result := DefaultInterface.Get_omitXMLDeclaration;
end;
procedure TMXXMLWriter30Properties.Set_version(const strVersion: WideString);
begin
DefaultInterface.Set_version(strVersion);
end;
function TMXXMLWriter30Properties.Get_version: WideString;
begin
Result := DefaultInterface.Get_version;
end;
procedure TMXXMLWriter30Properties.Set_disableOutputEscaping(fValue: WordBool);
begin
DefaultInterface.Set_disableOutputEscaping(fValue);
end;
function TMXXMLWriter30Properties.Get_disableOutputEscaping: WordBool;
begin
Result := DefaultInterface.Get_disableOutputEscaping;
end;
{$ENDIF}
class function CoSAXAttributes.Create: IMXAttributes;
begin
Result := CreateComObject(CLASS_SAXAttributes) as IMXAttributes;
end;
class function CoSAXAttributes.CreateRemote(const MachineName: string): IMXAttributes;
begin
Result := CreateRemoteComObject(MachineName, CLASS_SAXAttributes) as IMXAttributes;
end;
procedure TSAXAttributes.InitServerData;
const
CServerData: TServerData = (
ClassID: '{4DD441AD-526D-4A77-9F1B-9841ED802FB0}';
IntfIID: '{F10D27CC-3EC0-415C-8ED8-77AB1C5E7262}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TSAXAttributes.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IMXAttributes;
end;
end;
procedure TSAXAttributes.ConnectTo(svrIntf: IMXAttributes);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TSAXAttributes.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TSAXAttributes.GetDefaultInterface: IMXAttributes;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TSAXAttributes.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TSAXAttributesProperties.Create(Self);
{$ENDIF}
end;
destructor TSAXAttributes.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TSAXAttributes.GetServerProperties: TSAXAttributesProperties;
begin
Result := FProps;
end;
{$ENDIF}
procedure TSAXAttributes.addAttribute(const strURI: WideString; const strLocalName: WideString;
const strQName: WideString; const strType: WideString;
const strValue: WideString);
begin
DefaultInterface.addAttribute(strURI, strLocalName, strQName, strType, strValue);
end;
procedure TSAXAttributes.addAttributeFromIndex(varAtts: OleVariant; nIndex: SYSINT);
begin
DefaultInterface.addAttributeFromIndex(varAtts, nIndex);
end;
procedure TSAXAttributes.clear;
begin
DefaultInterface.clear;
end;
procedure TSAXAttributes.removeAttribute(nIndex: SYSINT);
begin
DefaultInterface.removeAttribute(nIndex);
end;
procedure TSAXAttributes.setAttribute(nIndex: SYSINT; const strURI: WideString;
const strLocalName: WideString; const strQName: WideString;
const strType: WideString; const strValue: WideString);
begin
DefaultInterface.setAttribute(nIndex, strURI, strLocalName, strQName, strType, strValue);
end;
procedure TSAXAttributes.setAttributes(varAtts: OleVariant);
begin
DefaultInterface.setAttributes(varAtts);
end;
procedure TSAXAttributes.setLocalName(nIndex: SYSINT; const strLocalName: WideString);
begin
DefaultInterface.setLocalName(nIndex, strLocalName);
end;
procedure TSAXAttributes.setQName(nIndex: SYSINT; const strQName: WideString);
begin
DefaultInterface.setQName(nIndex, strQName);
end;
procedure TSAXAttributes.setType(nIndex: SYSINT; const strType: WideString);
begin
DefaultInterface.setType(nIndex, strType);
end;
procedure TSAXAttributes.setURI(nIndex: SYSINT; const strURI: WideString);
begin
DefaultInterface.setURI(nIndex, strURI);
end;
procedure TSAXAttributes.setValue(nIndex: SYSINT; const strValue: WideString);
begin
DefaultInterface.setValue(nIndex, strValue);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TSAXAttributesProperties.Create(AServer: TSAXAttributes);
begin
inherited Create;
FServer := AServer;
end;
function TSAXAttributesProperties.GetDefaultInterface: IMXAttributes;
begin
Result := FServer.DefaultInterface;
end;
{$ENDIF}
class function CoSAXAttributes30.Create: IMXAttributes;
begin
Result := CreateComObject(CLASS_SAXAttributes30) as IMXAttributes;
end;
class function CoSAXAttributes30.CreateRemote(const MachineName: string): IMXAttributes;
begin
Result := CreateRemoteComObject(MachineName, CLASS_SAXAttributes30) as IMXAttributes;
end;
procedure TSAXAttributes30.InitServerData;
const
CServerData: TServerData = (
ClassID: '{3E784A01-F3AE-4DC0-9354-9526B9370EBA}';
IntfIID: '{F10D27CC-3EC0-415C-8ED8-77AB1C5E7262}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TSAXAttributes30.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IMXAttributes;
end;
end;
procedure TSAXAttributes30.ConnectTo(svrIntf: IMXAttributes);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TSAXAttributes30.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TSAXAttributes30.GetDefaultInterface: IMXAttributes;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TSAXAttributes30.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TSAXAttributes30Properties.Create(Self);
{$ENDIF}
end;
destructor TSAXAttributes30.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TSAXAttributes30.GetServerProperties: TSAXAttributes30Properties;
begin
Result := FProps;
end;
{$ENDIF}
procedure TSAXAttributes30.addAttribute(const strURI: WideString; const strLocalName: WideString;
const strQName: WideString; const strType: WideString;
const strValue: WideString);
begin
DefaultInterface.addAttribute(strURI, strLocalName, strQName, strType, strValue);
end;
procedure TSAXAttributes30.addAttributeFromIndex(varAtts: OleVariant; nIndex: SYSINT);
begin
DefaultInterface.addAttributeFromIndex(varAtts, nIndex);
end;
procedure TSAXAttributes30.clear;
begin
DefaultInterface.clear;
end;
procedure TSAXAttributes30.removeAttribute(nIndex: SYSINT);
begin
DefaultInterface.removeAttribute(nIndex);
end;
procedure TSAXAttributes30.setAttribute(nIndex: SYSINT; const strURI: WideString;
const strLocalName: WideString; const strQName: WideString;
const strType: WideString; const strValue: WideString);
begin
DefaultInterface.setAttribute(nIndex, strURI, strLocalName, strQName, strType, strValue);
end;
procedure TSAXAttributes30.setAttributes(varAtts: OleVariant);
begin
DefaultInterface.setAttributes(varAtts);
end;
procedure TSAXAttributes30.setLocalName(nIndex: SYSINT; const strLocalName: WideString);
begin
DefaultInterface.setLocalName(nIndex, strLocalName);
end;
procedure TSAXAttributes30.setQName(nIndex: SYSINT; const strQName: WideString);
begin
DefaultInterface.setQName(nIndex, strQName);
end;
procedure TSAXAttributes30.setType(nIndex: SYSINT; const strType: WideString);
begin
DefaultInterface.setType(nIndex, strType);
end;
procedure TSAXAttributes30.setURI(nIndex: SYSINT; const strURI: WideString);
begin
DefaultInterface.setURI(nIndex, strURI);
end;
procedure TSAXAttributes30.setValue(nIndex: SYSINT; const strValue: WideString);
begin
DefaultInterface.setValue(nIndex, strValue);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TSAXAttributes30Properties.Create(AServer: TSAXAttributes30);
begin
inherited Create;
FServer := AServer;
end;
function TSAXAttributes30Properties.GetDefaultInterface: IMXAttributes;
begin
Result := FServer.DefaultInterface;
end;
{$ENDIF}
class function CoXMLDocument.Create: IXMLDocument2;
begin
Result := CreateComObject(CLASS_XMLDocument) as IXMLDocument2;
end;
class function CoXMLDocument.CreateRemote(const MachineName: string): IXMLDocument2;
begin
Result := CreateRemoteComObject(MachineName, CLASS_XMLDocument) as IXMLDocument2;
end;
procedure Register;
begin
RegisterComponents('ActiveX',[TDOMDocument, TDOMDocument26, TDOMDocument30, TFreeThreadedDOMDocument,
TFreeThreadedDOMDocument26, TFreeThreadedDOMDocument30, TXMLSchemaCache, TXMLSchemaCache26, TXMLSchemaCache30,
TXSLTemplate, TXSLTemplate26, TXSLTemplate30, TDSOControl, TDSOControl26,
TDSOControl30, TXMLHTTP, TXMLHTTP26, TXMLHTTP30, TServerXMLHTTP,
TServerXMLHTTP30, TSAXXMLReader, TSAXXMLReader30, TMXXMLWriter, TMXXMLWriter30,
TSAXAttributes, TSAXAttributes30]);
end;
end.