base64 server and client sample

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@524 8e941d3f-bd1b-0410-a28a-d453659cc2b4

wst/trunk/samples/base64/client/client_sample.pas

@@ -0,0 +1,37 @@
+program client_sample;
+
+{$mode objfpc}{$H+}
+
+uses
+  Classes, SysUtils,
+  base_service_intf, synapse_http_protocol,
+  soap_formatter,
+  base64sample, base64sample_proxy;
+
+var
+  service : SampleService;
+  locBuffer, locResBuffer : TBase64StringRemotable;
+  i : Integer;
+  s : ansistring;
+begin
+  SYNAPSE_RegisterHTTP_Transport();
+
+  locResBuffer := nil;
+  locBuffer := TBase64StringRemotable.Create();
+  try
+    SetLength(s,255);
+    for i := 1 to Length(s) do
+      s[i] := Char(i);
+    locBuffer.BinaryData := s;
+    service := wst_CreateInstance_SampleService();
+    locResBuffer := service.DuplicateContent(locBuffer,1);
+    WriteLn('Input content : ',locBuffer.BinaryData,'  Encoded : ',locBuffer.EncodedString);
+    WriteLn('Output content : ',locResBuffer.BinaryData,'  Encoded : ',locResBuffer.EncodedString);
+    WriteLn('Check = ', ( locResBuffer.BinaryData = s ) );
+    ReadLn;
+  finally
+    locResBuffer.Free();
+    locBuffer.Free();
+  end;
+end.
+