DELPHI 6 선점-BizSnap/SOAP/WebService 2
9927 단어 webservice
-- SOAP를 통해 사용자 정의 유형 데이터 전달
앞의 예《DELPHI 6 선도적 연구--BizSnap/SOAP/Web 서비스 중 하나--Hello World!의 예》에서 보듯이 SOAP를 통해 원격 대상 호출을 편리하게 할 수 있다. 비록 그 예에 사용된 대상은 Delphi류이지만 실제로는 대상에 대한 SOAP 포장만 하면 COM/CORBA/EJB 등 각 대상을 호출할 수 있다(EJB가 자바로 해야 하는 것을 제외하고 COM/CORBA는 모두 Delphi로 실현할 수 있다).그 예에서 인터페이스 방법이 사용하는 데이터 유형은 모두 표준 유형이지만 실제 응용에서 사용자 정의 유형을 전달해야 하는 상황에 자주 부딪히기 때문에 이 때의 조작은 약간 번거롭다. 자세한 내용은 리비"재미, 가능한 새로운 기술 - 웹 서비스"의 예와 같다.마찬가지로 여기서도 하나의 예로 SOAP를 통해 사용자 정의 데이터 형식을 전달하는 방법을 설명해야 한다. 이 예는 비교적 번거로운 예가 될 것이다. 서버: 1.New | Web Services | Soap Server Application, 다음 그림: 이 예는 웹 앱 Debugger(상세 참조DELPHI 6 선점 연구 - 웹 응용 개발 및 디버깅를 사용하여 CoClass Name을wadSoapDemo2로 설정합니다. 다음 그림: 2.SaveAll, Unit2 이름: SvrWMmain, Unit1 이름 바꾸지 않음, Project1 이름: Server,3. New | Data Module, 이 단원을 SvrData Mod로 저장합니다.4. 두 개의dbExpress 컨트롤을 넣는다. SQLconnection1과 SQLDAtaSet1이다. 다음 그림은 속성 설정이 다음과 같다.
SQLConnection1
ConnectionName := IBLocal;LoginPrompt := false;Params.Values['Database'] := '[...]/Examples/Database/Employee.gdb';//위의 [...]InterBase 설치 경로
SQLDataSet1
SQLConnection := SQLConnection1;CommandText := 'select FULL_NAME, PHONE_EXT from EMPLOYEE WHERE EMP_NO = :EMP_NO';
5. New | Unit, 이 단원을 SvrDataType으로 저장합니다. 그 내용은 다음과 같습니다.
unit SvrDataType;
interface
Uses
InvokeRegistry;
Type
TEmpInfo = Class( TRemotable )
Private
FName : String;
FPhone : String;
published
Property Name : String Read FName Write FName;
Property Phone : String Read FPhone Write FPhone;
end;
implementation
Initialization
RemClassRegistry.RegisterXSClass( TEmpInfo );
Finalization
RemClassRegistry.UnRegisterXSClass( TEmpInfo );
end.
unit SvrSoapIntf;
interface
Uses
InvokeRegistry, SvrDataType;
Type
ISoapEmployee = Interface( IInvokable )
['{31903B5A-96B3-43C2-A7B5-F67F6DB829E5}']
Function GetEmployee( aEmpNo : Integer ) : TEmpInfo; StdCall;
End;
implementation
Initialization
InvRegistry.RegisterInterface( TypeInfo( ISoapEmployee ) );
end.
unit SvrWMMain;
interface
uses
SysUtils, Classes, HTTPApp, WSDLPub, SOAPPasInv, SOAPHTTPPasInv,
SoapHTTPDisp, WebBrokerSOAP;
type
TWebModule2 = class(TWebModule)
HTTPSoapDispatcher1: THTTPSoapDispatcher;
HTTPSoapPascalInvoker1: THTTPSoapPascalInvoker;
WSDLHTMLPublish1: TWSDLHTMLPublish;
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule2: TWebModule2;
implementation
uses WebReq, InvokeRegistry, SvrDataType, SvrSoapIntf, SvrDataMod;
{$R *.DFM}
Type
TSoapEmployee = class( TInvokableClass, ISoapEmployee )
Protected
Function GetEmployee( aEmpNo : Integer ) : TEmpInfo; StdCall;
End;
{ TSoapEmployee }
Function TSoapEmployee.GetEmployee(aEmpNo: Integer): TEmpInfo; StdCall;
Begin
Result := TEmpInfo.Create;
If ( Not Assigned( DataModule2 ) ) Then
DataModule2 := TDataModule2.Create( Nil );
Try
DataModule2.SQLConnection1.Open;
With DataModule2.SQLDataSet1 Do
Begin
ParamByName( 'EMP_NO' ).AsInteger := aEmpNo;
Open;
If ( Not Eof ) Then
Begin
Result.Name := FieldByName( 'FULL_NAME' ).AsString;
Result.Phone := FieldByName( 'PHONE_EXT' ).AsString;
End
Else
Begin
Result.Name := '';
Result.Phone := '';
End;
Close;
End;
DataModule2.SQLConnection1.Close;
Finally
DataModule2.Free;
DataModule2 := Nil;
End;
End;
initialization
WebRequestHandler.WebModuleClass := TWebModule2;
InvRegistry.RegisterInvokableClass( TSoapEmployee );
end.
<types>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" targetNamespace="urn:SvrDataType">
<xs:complexType name="TEmpInfo">
<xs:sequence>
<xs:element name="Name" type="xs:string"/>
<xs:element name="Phone" type="xs:string"/>
</xs:sequence>
</xs:complexType>
</xs:schema>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" targetNamespace="urn:WSDLSoap">
<xs:complexType name="TWSDLSOAPPort">
<xs:sequence>
<xs:element name="PortName" type="xs:string"/>
<xs:element name="Addresses" type="ns3:TWideStringDynArray"/>
</xs:sequence>
</xs:complexType>
</xs:schema>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" targetNamespace="urn:Types">
<xs:complexType name="TWideStringDynArray">
<xs:complexContent>
<xs:restriction base="soapenc:Array">
<xs:sequence/>
<xs:attribute ref="soapenc:arrayType" n1:arrayType="xs:string[]"
xmlns:n1="http://schemas.xmlsoap.org/wsdl/"/>
</xs:restriction>
</xs:complexContent>
</xs:complexType>
</xs:schema>
</types>
procedure TForm2.Button1Click(Sender: TObject);
Var
ei : TEmpInfo;
begin
ei := ( HTTPRIO1 As ISoapEmployee ).GetEmployee( StrToInt( Edit1.Text ) );
If ( Assigned( ei ) ) Then
Begin
Label1.Caption := ei.Name;
Label2.Caption := ei.Phone;
End;
end;
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
java가 클라이언트를 통해 서버 웹 서비스에 접근하는 방법본고는 자바가 클라이언트를 통해 서버 웹 서비스에 접근하는 방법을 실례로 설명한다.다음과 같이 여러분에게 참고할 수 있도록 공유합니다. 자바 관련 내용에 관심이 있는 더 많은 독자들은 본 사이트의 주제를 볼 수 있습...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
