BesaSoap

BesaSoap is written using new features of the Delphi language, represents C# or Java like native class support, nullable data types and custom attributes. The BesaSoap library is designed to help programmers develop faster and more native web service client applications.

BesaSoap is running Delphi XE2 and Up.

##Installation Open your releated delphi package then compile and install.

###Nullable Types

NullableString
NullableWideString
NullableAnsiString
NullableBoolean
NullableByte
NullableCardinal
NullableChar
NullableCurrency
NullableDateTime
NullableDouble
NullableExtended
NullableGuid
NullableInt64
NullableInteger
NullableNativeInt
NullableShortInt
NullableSingle
NullableWord

Sample usage:

var
  Str:string;
  StrN:NullableString;
begin
  Str:='test';
  StrN:='Nullable test';
  Str:=StrN+' append';
  StrN:=nil;
end;

###Serialization & Deserialization

With bsXMLSerializer you can serialize & deserialize your object.

type
  ArrayOfString=array of String;

  [XmlRootAttribute('native_test','http://www.besasoftware.com')]
  TNativeTest=class
   [XmlElementAttribute('ShortInt')]
   ShortInt_:ShortInt;
   [XmlAttributeAttribute('SmallInt')]
   SmallInt_:SmallInt;
   LongInt_:LongInt;
   Integer_:Integer;
   Int64_:Int64;
   Byte_:Byte;
   Word_:Word;
   LongWord_:LongWord;
   Cardinal_:Cardinal;
   UInt64_:UInt64;
   //
   Single_:Single;
   Double_:Double;
   Real_:Real;
   Extended_:Extended;
   Comp_:Comp;
   Currency_:Currency;
   //
   Char_ : Char;
   WideChar_ : WideChar;
   AnsiChar_ : AnsiChar;
   ShortString_ : ShortString;
   String_ : String;
   //
   Date_:TDate;
   Time_:TTime;
   TDateTime_:TDateTime;
   //
   NlbString:NullableString;
   NullString:NullableString;
   NlbInteger:NullableInteger;
   NullInteger:NullableInteger;
   //
   [XmlArrayAttribute('ArrayString')]
   ArrayString_: array of string;
   ArrayOfString_:ArrayOfString;
end;

####Serialization

procedure TForm1.bSerializeClick(Sender: TObject);
var
  serializer : TbsXMLSerializer;
  clazz: TNativeTest;
  xml:string;
begin
  serializer:=TbsXMLSerializer.Create;
  clazz:=TNativeTest.Create;

   clazz.ShortInt_:=1;
   clazz.SmallInt_:=2;
   clazz.LongInt_:=3;
   clazz.Integer_:=4;
   clazz.Int64_:=5;
   clazz.Byte_:=6;
   clazz.Word_:=7;
   clazz.LongWord_:=8;
   clazz.Cardinal_:=9;
   clazz.UInt64_:=10;

   clazz.Single_:=1.0001;
   clazz.Double_:=1.0002;
   clazz.Real_:=1.0003;
   clazz.Extended_:=1.0004;
   clazz.Comp_:=1.05;
   clazz.Currency_:=1.0006;
   //
   clazz.Char_ :='A';
   clazz.WideChar_ :='B';
   clazz.AnsiChar_ :='C';
   clazz.ShortString_ :='ABCD';
   clazz.String_ :='defgh';
   //
   clazz.Date_:=Date;
   clazz.Time_:=Time;
   clazz.TDateTime_:=Now;
   //
   clazz.NlbString:='NullableString';
   clazz.NullString:=nil;
   clazz.NlbInteger:=2015;
   clazz.NullInteger:=nil;
   //

   SetLength(clazz.ArrayString_,3);
   clazz.ArrayString_[0]:='One';
   clazz.ArrayString_[1]:='Two';
   clazz.ArrayString_[2]:='Three';
   SetLength(clazz.ArrayOfString_,3);
   clazz.ArrayOfString_[0]:='OneOf';
   clazz.ArrayOfString_[1]:='TwoOf';
   clazz.ArrayOfString_[2]:='ThreeOf';


  xml:=serializer.SerializeToString(clazz);
  Memo1.Lines.Text:=xml;
  clazz.Free;
  serializer.Free;
end;

Generated xml:

<NS1:native_test xmlns:NS1="http://www.besasoftware.com" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" SmallInt="2">
	<ShortInt>1</ShortInt>
	<LongInt_>3</LongInt_>
	<Integer_>4</Integer_>
	<Int64_>5</Int64_>
	<Byte_>6</Byte_>
	<Word_>7</Word_>
	<LongWord_>8</LongWord_>
	<Cardinal_>9</Cardinal_>
	<UInt64_>10</UInt64_>
	<Single_>1.00010001659393</Single_>
	<Double_>1.0002</Double_>
	<Real_>1.0003</Real_>
	<Extended_>1.0004</Extended_>
	<Comp_>1</Comp_>
	<Currency_>1.0006</Currency_>
	<Char_>A</Char_>
	<WideChar_>B</WideChar_>
	<AnsiChar_>C</AnsiChar_>
	<ShortString_>ABCD</ShortString_>
	<String_>defgh</String_>
	<Date_>2015-08-09T00:00:00Z</Date_>
	<Time_>1899-12-30T10:21:29.58Z</Time_>
	<TDateTime_>2015-08-09T10:21:29.58Z</TDateTime_>
	<NlbString>NullableString</NlbString>
	<NullString xsi:nil="true"/>
	<NlbInteger>2015</NlbInteger>
	<NullInteger xsi:nil="true"/>
	<ArrayString>
		<item>One</item>
		<item>Two</item>
		<item>Three</item>
	</ArrayString>
	<ArrayOfString_>
		<item>OneOf</item>
		<item>TwoOf</item>
		<item>ThreeOf</item>
	</ArrayOfString_>
