Michael Van Canneyt wrote 24 lines
On Sun, 22 Nov 2009, Michael Joyner ?? wrote:
> I have tried using the ws_helper from the web services toolkit to
> import the WSDL file relating to vSphere, I end up with a *.pas file
> that only contains nothing of note beyond initial class registration. :(
Did you request the other files ? You should end up with 3 files:
mywsdl.pas
urn_mywsdl.pas
mywsdl_proxy.pas
The _proxy file contains what you need to communicate with the service.
Michael.
------------------------------------------------------------------------
--
_______________________________________________
Lazarus mailing list
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Here are the four files:
//==================================================== {
This unit has been produced by ws_helper.
Input unit name : "vimService".
This unit name : "vimService_binder".
Date : "23-11-09 08:01:15".
}
unit vimService_binder;
{$IFDEF FPC} {$mode objfpc}{$H+} {$ENDIF}
interface
uses SysUtils, Classes, base_service_intf, server_service_intf, vimService;
type
Implementation
uses TypInfo, wst_resources_imp,metadata_repository;
initialization
{$i vimService.wst}
{$IF DECLARED(Register_vimService_ServiceMetadata)}
Register_vimService_ServiceMetadata();
{$IFEND}
End.
//================================================================= {
This unit has been produced by ws_helper.
Input unit name : "vimService".
This unit name : "vimService_imp".
Date : "23-11-09 08:01:19".
}
Unit vimService_imp;
{$IFDEF FPC} {$mode objfpc}{$H+} {$ENDIF}
Interface
Uses SysUtils, Classes,
base_service_intf, server_service_intf, server_service_imputils,
vimService;
Type
Implementation
uses config_objects;
End.
//================================================= {
This unit has been produced by ws_helper.
Input unit name : "vimService".
This unit name : "vimService".
Date : "23-11-09 08:01:19".
}
unit vimService;
{$IFDEF FPC} {$mode objfpc}{$H+} {$ENDIF}
interface
uses SysUtils, Classes, TypInfo, base_service_intf, service_intf;
const
sNAME_SPACE = 'urn:vim25Service';
sUNIT_NAME = 'vimService';
type
procedure Register_vimService_ServiceMetadata();
Implementation
uses metadata_repository;
procedure Register_vimService_ServiceMetadata();
var
mm : IModuleMetadataMngr;
begin
mm := GetModuleMetadataMngr();
mm.SetRepositoryNameSpace(sUNIT_NAME, sNAME_SPACE);
end;
initialization
End.
//===========================================================
{
This unit has been produced by ws_helper.
Input unit name : "vimService".
This unit name : "vimService_proxy".
Date : "23-11-09 08:01:12".
}
Unit vimService_proxy;
{$IFDEF FPC} {$mode objfpc}{$H+} {$ENDIF}
Interface
Uses SysUtils, Classes, TypInfo, base_service_intf, service_intf,
vimService;
Type
Implementation
uses wst_resources_imp, metadata_repository;
initialization
{$i vimService.wst}
{$IF DECLARED(Register_vimService_ServiceMetadata)}
Register_vimService_ServiceMetadata();
{$IFEND}
End.