</NS1:native_test>

####Deserialization

var
  serializer : TbsXMLSerializer;
  clazz: TNativeTest;
  xml:string;
begin
  serializer:=TbsXMLSerializer.Create;
  serializer.SetType(TypeInfo(TNativeTest));
  clazz:=serializer.DeserializeFromString(Memo1.Lines.Text).AsType<TNativeTest>;
  Memo1.Lines.Append('clazz.NlbString:'+ clazz.NlbString);
  Memo1.Lines.Append('clazz.NullString.HasValue:'+ BoolToStr(clazz.NullString.HasValue,true));
  clazz.Free;
  serializer.Free;
end;

###Attribute Types

Attribute Name	Description
XmlElementAttribute	Indicates that a public field or property represents an XML element when the serializer serializes or deserializes the object that contains it. In contrast if an XmlElementAttribute is not applied to such a field or property, the items in the array are encoded as a sequence of elements, nested under an element named after the field or property.
XmlAttributeAttribute	Specifies that the serializer must serialize the class member as an XML,attribute.
XmlTextAttribute	Indicates to the Serializer that the member must be treated as,XML,text when the class that contains it is serialized or deserialized.
XmlArrayAttribute	Specifies that the serializer must serialize a particular class member,as an array of XML elements.
XmlArrayItemAttribute	Represents an attribute that specifies the derived types that the Serializer can place in a serialized array.
XmlHolderAttribute	Specifies that the serializer must serialize the class as a Holder class.

###SOAP ####Auhentication Types BesaSoap, supports basic authentication and UsernameToken authentication.

####Generate WSDL proxy code

For importing wsdl you need the BesaSoap Importer Tool. You can download trial from http://www.besasoftware.com

For demo generated unit(http://www.webservicex.net/CurrencyConvertor.asmx?WSDL):

// ************************************************************************ //
// Generated with BesaSoap WSDL Importer - http://www.besasoftware.com
// WSDL Address :http://www.webservicex.net/CurrencyConvertor.asmx?WSDL
// Date Time :8.8.2015 20:08:14
// Importer Version  :1.01.113
// ************************************************************************ //
unit CurrencyConvertor;

interface
uses
  bsSOAPClient, bsNullable, bsAttribute;

type

  // ************************************************************************ //
  // Namespace : http://www.webserviceX.NET/
  // binding   : CurrencyConvertorSoap
  // service   : CurrencyConvertor
  // port      : CurrencyConvertorSoap
  // URL       : http://www.webservicex.net/CurrencyConvertor.asmx
  // ************************************************************************ //
  CurrencyConvertorSoap = interface(IInvokable)
  ['{A927F398-6AD1-4362-9A25-5D4775730267}']
    function ConversionRate(FromCurrency: string; ToCurrency: string): Double; stdcall;
  end;

function GetCurrencyConvertorSoap(Addr: string; BSSERVICE: TbsService): CurrencyConvertorSoap;


implementation

uses SysUtils;

function GetCurrencyConvertorSoap(Addr: string; BSSERVICE: TbsService): CurrencyConvertorSoap;
const
  defURL  = 'http://www.webservicex.net/CurrencyConvertor.asmx';
  defSvc  = 'CurrencyConvertor';
  defPrt  = 'CurrencyConvertorSoap';
  defNS   = 'http://www.webserviceX.NET/';
var
  Service : TbsService;
begin
  Result := nil;
  if (Addr = '') then Addr := defURL;
  if BSSERVICE = nil then
    Service:= TbsService.Create(nil)
  else
    Service := BSSERVICE;

  Service.URL:= defURL;
  Service.ElementForm:=sfQualified;
  Service.RegisterInterface( TypeInfo(CurrencyConvertorSoap), defNS);
  Service.RegisterSoapAction('%OperationName%','http://www.webserviceX.NET/%OperationName%');
  Result := (Service as CurrencyConvertorSoap);
end;


end.

Using soap methods:

procedure TForm1.btnConversionRateClick(Sender: TObject);
var
  Service : CurrencyConvertorSoap;
  res: double;
begin
  Service := GetCurrencyConvertorSoap('', bsCurrency);
  res:=Service.ConversionRate(cbFromCurrency.Text,cbToCurrency.Text);
  lblResult.Caption:='Rate :'+FloatToStr(res)
end;

besasoftware/besasoap

BesaSoap