Best viewed in full screen

The Hospitality Survey App template contains a RAD Server project and a Delphi client project. You can download the Hospitality Survey App template code for yourself from Embarcadero's GetIt. The Delphi client project makes REST calls via the BaaS components to RAD Server. Keep in mind that this same source code will work with TRESTClient and TNetHTTPClient. It is beneficial for the REST calls to be made in an asynchronous way because the interface stays responsive and on some platforms like Android it is required that HTTP calls are made asynchronously.

There are quite a few different ways to achieve asynchronous calls using the various libraries and functionality built into Delphi 10.2.1 Tokyo. The below source code is one way to make asynchronous calls that I found which worked for me. It uses the Parallel Programming Library with it's TTask object in this case. If you're interested in more on how TTask works check out this tutorial as well. It includes examples of pausing and canceling tasks.

In the below code a TTask is used to create a thread where the BackendEndpointGet component calls it's Execute method. The BackendEndpointGet.Tag property is used to store whether the BackendEndpointGet component is in use or not (BUSY or NOT_BUSY) so that two calls can not be made on the same component at the same time. The activity dialog is show prior to starting the Task. The Execute method is synchronous but it is inside of the Task so it doesn't block the app UI and the activity dialog displays nicely over it. Once the Execute method completes the code checks that the response code from the call is the HTTP 200 code. If it is then is proceeds to save out the contents of the response to a JSON file. TThread.Synchronize() is then used to make sure that any changes to the UI take place within the main thread. In this case the JSON file is loaded into a TFDMemTable and then the dynamic survey form is built using the GenerateSurvey() procedure from the contents of the TFDMemTable.

After all of the data is loaded or an exception is encountered the activity dialog is hidden again and the hide activity dialog procedure is within a TThread.Synchronize call as well so that the changes to the UI are main from within the main thread.

As I previously started there are a lot of different ways to do this but this is one way I found that worked for me. Check out the source code below!

//
//
  const
    BUSY = 1;
    NOT_BUSY = 0;
//
procedure TMainForm.TakeSurveyActionExecute(Sender: TObject);
var
  SL: TStringList;
begin
  if BackendFrame.BackendEndpointGet.Tag = NOT_BUSY then
  begin
    BackendFrame.BackendEndpointGet.Tag := BUSY;
    ShowActivity;
    ITask(TTask.Create(
      procedure
      begin
        try
          BackendFrame.BackendEndpointGet.Execute;
          if BackendFrame.BackendEndpointGet.Response.StatusCode = 200 then
          begin
            SL := TStringList.Create;
            SL.Text := BackendFrame.BackendEndpointGet.Response.Content;
            SL.SaveToFile(SettingsFilePath + 'surveys.json');
            SL.Free;
            TThread.Synchronize(nil,
              procedure
              begin
                FDMemTableForm.LoadFromFile(SettingsFilePath + 'surveys.json', sfJSON);
                FDMemTableForm.Open;
                FDMemTableForm.First;
                SurveyVSB := TVertScrollBox.Create(Self);
                SurveyVSB.Parent := SurveyTabItem;
                SurveyVSB.Align := TAlignLayout.Client;
                GenerateSurvey(SurveyVSB);
                ChangeTabAction.Tab := SurveyTabItem;
                ChangeTabAction.ExecuteTarget(Self);
              end);
          end;
        finally
          TThread.Synchronize(nil,
            procedure
            begin
              HideActivity;
            end);
          BackendFrame.BackendEndpointGet.Tag := NOT_BUSY;
        end;
      end)).Start;
  end;
end;

Want more info about how the Hospitality Survey App template works? Check out the full Developers Guide in this video.

The conference is organized by Embarcadero partner BitTime and their consulting company BitTime Professionals at their office in Franscati, near Rome, and all of the information is at:

http://www.itdevcon.it/

Well, it might be a little late to join, but I realized I forgot mentioning the event on my blog, so here it goes. If you plan attending, I'll be there tomorrow afternoon and also join the dinner. See the final agenda at http://www.itdevcon.it/agenda

I'll be giving a keynote on the status of RAD Studio, but also two technical sessions covering FireDAC CData Enterprise connectors and offering an introduction to Sencha's ExtJS and Architect tool, along with demos of integration with Delphi powered back ends. Would be interesting, and I'll make sure to share my demos with everyone -- and possibly repeating them at the coming CodeRage online conference next month.

A special event combining Delphi and Ext JS is coming with Embarcadero MVP Andrea Magni in Milan this October 26th.

• Are you a Delphi developer looking for a modern web solution?
• Would you like to offer a web user interface as effective as your desktop application’s one?
• Is a mobile web app suitable to your needs instead of taking the complexity of build and distribute native mobile apps?
• Are you looking for a new technology to upgrade your existing web proposal?

Delphi has been and still is a referring point in the area of data-centric business applications, thanks to its high performance and wide data access capabilities. It offers a first-rate support for the Windows platform and with the recent addition of the ability to reach other desktop platforms like Mac OS X and Linux. 

What are you waiting for? Let’s try Delphi and ExtJS together: the ultimate usable modern web solution.

ExtJS helps you in building data-intensive, cross-platform web apps for desktops, tablets, and smartphones, with a customized and user-friendly interface. Thanks to all these features you can make your users feel the same experience of your Desktop App in a new Web App.

Structure and usability are the both ExtJs and Delphi strengths. If you share the same mindset, let’s come and discover how to integrate Delphi with ExtJs, step by step. A hands-on event with two specialists, each side: Andrea Magni, Embarcadero Delphi MVP, and Federico Baron, ExtJs Expert.

MORNING SCHEDULE:

• Introducing Federico Baron and Andrea Magni
• Introducing Delphi and ExtJs with Case Studies
• Trial: “How to integrate Delphi with ExtJs, step by step!”
• Objectives, results and further developments

EVENT INFORMATION:

Ibuildings c / o Regus
Santa Maria Valle 3
Milan, MI
Italy

26 of October

[Registration]

Best viewed in full screen.

Best viewed in full screen.
Source Code: ai-example-20171018

Here in the Delphi community, we all know Dr. Bob Swart, and CodeRage wouldn’t be complete without him (he has a session this year on Customizing DataSnap Method Output, don’t worry.). This year we are also hearing from Uncle Bob, the author of Clean Code – A Handbook of Agile Software Craftsmanship. This is one of those “must reads” that all software developers should have on their bookshelf.

I had an opportunity to see Uncle Bob speak a few years ago, and it was very memorable. This session will be like no others you’ve seen. He is speaking on “The Clean Coder – An Introduction to Software Professionalism.” His session and the live Q&A will be available only during the live CodeRage session, so be sure to join Uncle Bob for this amazing session!

Register now!

Idera recently acquired Sencha (https://www.sencha.com/) and has added the company products to the Embarcadero business unit, which produced RAD Studio and also the RAD Server web service technology. A natural question arises on how to use the two products together. While there are several options, in this blog post I want to highlight the simple and direct integration of RAD Server and FireDAC with an ExtJS client based on Sencha’s data model architecture. Most of the considerations in this blog post would equally apply to using WebBroker or DataSnap to build the web service..

A Simple Test

As first step, I’ve created a simple blank RAD Server application. What this does is to expose standard REST endpoints like “version”. In an ExtJS client build with the Architect IDE, I’ve added a button, picked the Tap event, and written code like the following:

What this code does is make a call to the version REST API, create a JavaScript object with the resulting JSON (decode), display the data on the browser console, and display the server field as button text.

Defining a Data Model

This just proves that the JavaScript application can invoke RAD Server. Next I moved to the data processing. ExtJS has the concept of a data model, so using the visual tool I created a simple one like the following:

Returning JSON from RAD Server

Next, I had to define a data store. First I used an AJAX data store and to keep things simple I wrote a custom method in RAD Server to expose a plain JSON data structure, built using the TJSONObject and TJSONArray classes. In this code EmployeeTable is a TFDQuery dropped in the data module along with a connection to the classic InterBase employee demo database:

This is the resulting JSON in a browser:

With this code and the use of an AJAX call, the JavaScript application by default ends up with with cross-server invocation security problems, when executed in the browser. There is  however a fairly simple solution in RAD Server, which is set a single line in the EMS.INI file, with a configuration like:

This is fairly over-permissive, in production you’d want to indicate a specific domain rather than *. With this setting and possibly even some proxy configuration in your web server,  you can handle the cross-domain resource access.

Implementing JSONP in RAD Server

The alternative options (a little older and considered less secure) is to implement a JSONP server. You can read the documentation here: http://docs.sencha.com/extjs/6.5.2/modern/src/JsonP.js-1.html.

In short, rather than returning JSON data, a JSONP call returns the JavaScript source code of a function that includes the JSON text as a parameter. The name of the function to call is passed in a parameter named “callback” in a regular GET HTTP call. A common implementation is to check for that parameter and return JSONP (that is, JavaScript) in the specific case, JSON if the parameter is not present. It actually takes less time to read the code than the description. In the code above, the last line becomes:

Defining Storage in ExtJS

Now that we have a proper source of either JSON or JSONP data (both work at the same URL), we can define a data storage for them in ExtJS. Again, using Architect this can be done by setting a few properties, and here is the resulting code for AJAX:

The rootProperty is the name of the core JSON object, under which there is the actual data. It could be a more complex and nested sequence. With this configuration, you can use the Architect IDE to load the data and preview it:

The configuration of a JSONP data store is very similar, as listed below:

An EXtJS Grid for the UI

Now that we have a model and a data store (or actually two), we can wire up the user interface. For this simple case, I’ve just added a grid to the UI, added 5 columns to it, and tied each column to each field in the data model:

With this configuration, you can preview your grid at design time in the Architect IDE, as shown here:

And finally, this is the final application running in a browser, with the ability to sort and rearrange the columns in a very sophisticated JavaScript grid in the browser, powered by the InterBase employee database and a RAD Server web service:

Summary

In summary the data flow is: InterBase database, FireDAC connection and SQL query, REST server method with custom JSON processing, ExtJS data storage, ExtJS grid for the UI. And something you can put together in 15 minutes!

While there are several different options on the table for using ExtJS and RAD Studio web services together, and more will be made available by Embarcadero in the future to further simplify the process, as you can see accessing to data produced by a Delphi application from an ExtJS client is reasonably simple.

C++Builder 10.2 Tokyo does not have BDE installed.
So, Install BDE separately in C++Builder 10.2 Tokyo.
It is after the end of the all of the installation.

Download BDE Installer for RAD Studio, Delphi, C++Builder 10.2 Tokyo

Download the installer from the URL below.
ID: 30752, BDE Installer for RAD Studio, Delphi, C++Builder 10.2 Tokyo 

Check the Paradox data.

Use the sample file named biolife.db.
This is sample data of Paradox.
I brought it from C++Builder 5 sample data.

There is a "Graphic" field in biolife.db. "Graphic" is Blob type.

Save the Blob data in the JPEG format using the BDE.

In VCL, JPEG can be processed using TJPEGImage.

#include <Vcl.Imaging.jpeg.hpp>

Use TTable to get all of biolife.db.

//---------------------------------------------------------------------------
void __fastcall TfmMain::bde_biofish_save()
{
    // created a new TTable and set the biolife table.
    std::auto_ptr<TTable> l_table( new TTable(this));
    l_table->DatabaseName    = "DBDEMOS";
    l_table->TableName      = "biolife.db";
    l_table->Active         = true;
    l_table->FindFirst();
    //Loop for acquiring all data.
    while (! l_table->Eof)
    {
        std::tr1::shared_ptr<TJPEGImage> l_jpeg(new TJPEGImage());
        std::tr1::shared_ptr<TMemoryStream> l_ms(new TMemoryStream());

        //Using the CreateBlobStream() function will create a new TStream.
        //Instances created with TStream need to be deleted.
        std::tr1::shared_ptr<TStream> ss(l_table->CreateBlobStream(
            l_table->FieldByName("Graphic"), TBlobStreamMode::bmRead));
        ss->Position = 8;
        l_ms->CopyFrom(ss.get(), ss->Size-8);
        l_ms->Position = 0;
        std::tr1::shared_ptr<TBitmap> b(new TBitmap());
        b->LoadFromStream(l_ms.get());
        //Convert calling Bitmap data to jpeg.
        l_jpeg->Assign(b.get());

        //When saving JPEG, the file name is "Species No" and "Species Name".
        l_jpeg->SaveToFile(l_table->FieldByName("Species No")->AsString + "_" +
            StringReplace(l_table->FieldByName("Species Name")->AsString, " ", "_", TReplaceFlags() <<rfReplaceAll) +
            ".jpeg");
        //Move to the next record.
        l_table->Next();
    }
}

Make the file name "Species No" + "Species Name" + ". Jpeg".
"Species No" + "Species Name" exists in DB field.

Confirm the output JPEG data

There are many situation when it would handy to know the IP address of a device where our app is running. Maybe you want to identify who is running your app? By IP address it is also possible to calculate the approximate location of a device. If you connect to Internet through a router, there are big chances that it implements "Network Address Translation" (NAT), to make it harder for remote machines to establish a direct connection to a machine within a local network.

Recently I have come across a very simple and useful REST API that makes it possible to get the IP address and the geographical location of a client that invokes it. In this way we could find out under which IP address the Internet "sees" us.

If you send an HTTP GET request to http://ip-api.com/json, you will receive a JSON document with information about your IP address, longitude and latitude, country, city, zip code, ISP provider name, timezone and region.

In order to make this service easily accessible in code I have put together a little Delphi "TMyIP" class that provides one class function "GetInfo" that takes "TIPInfo" record "out" parameter and returns a boolean value that indicates if the parameter contains valid information. The actual HTTP GET request is made using the native "THTTPClient" class from "System.Net.HttpClient" unit. The JSON processing is done using "TJSONTextReader" class.

Below is the full source code of the "uMyIP" unit that contains the "TMyIP" class.

unit uMyIP;

interface

type
  TIPInfo = record
    status: string;
    aAs: string;
    city: string;
    country: string;
    countyCode: string;
    Isp: string;
    lat: double;
    lon: double;
    org: string;
    IPAddress: string;
    region: string;
    regionName: string;
    timezone: string;
    zip: string;
  end;

  TMyIP = class
  public
    class function GetInfo(out info: TIPInfo): boolean;
  end;

implementation

uses
  System.SysUtils,
  System.Classes,
  System.JSON.Readers,
  System.JSON.Types,
  System.Net.HttpClient;

const
  IP_API_JSON_URL = 'http://ip-api.com/json';

{ TMyIP }

class function TMyIP.GetInfo(out info: TIPInfo): boolean;
var c: THTTPClient; json: string; sr: TStringReader; jtr: TJsonTextReader;
  resp: IHTTPResponse;
begin
  Result := False;
  c := THTTPClient.Create;
  try
    try
      resp := c.Get(IP_API_JSON_URL);
      json := resp.ContentAsString;
    except
      exit;
    end;
  finally
    c.Free;
  end;

  sr := TStringReader.Create(json);
  try
    jtr := TJsonTextReader.Create(sr);
    try
      while jtr.Read do
      begin
        if jtr.TokenType = TJsonToken.PropertyName then
        begin
          if jtr.Value.ToString = 'status' then
          begin
            jtr.Read;
            info.status := jtr.Value.AsString;
          end

          else if jtr.Value.ToString = 'as' then
          begin
            jtr.Read;
            info.aAs := jtr.Value.AsString;
          end

          else if jtr.Value.ToString = 'city' then
          begin
            jtr.Read;
            info.city := jtr.Value.AsString;
          end

          else if jtr.Value.ToString = 'country' then
          begin
            jtr.Read;
            info.country := jtr.Value.AsString;
          end

          else if jtr.Value.ToString = 'countyCode' then
          begin
            jtr.Read;
            info.countyCode := jtr.Value.AsString;
          end

          else if jtr.Value.ToString = 'isp' then
          begin
            jtr.Read;
            info.isp := jtr.Value.AsString;
          end

          else if jtr.Value.ToString = 'lat' then
          begin
            jtr.Read;
            info.lat := jtr.Value.AsExtended;
          end

          else if jtr.Value.ToString = 'lon' then
          begin
            jtr.Read;
            info.lon := jtr.Value.AsExtended;
          end

          else if jtr.Value.ToString = 'org' then
          begin
            jtr.Read;
            info.org := jtr.Value.AsString;
          end

          else if jtr.Value.ToString = 'query' then
          begin
            jtr.Read;
            info.IPAddress := jtr.Value.AsString;
          end

          else if jtr.Value.ToString = 'region' then
          begin
            jtr.Read;
            info.region := jtr.Value.AsString;
          end

          else if jtr.Value.ToString = 'regionName' then
          begin
            jtr.Read;
            info.regionName := jtr.Value.AsString;
          end

          else if jtr.Value.ToString = 'timezone' then
          begin
            jtr.Read;
            info.timezone := jtr.Value.AsString;
          end

          else if jtr.Value.ToString = 'zip' then
          begin
            jtr.Read;
            info.zip := jtr.Value.AsString;
          end

        end;
      end
    finally
      jtr.Free;
    end;
  finally
    sr.Free;
  end;

  Result := info.status = 'success';
end;

end.

Let's quickly test this class. Start Delphi and create a new "Multi-Device Application" project. Choose "Blank Application" template and save the main form as "uFormMyIP" and the whole project as "MyIP". You can optionally change the "Name" property of the form to "FormMyIP". Add a new unit to the project and save it as "uMyIP". Copy the above code, select the source code of the empty unit and paste the code to replace the entire content. Now add the new "uMyIP" unit to the uses clause of the form. Drop a button on the form and align it to "Top". Change its "Text" property to "Check IP". Drop "TListView" control onto the form, align it to "Client" and change its "Name" property to "lstvwInfo". Double-click on the button and add the following code to the "OnClick" event handler to invoke the "TMyIP.GetInfo" and display the data in the list view.

uses uMyIP;

procedure TFormMyIP.btnCheckIPClick(Sender: TObject);

  procedure AddItem(txt, det: string);
  var item: TListViewItem;
  begin
    item := lstvwInfo.Items.Add;
    item.Text := txt;
    item.Detail := det;
  end;

var info: TIPInfo; item: TListViewItem;
begin
  if TMyIP.GetInfo(info) then
  begin
    lstvwInfo.BeginUpdate;
    try
      lstvwInfo.Items.Clear;
      AddItem(info.IPAddress, 'IP address');
      AddItem(info.city, 'City');
      AddItem(info.country, 'Country');
      AddItem(info.timezone, 'Timezone');
      AddItem(info.lat.ToString, 'Latitude');
      AddItem(info.lon.ToString, 'Longitude');
    finally
      lstvwInfo.EndUpdate;
    end;
  end
  else
    ShowMessage('Failed');
end;

Save all and run the project. When you click on the button you should see how the world sees You!

The complete source code of this simple demo can be downloaded from here. Enjoy!

一年一度的CodeRage活动又将开始, 英巴也开始召唤有意在此舞台展示的使用者报名参加. 今年将有重量级的技术人才 Robert C. Martin参加, 他的Clean Code: A Handbook of Agile Software Craftsmanship一书相信是许多人都读过的好书.

大陆有兴趣的朋友也可以赶快报名参加主讲, 当然您必须整场以英文演说, 因此对除了技术之外, 对于英文语言能力也是一大挑战.

欲报名参加的详细可参考以下的连结:

https://community.embarcadero.com/blogs/entry/coderage-xii

一年一度的CodeRage活動又將開始, 英巴也開始召喚有意在此舞台展示的使用者報名參加. 今年將有重量級的技術人才 Robert C. Martin參加, 他的Clean Code: A Handbook of Agile Software Craftsmanship一書相信是許多人都讀過的好書.

台灣有興趣的朋友也可以趕快報名參加主講, 當然您必須整場以英文演說, 因此對除了技術之外, 對於英文語言能力也是一大挑戰.

欲報名參加的詳細可參考以下的連結:

https://community.embarcadero.com/blogs/entry/coderage-xii

I’m excited to announce that our September Cool App contest winner for September is RAD & Installer. While I continue to be impressed at how all our Cool App winners are providing interesting, useful, entertaining and generally “cool” capabilities, I admittedly have a soft spot for apps like RAD & Installer that improve the usability of one of our very own Embarcadero tools, in this case RAD Studio.

Creating an installer is an important step in delivering software. RAD & Installer integrates two of the most popular and most powerful installers right into the IDE: NSIS and Inno Setup. This simplifies the process with a powerful integration while showing the power of the RAD Studio IDE through extensions.

RAD & Installer developer Tomas Slapka of UnSigned used Delphi to create the app because, in his words, “the tool is the choice for developers wanting the power, readability and flexibility of the Modern Object Pascal language, coupled with native compilers and component libraries for fast single source code development on Windows, macOS, iOS, Android and Linux.”

With RAD & Installer, developers can now create an installer in a matter of minutes. They simply add NSIS or Inno Setup project and build setup for their application, library, component or any project they develop. Developers can work in single powerful IDE, use all their favorite features and deliver their software fast and easily.

This video provides a quick introduction to RAD & Installer.

[YoutubeButton url='https://youtu.be/J4BSK_ASOlw']

Interested in submitting for the Embarcadero’s Cool App contest? It’s open to any business or consumer application built with RAD Studio, Delphi or C++Builder. Embarcadero awards Cool App contest winners a $500 Amazon gift card and winning submissions are also highlighted on the company’s YouTube channel. For more information on the contest and a link to the submission form, click here.

Output to JSON Base64 Image Data Reading Browser.
I use Ext JS. And the JSON server is C++Builder bcc32.

Create a standalone new project for WebBroker.

Add action on TWebModule side.

PathInfo is set to "/img".

It is a code to output JSON corresponding to CORS.

Code that can be compiled with bcc32. For CORS please refer to the following URL.
https://developer.mozilla.org/en-US/docs/Web/HTTP/CORS

#include <memory>
#include <System.NetEncoding.hpp>
#include <System.Json.hpp>
void __fastcall TWebModule_main::WebModule_mainWebActionItem1Action(TObject *Sender,
          TWebRequest *Request, TWebResponse *Response, bool &Handled)
{
    const String filename = "90020_Ballistoides_conspicillum.jpeg";
    std::tr1::shared_ptr<TMemoryStream> m1(new TMemoryStream());
    std::tr1::shared_ptr<TJSONArray> ja(new TJSONArray());
    try
    {
        m1->LoadFromFile(filename);
        String ext          = ExtractFileExt(filename).Delete0(0,1);
        TStringStream* m2   = new TStringStream();

        TNetEncoding::Base64->Encode(m1.get(), m2);
        String out =  StringReplace("data:image/jpeg;base64,","jpeg",ext,TReplaceFlags() << rfReplaceAll)
            + StringReplace(m2->DataString, "\r\n", "", TReplaceFlags() << rfReplaceAll);
        m2->Clear();

        Response->ContentType   = "application/json; charset=UTF-8";
        Response->SetCustomHeader("Access-Control-Allow-Origin", "*");
        Response->SetCustomHeader("Access-Control-Allow-Headers", "X-Requested-With, X-PINGOTHER, Content-Type");

        ja->AddElement(new TJSONObject(new TJSONPair("img",out)));
        m2->WriteString(StringReplace(ja->ToJSON(), "\\", "", TReplaceFlags() << rfReplaceAll));
        Response->ContentStream  = m2;
    }
    catch(Exception& e1)
    {
        Response->Content = e1.Message;
    }
}

The output JSON is as follows.

[{"img":"data:image/jpeg;base64,/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAMCAgMCAgMDAwMEAwMEBQgFBQQEBQoHBwYIDAoMDAsKCwsNDhIQDQ4RDgsLEBYQERMUFRUVDA8XGBYUGBIUFRT/2wBDAQMEBAUEBQkFBQkUDQsNFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBT/wAARCACWAPoDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD9U6KKKACiiigAooooAKKKKACiiigArzr9oL45aB+zl8Jdd8e+IxJLY6YiiO0gIEt1M7BI4kz3ZmGT2UMx4U16LX4g/wDBQD46ap+13+1ZbfDjw/qOfBnhu9fTLPygpSSdf+P28PI8zbsdUG4gpECmDI24A9v/AOCev7VPxY+M/wC15rGqeM9S1S48JeM9P1B9M0iW7P8AZ9g9s8DL9mhxgCOM+UWULvLMzM7q1fqfX4xfsI3+k+P/APgol4bbSUMeieD9FvLLSjbvvWSOK3kg3M5Z96H7RJtYEZHlk85z+ztABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAfKv8AwUW/au/4Ze+B0n9lP/xWfijztM0fZLse1/dnzbwcc+TujwP78keeM1+M3wHjfwj4X8d/EJo5Fk0jT/sOnTfZFkC3lwwRZEZ/lBjym4YJ2zH1w3p//BTv4+2vx1/aj1ZNJl87QPCkI8P2kqSEpPJFI7XEwGSvMrugZeGSKM14XrPjbS3+CnhzwppsXl3q6nc6hqxkVtzShQkDo24rtMblSMA5izgZywB9yf8ABEW0gf4u/Ee6aGNrmPQoY0mKDeqNcAsoPUAlEJHfaPQV+wlfgD+x/wDte6f+yb4w8Natp2iW+p29zpl9b+J0eeWKS5MkweARkKwEsa20OwkMhFxIp8ss8g/WT4G/8FGfgX8dozFZeLI/CWrbwg0nxc0WnzvltqeWxdopCxPCpIzeqigD6aooooAKKKyvFXiax8G+HNR1vUpPLsrGFppMFQzYHCLuIBZjhVGRkkDvQB4v+0R+2d4K/Z8v10Ga01LxX40mh86Hw9o0a71Uo5R5ppCscakoARuaTDqwjZcmvDND/wCCpDfbLVvEfwk1Cw017cvPLo+tRXk6SlmCIkc0VujqVAYuZFI5AVsZP0t4X0Qafo2laXqTxwmzf/hIvFl7KYlUX523AikdAqgiRhLlSdsdtGrApKpN67tU1vRZJtU0i21LXfFPlJFpGqW3mR29lHMXiM0DcfuEl82QMeZW8tXG6IDNwlJr37fK+npdX+9X8tz6fAYrJKdL2eOwtScnvKNVRt6RdJq/VXb7HnXw3/4KF/A/4jS2VmfFT+FNYuYpZm03xRaSWJhWNWdy85BtyAiF8rKwwRzk4r6Rr5l8S/sY/CbxfqzaNa+G/ssiI0uq6zY3DxPFIdhSFYgRAryBi5URlY0AARPNjYfM0/hH41/sX6NB4l+GfiGTWfhVJEksVjq1t5+m7ZfNKM1oJfMs1Z5DLmB4wxki83LZjE/vYRcpWkl2ve1tW49r/wArb68qVz2KeRZbnU/Z5FiH7V7UqqUHLXanNSlCT1StJxb3V9j9M6K8l/Zw/aO8PftH+Cjqulo2l65ZbItY0C4kDz6fM2cfNgeZC+1jHMAA4VgQrpJGnrVaRlGcVKLumfD16FXC1ZUK8XGcXZpqzTXRoKKKKowCiiigAooooAKKKKACiiigAooooAKKKhu7uCwtZrq6mjtraFGklmmYKkaAZLMTwAACSTQBNRXwB+0X/wAFe/h58OPO0z4cWn/CwdaXH+mbjFpyf6pvv/efKvIPlHDJg8V+avxe/by+OXxr8yHXvHuoWWmv5f8AxLNEP2C3+TkZEWC/zHd85bnH91QAD9tfiR+218G/hlqA0u78YQa94gbbs0Pw1G2qXr7gW/1cAbbhFZzuIwuD/Eufif4t/wDBUrxt8XvC13p/wW8N2XhOG+kl0+DWvE2q20WpXMu6NfLs7fzAqzBZo33MzqNxUfMFLfl/4S1yDR7u8gvkkk0rUrV7K8SEAuEJDo6gkZMcqRShdy7/AC9pYKxr2CGzk1K5istbm/4SrWZYETSNc8RF5PMvpo4pba3tU3kzxMHRibkiOP7QheOIlo7jwcwxlfDS5YWXW9r6Lfqtna6vdLVczdo6ximVPEmracv9g6f43luUWf7IV0G5WYP4bSLfAVYEbxA8Yil8hNs0q7C0oZFkm19T+GsWo/8ACS6vLpPleL5/7QzFrHifSrq2kuPkFz8kaxlZYo5p5j90RGGM87toyPDNvqer6Nq32vXtG8T6fpcE9/a+ItR82e10i5kmiM4miuIwz+eu4Kphl3ykGPDLMyzQ+FZ3VfE154e1XVPFU1qbN9GDm3h1d3ilia9tpopDLexmMRvOsX32naQyeWxFfMyfsXaM+Vxura6vRpJXhZNWU+Z3uld6qcttzkR4O03w5qmleFr7TY/E3iPVngLjTdR8oW6zRxNbRwzkGIyMZD5jMssewx7GB3MOiv8Awf4QstNtX0ebwz4i0SZ2tF1S/u7/AE7UZZUjiMxAcrbxkPPGqZR1UOjSBlSZ166zXxC+l+G/DijVbPRLlLmDWNO1Wczalp9g0lpAYknMUTKTmF0s4VJbdEXWVZljHGCbwvrmgaaUGo+JNO8JQJEmgC/W0e8jleW6nuhlS42nMcsUSMUVUYTuqbq2jia1e0pSlo/e5ZaPVpdlF8ySilK3K7uUtGlZI7jwn8afin+yrcpYfDvxv4t0ga2jf2N4U1C0WRrdJLja0k9nOkkImZoSiGFd7hixaMHy5Pp6+/4Kz/GTwr4hns38H+E/Fulrdtptt9iguob8TF/3CXKiQhZpIxu8sRr8xdRteKSNPj/wVLqa3OreJn8dadrHhO/nuzqulXN7LYfbLm6jKrBNb5RI5Zg5xKheKLyZH3lYsGLR4y/h7xLdWng2y8AaLcve6Hf6udYlS4gwiSx2rRzzbmIeNfO2Rs8kZdUjDAg9cMwr0ZKMpc3Lo3old9GpcsrpLRKLbvfqTyJn6FR/8FgdVuNW1vToPg3pz3GlbZJHl8bpbwy27MFW5jmmskjMTF4dpLAsJoyoYEkcPdf8FXtYuPiVPpvxG8ELodhpV4txbeHrW8ktys6Oph+1XYEn2hV+WRdkUMZOGO8Bc/Cx/tix+B/iLSItf0rWbWyurUvb2txFLLZW7yMbqNC4DmP7QLAlod0TMQVZvnNTax9v8e69p3gd/tN80uiaVLo4G6VrW4XSo38pFOQkUxJEhG0AiORm2xEN1LHYiUpqU1yRvdrdKKg+bVW+1dxtp0k+vXhKtHD1VUq0VVX8snJL/wAklF/j8j9avhv+3T8KfHs3hfSr7UrrRzf6kuo6rfanEiwz3eVkhUSK7FYFl8rZIx+VLaJGyhZl+ltJ8QpcaAPG4jXU73W7dG0DTxJ8/kyRK8VsrAEBpCvmyOBhR95mjgVx/NDYajc6XcCe0ne3lH8SHGRkHB9RwODxXr3wn/av8ffCTV7W90fWrm0aGaOctbtgM6B1VnjOY3wksqhSvR2GeTn2W8VS6Ka+5/qn+B7PJkeOX7uU8PP+9+8pv5pKcV/27M/oCh0L7b5Xhbz/ALeg2XXiPVAmDdTjymEDgkj98o+ZMsEgVY9qrJERev7C2+J4ns723iufCltdGOa3nQP/AGhcQS4Ksp+7DHLH0PMjJ2jH7787v2ef+CoVlr1np/h3xtCbcahqDS6z4n05zHeeS6DJeIDIIbYhkiPyRALEoZEI+99H8V+HviD4NtNX024hT4bLGscAghZf7Sw3liBYQu5Yg48vydu+Vxs27OJt8Pi41Je43Ga1s9Gv67rTzOLHZPjcqUMRKzpt+7Ug+aLfS0ls9L2dpdbH5vfF3w74s/ZW+Nq+OPh+y6VazS3M3h64USSafqFkZATaTFsGWFgqAjOfuSxtxDLX6i/DH4i6P8W/h9oHjHQZGbS9YtEuoo5ShlgY8PDKEZlWWNw0boGO10ZTyDXnHxz+F1v8avBkmjeIo511m9Jl0HSYLgqtjIg/185UlWwHAlc7lRX8uLc7Bpvnf/gn58Sb74cfELxX8C/Fcq2tyLi41DR4JbhWWK6jO2/tIyZNvPy3CRxKcn7dIx6UpQ9jXdSCSp1Hsr+7O135JT1kkno1JJJJX+8zvEUuLMkjnKili8Nywrf34PSFTu2naMn3a6WPveiiiuo/JAooooAKK+MP2uf+Cnvw/wD2crq68N+HI4/iB46heSC4sLO4CWmmyIdpW5nAPzhsjykBYGNg5jO3PH/8E9P28/Hv7Vvxc8a6Z4ttPD+l6FBZR3Gm2tiHjmil3kCJSxJm3RrI7EkEGPKqFJCgH3/RRRQAUUUUAFFQ3d3BYWs11dTR21tCjSSzTMFSNAMlmJ4AABJJr8nP2vf+Ct+p3fiTUPCXwdf7JoFvOkM/iuHYLq8UFhMtr5iOsasCoWUqWG0sByMJ6ID9Bfi7+0vpnw48SReEdD8Pat4/8dSwpc/2DoSL/o0TOFV7q4ciK2VhvKmVhu2EDqM/ip+1r+2F8b/i74t1nw147vbvwraWVzJDL4Us828UGDKAsmOZTsmKbicOu04PBr7w/Ys/bX+F/wAS/EOqeBtJ8Mn4fand3kt7Zi9vvtcuuytzJPNcMA73bBQW8xpGYD77Y49x+O37Jvwy/aKtH/4S7w9H/a2zZFrun4t7+HAIXEoHzgZOEkDoM521/PGO8VMTkudSwWc4CVGjZW1Tnr9p2fI0+0Xo01dtWPWjgVUp81Od3+B+Atatv4W1S68N3mvpa7dHtZktpLqSRUVpWGRGgYgyNjkqgJUcnA5r6L/bC/YV8R/svTQ6xZXknifwRdPsTVVt/Lks5CTtinUEgZGAJBgMc8KcCvnfQLsPPFbXMweGISyWtvcv/o4uHUKGbPyrkqhJIIbYqthcsv7flucYLOMFHH5fUVSm9mu66NPVPumctLDSnXjQm+VtpXfTz8/lvstTHrotE1a61K90u1aXUWvrGD7NojaWo86GfzmmiUAAM+6WRxkMGUyBhu2BGk+JMnhmbxlfSeELfU7PQnSFkt9Xnt554pjCn2hPMt0SJ4xP5ojZUTMYQlVJIHM16c4KrGz+XX+v1WhzSXJJx7d9Ge+XeoacuoXPg9Lm31rWbz7N9l0yfwrZaXa/bWC4ine2k3iURy3FthgPLllLb4ygkXO1q28Lal4LufGGqeFNVvb/AFe6mu2mj8SW5uljeYK91JElsBHH5yNEh8oqTLKGKnyM8l4Y+NPifQbvRUbWtVg0jSkEcWnaPdJYoQpZl3KI2jcl2yxkjcvyGJzkdb4W8c2N/wCNfBd14Qa98NX9pqNtpEXh+S8kaK6tJbyW4bfdqoPliSRYzG0bHbsbMhDAfGVMHicJ7zjtrzRk0nZO6fKo8vNaP2ZRWrbNlJSNHw/o2oz6h4dutItNO0PTNMsRrmnadfXENhPeXMIeZJbxpnWS4UASETxqYimVX7Nvl8nOa9vN2kwWEug2fiTUk2ad4k8OWsmnBbQSv591OwRFijTZNGWSFJNkMhdxEAJ87wXfeE5dZ16+RvEWu6yul38ga7nht21PzYXFy5JEvkNHA9w/zNL5pQHKHEb3NNl07wJoxMHjD7PpniKxW50u18iaeSzkaZUlF0DGsckGbeaCULvEoSN/IfagWJ05RqNOLb0teL1vzN33bWvNqlzWkmuaNol9DR1m4sfjjd6xDFayTTaS6C1vfD9nIZ9Sdz/pN9NYquCZRD95fL2PNbxyMy4eO3fM9/pur2PiG/k1DTYdHS10vwkurKt9A1jHbGW6aMLNFZSeTDcMyP8AvMtLGAxJJzpPDOr6n4H15dek8K+HN8EF+utabNa4uLZLjyfs7w2G4mIzSB/MEZ/eQKrk4Qx6MMXho+MdG1SSyvdZ1/xHayq82n6xENO1G+lLQz27H7MWgNxE4kK5VojdxqRCPnTlfJBctJ80YXSSadmlGWkrpJNq8rWcVe3LzFepnaRps1r/AMIjB4d8R6d/whtvu1K5n1W7jtI7y6bes8M1tLKgaXyRHbmFZGTY6MXRbhmrO+IfxCs5/DfiTwnNaa9o+qwaw8y215qMepxoTK5urbztqSLGZBFJyZg7wqxw2XORrPjLShpdtbX3g7Sk1TSnewbSb86ght08ySQiIrcKQBI0m9Jizh3yrMh2Q8DqOsX+r/Zvt97c3v2WBbaD7RK0nkwrnbGmSdqjJwo4Ga9zDYB16qq1o/C7puyd+Zu+jad766JK/u9TNysrIqUUUV9UYElvczWkyywSvDKvR42KsO3BFfTP7Mn7dPjX4B67ak3aahpMbu62V7G0tqsrr5ZmaJWXDhMDzI9r7V25ZWZT8xUVz1sPCt8W62a3Xoz2cuzfFZY2qLvCXxQlrCX+KOz8no1ummf0D/AT9qbw38bdDvL3S9SttC1c2sFxrurazcxRtEjEKv2FCWWSFHdo1MhQI0qO6yvIwfwH9uf4E3Fo9v8AE/w1o134d0yOW2iluRJMuoC8DO0WpEqxaHlYAJHdJvNOWUOct+W3wp+N3ib4Q6nDd6JfXNs0TM0clrcvbzwllKt5UqHKbgxB6ggnjk1+tf7MXxx8IftS/DFbbVZ9O1jxOlq1tqdlq3hi/wBa1ARgKplWdLhmRCXBwgjCO7bVGVZuJqrVpywmJdubaSXZ3TtdWkvJq+qvZtH6BlWZYHKMXHN8qTlSa5a9CV21B2UrN6Tg+jesXZSWqk/f/wBjD9ohvj/8KY/7Xfb418PeVp2uq7xbruXylK3yIgXbFPhyBsULIk0a7hFuPv1flRe6/p37Gn7V+jeJNA1W08R+FJn/ALOvY9GRmWSyu2j8y3i3+czvDKtvMojd2k8kR7wzuB+qN3dwWFrNdXU0dtbQo0ks0zBUjQDJZieAAASSa7KEqlnTr/HHR22eiaauk7STTWi3PleJ8qw2WY5SwEnLD1oqpTb35JdH5xacX3tfqTV+X37Vn7aOvftR/Fay/Z9+AetTWWj3dz9n13xtpwlf7Qqn94kDxAstqv8AHMMCU4UMsOWm4H/gpF/wUi/4WB/anwm+E2qf8Ur81rr3iazk/wCQr2e1tnH/AC7dQ8g/13Kr+6yZvmz/AIJ1ajDp/wC1b4ZWWa6tnntb2KK4sbdrieNvs0jZRAjgkqrA7kYBSx4IBHBnOKrYLLcRicOrzhCTWjauk2rpXbXdJN9tT5nDU4VaqjUdl8umtte+36PY+0fD3/BM/wCHvgX4R6to+vxDxp8QtTspP7OuV8+FLa78nClBE2fKWZlzJJhACgYLlt3yR/wT98RX3wN/bc0PTNVtYLa9W6utA1A3kmxLLBIndjx90ROOSACcnIGD+vOkw3dv5p0Lw/8AYfPx5up63OTNMvOxyMvLLtBPyTNEwGFGOdv4+/tA2Nx4a/b4mnh1y21KXUNfs7s32lYjiZLhk3Iu1jkbWKNyc5YEtyT+I+GnEGPzHMMVh8dWdXmSndtNp3tZRi5Qpq32ebmbV7dF7+Y3xNH2tknC2iVvd28rpO3neTe/M3/QDRRRX9DHy4VyPxV+Kvhn4LeB9R8W+LdRXTtHslGWxukmkPCRRIOXkY8Ko5J/E111flB+31d/ED4yePNW8b2N5pGufBr4daxcaCNOsJSLy0uY7df7Qu7qM45SZXgAdgSixtHEyzebLwY3G0cDBSqyScnyxT+1J7RXm7aHfgMNTxeKp0Ks+SEpJSk9opuzk/Ranjf7Wv8AwUF8dftF6zN4KlWb4a/D3ULcRtp0NzHLLdHcTHLdTBAfLYgAxKVUA5YvjJ+ItR0650m+ns7uJoLmBykkbdiP5/UcGvpT4g+GE8deEnS2G67Qefa/Nj5x/CeccjK89CfauV+Ivh61+JPwg0z4j6bZx2Gt6NJD4d8TafbwbF8yOBVtroDAw0scMpcYbDxSMWUOiDwsLnSqShKqrKT5X2jL7Popax/xWXU/WeLeBv7CcsPh/fVvaU57c8NFOD6OUHaUbWvGTWr5YrxKzvJ9Pu4Lq1nktrqB1linhco8bqcqysOQQQCCK/XX9gn9vaD4z2lp4C8e3cdt48gTZZ38hCJrCKPyE4A5X+LqO4H5C1teCvGGqfD/AMW6R4k0W4e11TS7lLqCRHZPmU52kqQ20jIIBGQSO9cPF/CmD4ry+WHrxtUim4S6xl/8i/tL9UmvyHD15UJ3W3U/o9uLeK7gkgnjSaGVSjxyKGV1IwQQeoI7V+Lf/BRr9mjQ/wBnv4s6bd+FljtPDnia3lu4dNEoLWc6OBKir1WIh4yme5dRwlfpb4a/bT+GGo/A/SviRq3iKDR7C6hZXtbpDHcG5RXMkKRZJY5jkC7SwOMAmvyK/a1/aZ1P9qP4ov4jubY6Zo9nD9i0rTd5byYAzNufnBkctliPRV5Cg1/PHhLk+e4LO6s5QlToQUo1E7pOSukknvJS1utldddfWx9SlKkur6HilFFFf2CfPhRRRQAVK15O9pHatPI1rE7SpAXJRHYKGYL0BIRAT32r6CoqKVkwNG18RalZ3zXkd5I10bV7IyynzD5DQGAx/NnA8olB/dGMYwMEHiLUrW00+2gvJLeOwunvbVoTseGdxGGkVx8wP7mLHPG3IwSc51FZulTbu4r7vX/N/ex3YUUUVqIKKKKACiiigD334C/sceKvjb4S1jxvPqVh4W+HmhwyXWqeILvfctFDEC0/l28IZ3kRF3bG2ZDLg/MM/Xv7NP7Pfgz4G+LfDHizQviN8Q9K1XxPa3jeH9W0m1s4G1SwRIzKTpk0NxLPEwkhlT5GbH7xoYlhErdP8G7dn+DHwYtfAGheFH8GL4Rv9U8aXfjrH9maokEln9qVYVuYluJreaa+CC98uBWLMHAAkrs9A8Y6tq/iP4Z+MNQ+FEHjM2PiO60b4dj4cKbSyXw3OqW0+sPGJ7hI/LVYIvs9x9mSLz+WyCYvxzMJ57nUJVcuxagrzXs4uKkuXmjG7tJ8/PyqabSgrrllK1/usPg8NhqX7yl7RSSbvdNaP4WrrZN66LlkpL3ZcsHxI1DxL4t8ceBdT8WfG3wl478PeHIJbxbS18Gz3umpqUCh4rq7gsr/AHNM0X2mRS7LEgtpCsY+Y1B+0n8G/FP7QC6n4W8V/FrVNa1mfURZx29rotxpXhjRC0C3FuGRWZZp2l8mEPNPKwW9wse8KR6Z4V0r4j+INH+Ls/iI2/hfVbzxlNpln4TFla3s+p2wsLNrSKOTzZoo5p7fImeRZ4o1DSbI1jkJor4q8Da7NefD7wx4kh1HwtqYt5ppUmjXU75UitpZrazsrQ/a7lZICIpF8mJbZY51B8uNYYvjK648w1CE5VpO1m0nTcujba5IyfJqnBP3uVXsnaX2OGyjJ8RCGIjTk1FWldtpczWusYx+2/Zxi/3rV4tO6l+MXxL+HOvfCXxxq3hTxLYTadq+nTGOSKYAbh1V1IJBVlIYEEggjBrZ/Z78RQeE/jr8P9XupXt7W012zklniKB4k85QzjeCuVBJ+bjjnivTv27vHuueLPjJDouvR2t3L4W0+HSLPXoYp0l1izA82G6kMrtv3iQuHX5W8wsGdSDXzrbXElpcRTxNslicOjYzgg5B5r92wEq2aZTB42KU6sPeS295dLrS+9mtNnex+XYuFPA5lKNF+7Cejs+j6KVn6X36n9Cv9kf23839hXniPPzfafFM/kWz44yttsOyQfdB+zpkBjuO7L/mP/wUW0R/hp+2H4Y8W6vfJqZv4LDVbiOxtDD5awS+UVVWlfcSsOeWAyce9ffXwU1qb4j/AA18Iai0tjr2o6holnf3cFz4uumeUyQxs5mtljZFyz4aPBUZ28ivzs/bkt21v9tnSfC+q6ZY2OkwSaXZrpunBUhEUxjaQB0jjZtxdssRkE4BwBj+e+AMPiMPxI6EpcvJCd4vlb5bpK37yTir2fuQpxdtUrRS9KoksNiLa6LVXt8cfJfjqfuX4T13/hKPC2jaz5H2b+0bKG88jfv8vzED7d2BnGcZwM+latZXhPQv+EX8LaNo3n/af7OsobPz9mzzPLQJu25OM4zjJx61q1/Uh8mFfjT+0H4uvPiNq2p3Wp6/ead8WybjStbkOnafptrpU0VxIkdnFcwXsVy8EQwxkf7asu2E4V0aJf2Wr89P+Cjv7OOu2eqXvxm8I6U2t2QtI18TaZa7mukEKFVvYwSQyLGI0dFC7Fj34bLlfGzOniHGFbDyacHeyaSkrWs7p6fd3vofV8O4bLcfivqeZ1fZQntNLmaavpbs7/eloz4Z0BZLbSkS4e2YxKqmW1tjbQNhF3MiHopbcRwox0RBhF5P4WLFefDn9o29lZl0SXT4vshYfuHvTfK0Ow/d80QfasY+by2mx8u6uX1zxz4i8VW4eFU8LeH3zuv7p8O6bWPHdtwBwqAkkcHgkcv4p+JLzeErbwVoESaf4Vt5TcThExLqlzk4ubgnJLKvyIowqLuwAZJC3y8MuxFfmWilOcJO20VGam/K7tZJbXuz9s4s4jy9YbBUcPzSpYaLUXNWlVbhyxaTtLkS+KbSTdlG+pwlFFXNG0i88QaxY6Xp8Jub++njtreEEAySOwVVySAMkgc1+gn80FOiv3H/AGav+CWPwr+HvgXTpfiJ4ZtPF/jSe1QX73VzLLawSH5nWJAVU4PG/bnCgD+Ivyn7cn/BN34Z3HwZ1vxb4F0yz8C3/hWxm1W4jsoSY7q2iHmXAIzln8lJCgJALqg3RhnYgH5wfs5fsO/Fj9qCE33hHRobXQA7RHXtXlNvZb1KhlDBWZyN+flU9G7jFXv2mv2Cvip+yppNprHiu207VNAuJvs/9r6DPJPbxSEAqsm+NGTdkgEqASpAPTP72fBvR9N0D4S+DbDR7SCy02HSLUQQW0SxIqmJTkKoAGSSTx1Jr4T/AOCsv7SPhW7+HGh/CPStbt7288S3kd3qd3p99G6WFpBKrDzVDASF3BKoWXmEnIO3KbSV2XCEqklCKu3ofm98Mv2YvF/izRIvEtxoyrpMqJLYwXk3ki+3SKm5tvzpCobex4Z1AWPlwy9NqvwdtrFm0/VPDFnY302n3K6XAJJohbIZWaS/vroO0CpAMlYw0r7Zoo3ZyFY/d37Og8O/GyxvdM0Gynkv7e1SwsNFQeRHaLtZFuJ3XIjggCowRR+8dkUdCoufHj4IfafCdxqPhbU2n0q1uoobbxLe26vbzXyqfNljhMg+0KrqzIzZjEijAdowzqE41IqUHdM1xGHq4SrKhXi4zjunuj8n/HHw8vvBMOlXrv8Aa9H1WES2OoCNolucIhkKxviQKrPhWdV3jDAYNcrX0r8c7Kz8Q/D651Q3+n6he2U0Uj32nLcaw0zFtjI+pbEht1/el/syoqghSoHmAD7D/wCCQn7KvhHXPDN/8W/EtpZa5rX2mSy0mznYSrZRAFHmeJlxvch1VssNobGDmqOc+EvDP7FPx08Y6Ha6xpHwv8Q3WnXQYwzG28vcAxU/K5BHIPUe/SvJvEHhjWPCd8LLXNJvtGvCgkFvqFs8EhQkgNtcA4JB59jX9S1eTftM/s4eFf2nvhhf+FPEtkkk4VpdM1BTsmsbnb8siPgkDOAwwQwyCDxQB/NhRWh4h0Sfw1r+p6RdPHJc6fdS2krwklGeNypKkgHGQcZAr6y+An/BLf4yfGu1t9Svra18C6JPCtxHda8JBLLG6BozHEqkndnoxUqAScfKGAPj2tDw94f1HxZr+maJpFpJf6tqd1FZWdpCMvNNI4SNF92ZgB9a+3P2iv8Agkh8R/g14av/ABH4X1q1+Imj6fC9xdR21o1pepGoUllgLuHxmQ4VycJnGTgeO/8ABPLxT4e8G/tmfDHVPFN1b2WkLez2/n3UZeNJ5bWaG2JwDt/fyRfOcBDhiVCkgA/SP4Pf8EfvhR4b8JW//Cazar4k8Rzwf6RL5ywRW7SQqrxoi7lO1vMKuSSMgg5UGvm/9s//AIJTP8JvCniX4hfDnVZb/wAN6Tai7n0CaMvcwRof3sglL/MiRjexxnIbAA+7+xdeDftk/tFeCvgH8FvFEniPWLSPWdR0q6t9K0Tz1F3fyvG0ahE5bYGZd0mCFHJ5wCAfkV+yd+0H4CeDw54I+MtmJfDXh211a20G+tjJFIo1NPIu7SZkdVETpNK/mNhkYDEiqMH297z4Y+FfB+sX+mR+PvCd1d+B5fBVxdB7N9BFteX8kXlxvdNJKsHmsJBIhyLfZISZJCX4r9mv/gkd8QPi/o2m+I/G2rR/D7QbxI7iG1ktzcahNC24nMRZRCSApG8kgPkrwVPkvxW8D/En9hz4xX/w00rxFFrFxcxW95E9rCxhlEgByIZMqrHZtZhk4UfMO35xmfCsvrMsfl1eVOV7uPO4w3k5NWvy8zlJydndtvvf6TBZjVko4Xli7uP2U+ZxvyppL3rt277dkfQetePNH8O6FHdv4NTwtGnwuuvhneaTceLLMNaxvKXtpHkS2CSXNy7mRnKpGvzu3I51PB3xwtvEcvw20SCyufEF94AuIoPDHiey8WL/AGtplrNbRy3Uly8DTxSgPbva+VLAImSSKMOwLMzv2aP2A/BXxq+E0XjH4iw+IW16TU5Jr3XG1yOzsbkBwPLZpIWYRnJUmNZGLgfvEyUj4W+/YI0P4ueAfGl98Ip5bT4n/D7UpNP1nwtFeG6tNQVJZvKurC4fDkSIgC7wuXglUAfKzLD5RUzCFXEQxUozqXV1zJe7K65bVPhi9FZq8dJK976YqNfL606FWm17OS51Llb5le3Mmmu907rW1+p4D+0br3gy28DfD7wX4a8PXNhe6It/PNe6vcLJqSW9xctJBaXIify1ljzIWHlocNH8qEup8R0PRbzxJren6Rp1vJdahf3EdrbQRIzvJK7BUVVUEkkkAAAk54p2v3OpXet38ustcPqzTv8AajdgiXzc4YODyCDkEHpivqz/AIJxfAm4+IPxX/4Tu/uLrS/DPg6WOd9QghjfF24byv8AWKyhEwXdwrFP3ZIUMXT6THY3+wsqqYrEz5pQTevWTfuxVlfWTUYpK+ySPGioYjFJX91v8Pltp20R+qHhjw7aw+FNN8NaVcaN4y0fQ7eC0isNbQJd2wSPYhnZUYBwFZdpgRuuTlTu/OXxSnhz4q/8FSND0SC2uLbRhqcGkS2E1vDGLGaKApIsIUunyyhpA398kjIwT+mXiOSKws2u/GOl2l7YWMbzDXLKIg2agZaQoSZYcYXDxM5+XeTGBx+cn/BLvwtefGD9tTxN471Z7DWP7HhudQnmvV8yVp5nKRTRfKRuByd2QcHIJJr8M8KaTxOMxOMveMY2XWLcne94tRcrRu704TipJSve56+Ou8PKrJ+85Jeu7f3NLZ2P2gooor+lz5kKKKKAPyf/AOCin/BM46e2rfFP4QaZGlgqG41jwlYwtujbc7S3VsNxG3BXMCqNu0lcg7V/PPwv8CfH3jGyF5pfhe9e0ZUeO4udttHKrDKmNpSocYwcrnAIz1Gf6bK+U/jH+yzqPhm6n8RfCLSrWZLqZ59V8Hy3X2eKZ2cu9xYu/wAkUzZIaFikLkq4aJlczCSWhUpObcpO7Z+WH7LX7CviD4t/FW10jxmF8MaFBcJHO88qsblym9UQo3KnhSVbliEBDbmT9Z/gl/wT4+DXwOvLDVNK8OC+8QWU8d5Bqt5K7SwTqAC0RzuVCR9xmYdRzls/Hlv4x8Saj8XLE6Fp9pqXg2aN7LWHWRotQ0m+jzmO6gc7o2HyqYigdTu3bcYPon7SnxJ+JPi/4NajomhTX2p6ibJrOKG0uxbSS7ztEryEjc6ZVgT/AM8uoZixqxJ+idVdT0221nTbvT72IT2d3C8E0RJAdGUqy8c8gkV4n+xU/j9v2fPDK/ES2NvrKWyKnmShpDGFAGQEUAcZGMj5iFyiozcN+29+2fF+zFosE2nf6TqkUyq1o9uWW5lZQ6QFz91Sm5nYcgbdpLZWpAd41/Yz8T618JPhr8LfD3xW1rwp4T8NwyWup3+jySWl/qEHlOiRN5bbGU7lyG4+UnDFht8u+M3/AASI+GOu+DNYm8FNq9p4xkDTRXmpak9z50mSzbt5ALsT1Y4PIJUt5ip+z5/wV++HXxDhh0/4h2EngPXSwU3AbztPkBLksJDgoFUKSGHJOFycA+m/GD/gpH8FfB3w61rVPDfjvTfEWtxwlbWx05t8xkbhWCsMNgkHHQ8ZKruZQD8n/wBmvxRc/DT4uQWesQyasmgao2nXUNncSRm4gffbzQo6rv2svmDgZKtjA6V+mXxt+JunWvge+mvrxNWuLO1SSC3sgbDStPjigwUtYJZVVzl5FaWfAC4ACryPxY1rxrf3/jDWNf0+e50eXUL+W+CW1wwaJmkZ1G9cZK7uDgfhX19+wn8fdU8Y/E3TvBfi/SY/HJmi8vTEudY/s24Mgwqxhwh85sndyyN99mdsba5qNL2UptbN3/DU9vMMxWPoYaM03UpxcXJvdczcV8k7eZpeOvg78QP2jfAdpP8ADnSr3xhc63eSCW1/t62UWMEcowPJt5RbGMSEASylmHTLFSYuz/Y3+KXjL/gnP4x1Dwh8ZPBeraJ4J8T3Be31xYCIPtajajCR8IVKpyCyMgcM4xjb+tvhm21O209hqhiWYsPLt4Z2uFgjCKoXznVXlJKlyzKDlyOcAnmvjR8FfCnx58Dah4X8WaXBqNlcwukTyqd0DsuFkUqQcqdrYyOVU9QCOk8Q6nw14l0rxl4f0/XND1C31XR9QhW4tb21kDxTRsMhlI6ivLP2o/2oPCn7MHw6v9e1y/gGqmE/2bphBaW7lJwqhR+J5KghG+YYJH4paL8Svjv8Hfihe/Cv4Z+OfFErT3sVvp2k2N21x5isimAKjDarCNkDFVUfJ/dUEfVGs/8ABJv43/G68Hi34mfFTTJPFt1CEnW6SW8eMJ8saeYu1cbQD8o4JPU5JAPnP9gzwboXx8/bh0e88RxpbaUt/c+IjYSMHSWZX8yCBmOAR5rx5BHzhSuPm4/fevwz8W/sV/HH9gTxlo/xbt7HS/GGieHLr7W+paNOzrbpkoDPE6q6Eq2dyrJGpI3Ejg/avw1/4LG/BzX/AArp83jC21rwv4h2BL21isTc24kCjLROjElCc43AMOcjGCQD73r+fX/go18GfBvwP/ab1bRPAzJHol5ax6i1hExaOwnkeQSQJ8oAVSmQoLbQ23OQVH6B/Hj/AILD/DXw14Nv/wDhVizeL/FhlENp/aVhPbWKrk5mfdsdlAAwg2k7hyMHHmf/AATh/ZR0/wDaK1K7/aN+Kt+fFuuXWtXU0FjcBTBLcqyHz5owgUbW37Y1ygGzhdoFAHhPwl/4KBftUeHPhdpeh+HNKm8S6Rp6CO21u50Ge+n8lC6+WZgdrqPu5ILDygM8Nn59j+J2ua1+0T4d8V/GW71zVruz1Kyk1Nr12hu0gjZCoAaNioC4baE5Gcctmv6R7e3itLeKCCJIYIlCRxRqFVFAwAAOAAO1fnL/AMFaT8M4vBNrpcOk6Vf/ABQv5vJs4UhBmRXZXkclCGSTBD7s7SMeZkNGCm0ldlwhKpJQgrt6JLVtvoj2Pxj/AMFT/wBn3wz4ft73T/E914m1W6tVuLfRtK0+ZpyzIxWN2ZRHG+4BCpbcCwyMc18H3w8Yftf/AB+uvGmoaTb2Gv6rbW9slgkhaz0WzjCKXll25Ch8yM7dC+B2B4P9l39kTWfH/ilLLSlt7vW1i82S6u2MdrZKcADIBJZmO0EAk56ABmr9X/gd8CtE+BfhVTp0p/tAMP7R1meEC5tLkKNyzoDhrYgj5QcIGEgdg3nJ8NisfUzjEf2dl/wq3PLol/m+i3e793V/teCweF8PqP8AaOZpTzFr93SvdU7r46lutto3/F3jsfD/AOHtr8LtA0aDSbPyks7ZYrfUk0q31OCUFfvo9qkVwXYEkyOApy4O7cpPzL+yCZ7/AP4KC/FzUNMlW+0STStQa+vtMU/YpLiTUoGt2YqWXc6i7aPcxJUS7ScMa9M/ak/abtvgXHd6LoC/YviHLiWeexeM2Co+WM8sLFh5rDacMoccfvGQDzKn/BND4T3nhz4c+IfiRqiz21748nhktLWUFQNPtvNW3mKFAQ0rzXEgZWZGhe3ZcEtn7JexpRhg6as42dl9mKjKKT9ea6W9ld2Tjf5uWExOC4exOZZj8WNlFQv8Ukpc86npdRSfXmfSzfy3/wAFZf2J20TVpvjX4G0h20+/kZ/FVpZxqEtpsLtvAijpId3mt/fw5yXYj1r/AIJueK9J1n9mDQrfws2/VdAlntNa0h5k3Tu80kyyqN3yMRIQjttD7GRuFV4/0Nu7SC/tZrW6hjubaZGjlhmUMkiEYKsDwQQSCDX51/tA/sK+PvgLrkvxE/ZPvr3SLq4dn1rwbFcI1vcjMjLJFFMfLcIJHURMCVyDH83FfE8a8OVeJ8r+qUJpTjJSSlfklZNNStrZpuzWsXZqzVz4fBYmFByjUWj69U+/p0a+etkjN/b/AP2j9M+Bvwjfwr4RnjTVfGtnPbRWMUSCPToAyx3EpibmIuDLF5ZQDeHb5XjcSd9/wSI+CVr4A/Z6l8Y3Wmvb+IPFNyZTczrGxazUDyRE6ru2NkkqWPzA8Agivz7i+Cfx2/bQ/agt9M8b+HNQ0/WVaO01e9nsPsMFjaQMElbdsKluTjG7czjAxjH7r+CvB2lfD7wjpHhrRLWOz0nSrVLS2hijSMBFGM4QBcnqcAZJJro4R4bhw3l6oSfNWm+act232vZNqK0TaV9ZWTdicXiXXahH4Y3t89387LTokut29uiiivtjzwooooAKKKKAPI/jH+zV4Y+LE0mtwqfDnjiKHZaeJLAMH3DGxbqFWVLuIAFdkuSqySeU8TtvHyV8R7bxL8AbloviRZQxaOz+VZeLdMVjpt0B/FOW4spWyv7qVipLbY5ZiG2/ojUdxbxXdvLBPEk0EqlJIpFDK6kYIIPBBHamnYD8pPGn7djfBfxDpnhLQ9QlhvdVmjg1HN2scGmxS7VaZiQQsgG1gflbaCSVBXd9r/DTTvAHxXsrW38Rtd654kKk7dWvZZCyqM/uWBClOWYLywy/UDNeEftXf8Ek/BXxX3658K20/wCHPiT53l0/yX/su9Y42jYpP2XHrEhX/YzzXA+FtY1b4aJpvgj4ppF4W8dRBIBHeOEg1Ri2FltJsLHcbyVYrDkxmQIwDAimtQPYv2sP+CaXws+JHgTX9X8MaXB4M8WW8DXcV/aqTC7CRZJnmjBBldo1dQS2AW3dSc/mj+xd+ybpfx7/AGkJ/Avi3XI7LTtGmm+3W1jJ/pF95RcMkJYAhMx/M+MgMowC2V/WTwL+0ZqfhOBLbX86vpqtk3M0pFzGGYZ+djhwPmwrYOSBuAAFfl74C+Mfhz4Xf8FAb/xUNTGmeHl1IxXRitwkVxIPLLpKzDMSm4j3NKFPK5PysWCtYD9ivCv7Jfwk8F6D/ZGkeCNNs7VnWWQwoY3kkC7S5KEckdcYBwvHyrjw39qD/gn14B13wRrPif4faNY+EPHmlf8AE6sb+BQivdQ7pQ0jFXYlj1zuU46AnePq7wD4+0L4neFLDxH4cv4tR0q9jEkU0TBsZAODgkZwR7EEEEggnI+MHxQ0P4UeCr/Vta1ZdJHkyeTKAjOrBCTIFdlUhB8x3EDjBPIBAPmH9hX9t6D4g+EpfA/xZ1qLR/ir4eZob3+0kW2W9gHMc4cHYxxtDN8oJZCM7wTd/av/AOCk/wAPfgZoV3p3hzUoPE/jKW2Elva2jB0gLqGXzDg7Hw6NtcDgk/MVKH8ttC+Gevft5ftZa7B4ZZ7e31a6kmm1i5DSxwxpEQs0pbYxMnlbtv3/AJjw2019lX3/AARL09tCuDZ+O7mPWSWWFJyr26jb8rswiDH5sZQAZH8QNIDlP+CO3wy0jx/8SfHPxO8Tx2mq+IrOQDTDNCS8U7kvdXAAARDiSJVxz8742gc/rnX4/fB/Svi3/wAEvvitbWPjSxXU/hRrWpRi51jTJR9nG5mhWZ8smCFwSsh2oWjO7Jw/6i+G/jj4J8U6bcXllrsC/Zrb7VcQTApLEgRnb5SPmKqjE7N2MfSgDrta0Wx8R6VdaZqdrHe2FyhjmglGVYf0PcEcggEc1+Fnh79kLRvij/wUC8VfCvQLmMeFNPvbq+3SzhA9qqiQIjRR42lpEUbQMITgggGvvv8Aaa/4KXaV4R0/WfDvwe0W/wDiD4yjhaI39haNPY6XKW2gzBQWLgrLiMgcx8/KQT8m/wDBJfx7Z+Ef2rPF2meN4n0zxh4o05o7aXUIEtnM7SrPJFhtrKZBtYIq/NtHHAoA/QDwf/wTi/Z88IaNHpx+HtjrYRnK3WsEzz4b+EvxkDJwTkj1wBj85/ja/jX/AIJdftDSW3w08UzyeBtan/tBNBuJVkV0CAGKYHcMqJsJIQGO1WZSApb9afiB8fPCngDX7Xw0ZbnxH42vAptfCXh+IXepyqxAEjx5CwRc8zztHEMHLivzd+Pf7MvxQ/a4/aZv9Z+Ieip8MNPt7W2m07w3dagl/Pc6errFcXELW7NHNIpAMsaMroJbZSTvjZvPzDH4fK8NLF4qXLCNrvfd2X4ux2YTDSxdVUoyUb9ZOyX6/JJvsixYf8FdPin8VNNg0PwZ8LLCx8RXG+Aaot5JcxeexHkiOExdeQpQs5fdxs7L8HP2O/iH8XNfuPFHxGv9Sa4kaNtQvryENqUwUneqQfeiwCzfMoJ8xWVJS53fZPwV/Zm8F/B3RrGx0TTY7HT7g7rPxEEja7LSMpEZkAAVWIG3AEbk7WUs2ZPVdd1zTvAek32r6rd2fh670m3M1xczMy2t9bhv+BMfmYAAbpIncAB1cCX4DDVc54tlGUabw+EdviT9pNXVuWP2U11ls7NRktT73L84w/Ds3DJKftMVL3VVau1fS1OGqTeyb5pNdIt2WB8LvhF4c+EfhXTtB0w/8SuZlmstcgZTKLlwMPI4GGd8gK5Gx1IiKgbVk8X/AGnf22dJ+En9raTo0sb+P7BTZ3OpwlDp0a7WJLBiS7x53CMj925Yb2UOsnl3xQ/aK8e/tKeO9Q+HPwN0zUk0DUFWDUZ2iKW0TSlme4urhVYWkLiOX5Q26bZJtV3kKH2b9mX9gTw/8K7iz8V+P2tvG3xAjlS6hMg83TdImVtytaI6qWkBCHz5AXBQFBFlgfusHhKGXUfquXRSV23J6q73f9+d927x/wAXwrsnh8Hk1Z5jxJL6xi5e97C+zet68unnTV5armtqjw/9kT9jTUPi/qcPxD+K2l3dv4WEvn2HhzV4GjuNZlBz513E4DLbA/diYZmIyw8nAn/SSiiu2hQhQi1HVt3berbe7b6tnxOd55jeIMW8ZjpXlsktIxS2jFdEv+C7vUKKKK6DwAooooAKKKKACiiigAooooAKKKKACsnxN4T0PxppUmmeIdG0/XtNkzvs9TtUuIWypU5RwQcqzDp0JHetaigD4p+Pf/BNu08Y6M8fwt8ea38OZEZZIdJF1JNp6NuAIjbPnQxhC+IUfygdm1Ewc/AWq/8ABPU/BiWS0+NN9qHh5ZZsWfiPR2EmhyocqqSXLxYglJRiFm8vcrpty24D906hu7SC/tZrW6hjubaZGjlhmUMkiEYKsDwQQSCDQB+IKXvxx/Yt0PWx8PNdTX/AEkzXCus0jS2SLyRIiOn98k7dy/Kz4TLV83/Gv9pz4h/H/WLq/wDFuuvMlwQZLO0XybdsbSAyjlwCgIDEhf4do4r9sfjD/wAE7vhh8R9MuYfDK3fwuurlWjnXwmVgsLmN4/KdZbHHkElCRvVEfIU7jtAr8zPj1/wSh+M3whN1feHbaH4k6FG+IpdCjcXxTax3PaHJB+XG2NpOWUAknAAPrj/gjB4f8OD4WeJtas9Oii8RidbW9vhIGklQvIyqcMdoAVMKwUggsBh9zfo9X8437OH7Rvjb9jj4l3Gq6dp8kU7oseo6NqCNAZ0A3Ir5XcB82cEchsjDBHX728Jf8Fu9IGjofE/w3vW1UsSy6TdoIEXoADISzHgnOBjOMHG5gD9BPjx8OPCXxV+E3iXw/wCN7OC68PS2ck08k0TSG2KIWE6BcMHTG4bSDxjvX853gbS/+Es+Ilt4T0a71aHw3ruqw28sAk2yPaibKvMqgoWjTLkkFVIY9BX0H+1b/wAFJfHf7T/hmDw5/ZsHg/Q8n7Va6fdPKboEYwzEAgckH1HHAL77n/BN3Tf2drvxzq1x8cL2xi1K1e3k0S28QYTSZM70l84sdjnLxnbIAoCFssMhQD9GfgF8Tvhn8Ofh9o3hn4GeA9X+IWsJaiCW60PT2j0+GZgDi41WZVh8rzchjC0zDa7bHZWzX1j9hfVvj98VLb4hfFq+svCxtWllsvDngW8mR4/Nj2SC4viI2kf5UJaKOMElwdwOa+yrS0gsLWG1tYY7a2hRY4oYVCpGgGAqgcAAAAAVNQBx/wAM/hD4N+DmjS6X4N8PWehW07+bcvApae7k5/eTzOTJM/J+eRmb3qT4ieA18cWWly214NL1/Q70aro2ovD58drdiKWHMkJZRLG8U80TplW2SsUeKQJKnWUUmlJNNXTA+XPiD+2V8PvgpfS6L4/Wbw94gmiMmr+EpIGmi2uWU3dpcuiQz28rDrlS2/50imWaKvmfWfAnx1/bV8b28p0jUvCXgy3YR2l/4likjt7G0cq4aKN9kl7IUIPmAYdo1V5E4I/TuisqkJVYOnJ2i97XTa7N328la/W6Pr8o4ilkNOU8vpKOIkre1l70op78islFvq3zPezSZw3wZ+DPhj4D+BLTwp4UtGgsomM1xdXDB7m/uGAD3Fw4A3yNtHOAFCqihURVXuaKK1SUVZHyc5yqSc5u7erb1bb6sKKKKZAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQBzfjD4a+EPiFAYfFPhXRPEsJUIY9Y06G7UqG3AYkU8BucevNeK6z/wTq/Zx15WFz8K9KiDKyH7FPc2vBZWOPKlXBygwRyAWA4ZgSigDxDxj/wRh+DOt7JNC17xV4alVQpRbqK6hb73zFXj3buV6PjC9MnNc7pP/BEv4e2eq2c994/8QahZRTI89p9mhi8+MMCybxyu4ZGRyM5oooA/RXTNNttG0200+yiEFnaQpBDECSERVCqvPPAAFWqKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigD/9k="}]

Ext JS design.

Create image and button screens using Sencha Architect.

Add Store.

Ext.define('jsonimage1.store.Store1', {
    extend: 'Ext.data.Store',

    requires: [
        'Ext.data.proxy.Ajax',
        'Ext.data.reader.Json'
    ],

    constructor: function(cfg) {
        var me = this;
        cfg = cfg || {};
        me.callParent([Ext.apply({
            storeId: 'Store1',
            proxy: {
                type: 'ajax',
                url: 'http://localhost:8080/img',
                reader: {
                    type: 'json'
                }
            }
        }, cfg)]);
    }
});

Create a button event for Ext JS.

    onButtonClick1: function(button, e, eOpts) {
        var me = this;
        var store = Ext.getStore('Store1');

        store.load({
            callback: function (records) {
                var img = me.lookup('json_img');
                img.setSrc(records[0].get('img'));
            }
        });
    }

¿Qué es un test unitario?

El objetivo más a corto plazo de un test unitario (o prueba unitaria) es el de probar una porción de nuestro código, de forma que podamos comprobar que funciona correctamente y que se ejecuta con el comportamiento para el que fue diseñado. Por lo tanto nos ayuda a encontrar fallos en nuestro código.
Podríamos decir que un objetivo más amplio de los test unitarios es, en general, mejorar la calidad del software que desarrollamos. Por un mejor diseño y por un menor número de errores.

Hay quien dice que los test unitarios están pensados para equipos de trabajo donde hay roles definidos. Personalmente considero que hoy en día los test unitarios para un programador, son como el "control de versiones" o los "repositorios de código". Para mi NO SON EXCLUSIVOS de equipos de trabajo, sino que un programador a nivel personal (individual) DEBE trabajar con ellos, aunque no esté integrado en un equipo.

TDD (Test Driven Development)

Los test unitarios se enmarcan dentro de lo que se conoce como TDD (desarrollo guiado por pruebas) que nos ayuda a no crear test y probar código "a lo loco".

La idea sería seguir los siguientes pasos:

• PASO 1: Definimos/diseñamos una prueba para validar un código que cumple determinados requisitos.
• PASO 2: Desarrollamos el código para ejecutar la tarea que se ha especificado.
• PASO 3: Ejecutamos la prueba. Si falla corregimos el código y repetimos, si funciona correctamente, refactorizamos y limpiamos el código (si es necesario) y damos este "step" por concluido, pasando al siguiente.

Ventajas de realizar Test unitarios

Tal vez podamos empezar por las más básicas, pero también más sencillas.

1. Un test nos sirve como "documentación de código".
   Dado que un test nos muestra los posibles resultados que una determinada función nos debe dar a partir de unas entradas, a su vez nos sirve como explicación y documentación del funcionamiento de esa procedimiento.
2. Nos obliga a separar Interfaz e Implementación.
   Es algo imprescindible en una programación avanzada y los test nos obligan en cierta forma a separar ambas. Dado que los test se ejecutan sin interacción del usuario, necesitamos que la interfaz esté obligatoriamente excluida de las funciones que probamos en los test. Indirectamente esto hace que el código sea más mantenible.
   Además indirectamente facilita que el código esté focalizado en una tarea. En un desarrollo a veces se tiende a tener código "que mezcla" diferentes funcionalidades, interfaz, acceso a datos, utilidades,...
   Al realizar las pruebas tenemos más fácil separar las funcionalidades que necesitamos testear.
3. Facilita cambios de código.
   Los test nos dan más seguridad sobre que los cambios realizados no introducen nuevos errores en el código existente, por lo tanto nos aporta más confianza a la hora de realizarlos. Los test nos añaden como una "red de seguridad" a la hora de desarrollar.
4. Mejora la detección de errores.
   Por supuesto es una de las razones más importantes por las que realizamos los test. La existencia de los test nos facilita la detección de errores si se producen, tanto al crear como al actualizar nuestros desarrollos.
5. Aceleran el desarrollo.
   Aunque a priori pueda parecer que tenemos que escribir más código para realizar la misma tarea y por lo tanto vamos a tardar más en realizarla, ese tiempo que invertimos inicialmente a la larga se demuestra que se recupera pues se minimizan las pruebas, la revisión de código, la búsqueda de errores,...

¿Cómo debe ser un buen test unitario?

Las características que pueden definir de forma esquemática un buen test unitario, serían las siguientes:

• Se deben poder ejecutar de forma automatizada.
• Podemos ejecutarlos tantas veces como sea necesario.
• Debe testear lo correcto.
• Deben ser sencillos y rápidos.
• Deben evitar dependencias. Se deben poder ejecutar todos o parte de ellos y sin orden determinado.
• Deben ser desarrollados antes de programar.
• A todos los efectos son código de la aplicación, no algo externo.

"LA CLASE" (TAritmeticaBasica)

Para poder realizar pruebas sobre un determinado código, lo primero que vamos a necesitar es un código que testear. Para esto vamos a crear la clase "TAritmeticaBasica". Es decir, nuestro escenario es el siguiente:

"Debemos crear una clase que llamaremos TAritmeticaBasica, que como su nombre indica, necesitamos que realice determinadas operaciones aritméticas y hemos decidido que esta clase incluirá Tests Unitarios."

Los pasos que vamos a seguir son los siguientes:

1. Definir la estructura de nuestra clase. Qué va a tener, qué necesitamos probar,...
2. Definir una batería de Tests Unitarios que nos permitan probar las características definidas en el punto 1.
3. Implementar la Clase TAritmeticaBasica.
4. Ejecutar los test y a partir de los resultados de cada test:
   1. (Correcto) Refactorizar código si es necesario.
   2. (Error) Corregir la clase y volver a ejecutar el punto 4.

ESTRUCTURA DE LA CLASE

Nuestra clase TAritmeticaBasica tendrá la siguiente estructura y propiedades

  // Clase para cálculos aritméticos
  TAritmeticaBasica = class
  public
    // Devuelve si el número es primo o no
    function EsNumeroPrimo(const ANumero:int64):boolean;
    // Devuielve el máximo común Divisor de 2 números enteros
    function MaximoComunDivisor(const ANumero1, ANumero2:int64):int64;
    // Devuelve el Minimo comun Multiplo de 2 números enteros
    function MinimoComunMultiplo(const ANumero1, ANumero2:int64):int64;
    // Calcula la factorizacion de un número entero; Resultado en una lista
    procedure Factorizacion(ANumero: int64; ALista:TIntegerList);
  end;
end;

Si seguimos de forma estricta los pasos que hemos realizado antes, debemos implementar los tests antes de implementar la clase. Lo que haremos será crear nuestra unit "vacía" y  a partir de ahí generaremos los test. Para ello a la definición que ya tenemos, le añadiremos lo siguiente en la parte de implementación:

unit UClass.TAritmeticaBasica;

interface

uses
  System.Generics.Collections;

type
  // Type form integerlist
  TIntegerList = TList;

  // Clase para cálculos aritméticos
  ...

Implemementation

function TAritmeticaBasica.EsNumeroPrimo(const ANumero: int64): boolean;
begin
  Result := True;
end;

procedure TAritmeticaBasica.Factorizacion(ANumero: int64; ALista:TIntegerList);
begin
  ALista.Clear;
end;

function TAritmeticaBasica.MaximoComunDivisor(const ANumero1, ANumero2: int64): int64;
begin
  Result := 0;
end;

function TAritmeticaBasica.MinimoComunMultiplo(const ANumero1, ANumero2: int64): int64;
begin
  Result := 0;
end;
end.

Aquí tenéis la unit al completo para descargar tal y como la tenemos ahora (sólo estructura).

<Descargar código fuente de UClass.TAritmeticaBasica.pas>

Os adjunto a continuación algunos links y algo de información que pueden servir de recordatorio sobre las 4 operaciones que posee nuestra clase (me recuerdan a mis clases de matemáticas en el colegio  ;-D  ).

Hasta aquí esta primera entrada de la serie. He decidido dividirla en varios bloques por la extensión de la misma.

La idea para las siguientes, es diseñar las pruebas unitarias para nuestra unit utilizando los paquetes DUnit y DUnitX. Ver los pasos para crearlos desde cero y ver las diferencias (no muchas) que hay entre ellos.

Un saludo y hasta la próxima.

Delphiの場合

Delphiでは TBitmapの constructorは別名で複数持っています。
CreateFromBitmapAndMask, CreateFromFile, CreateFromStream

procedure TForm1.FormCreate(Sender: TObject);
var
  src_bmp, mask_bmp: TBitmap;
  output_bmp: TBitmap;
begin
  src_bmp     := TBitmap.CreateFromFile('元のPNG');
  mask_bmp    := TBitmap.CreateFromFile('マスク用のBMP');
  output_bmp  := TBitmap.CreateFromBitmapAndMask(src_bmp, mask_bmp);
  output_bmp.SaveToFile('保存.PNG');
  //出力されたPNGは元のPNGがマスク処理されている。
end;

C++Builderの場合

C++BuilderではCreateFromBitmapAndMaskは無く同名のconstructorで処理できます。

下記述したC++コードはbcc32です。

#include <memory>
namespace rect_helper
{
    template <typename T1, typename T2> T1 pmv(T1 src, T2 left, T2 buttom)
    {
        return T1(left,buttom,src.right + left, src.Bottom + buttom);
    }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    const String png_savefname = "save.png";
    std::tr1::shared_ptr<TBitmap> src_png(new TBitmap(Edit1->Text));
    TRectF src_rect = TRectF(0,0,src_png->Width,src_png->Height);

    //Make TBitmap for mask.
    std::tr1::shared_ptr<TBitmap> mask_bmp(new TBitmap(src_png->Width,src_png->Height));
    mask_bmp->Canvas->BeginScene();
    mask_bmp->Canvas->Fill->Kind = TBrushKind::Solid;
    mask_bmp->Canvas->Fill->Color = TAlphaColorRec::Null;
    mask_bmp->Canvas->FillRect(src_rect, 0, 0, AllCorners, 1);
    mask_bmp->Canvas->Fill->Kind = TBrushKind::Solid;
    mask_bmp->Canvas->Fill->Color = TAlphaColorRec::White;
    mask_bmp->Canvas->FillEllipse(src_rect, 1.0);
    mask_bmp->Canvas->EndScene();

    //CreateFromBitmapAndMask
    std::tr1::shared_ptr<TBitmap> png_bmp(new TBitmap(src_png.get(), mask_bmp.get()));
    png_bmp->SaveToFile(png_savefname);

    //Confirm PNG image.Check whether it is masked.
    std::tr1::shared_ptr<TBitmap> in_png(new TBitmap(png_savefname));
    Canvas->BeginScene();
    Canvas->DrawBitmap(src_png.get(), src_rect, rect_helper::pmv<TRectF, float>(src_rect, 50,70), 1);
    Canvas->DrawBitmap(in_png.get(), src_rect, rect_helper::pmv<TRectF, float>(src_rect,300,70), 1);
    Canvas->EndScene();
}

出力結果

While clearly difficult to have a weekly summary, Iv'e fully retitled this installment, although the URL stays as part of the original weekly sequence. Let's get started.

Embarcadero News

A Busy Summer at https://community.embarcadero.com/article/16572-a-busy-summer

Embarcadero Academy Debuts with Online Courses for Developers of All Levels press release at http://www.businesswire.com/news/home/20170918005798/en/Embarcadero-Academy-Debuts-Online-Courses-Developers-Levels

New in 10.2.1: Debug visualisers for Delphi generics at https://community.embarcadero.com/blogs/entry/new-in-10-2-1-debug-visualisers-for-delphi-generics

Build iOS 11 ready apps with RAD Studio 10.2.1 at https://community.embarcadero.com/blogs/entry/build-ios-11-ready-apps-with-rad-studio-10-2-1

Updating IDE Subversion DLLs to address security issues at https://community.embarcadero.com/blogs/entry/updating-ide-subversion-dlls-to-address-security-issues

Blog Posts

Working with big data databases in Delphi - Cassandra, Couchbase and MongoDB (Part 3 of 3) at https://blog.grijjy.com/2017/09/21/working-with-big-data-databases-in-delphi-cassandra-couchbase-and-mongodb-part-3-of-3/

Debugging RTL/VCL Code with CodeSite at http://www.davidghoyle.co.uk/WordPress/?p=1754 and the follow up ,Notify Me of Everything - Part 2, at http://www.davidghoyle.co.uk/WordPress/?p=1761

5 Minute Snack: Reading floats with StrToFloat and TFormatSettings independent of system region settings at https://flixengineering.com/archives/612

Easily Make Asynchronous REST Calls In Delphi 10.2.1 Tokyo On Android, iOS, macOS, and Windows 10 at https://community.embarcadero.com/blogs/entry/easily-make-asynchronous-rest-calls-in-delphi-10-2-1-tokyo-on-android-ios-macos-and-windows-10

Face Detection on Android and iOS at https://blog.grijjy.com/2017/09/11/face-detection-on-android-and-ios/

Experimenting with Neural Networks - Part 1 (and following in subsequent posts) - http://chapmanworld.com/2017/09/20/experimenting-with-neural-networks-part-1/

Adding a Custom Icon to a FireMonkey Button at https://community.embarcadero.com/blogs/entry/adding-a-custom-icon-to-a-firemonkey-button

RAD Studio 10.2: Windows 10 VCL UWP/WinRT Support at https://community.embarcadero.com/blogs/entry/rad-studio-10-2-windows-10-vcl-uwp-winrt-support

Amazon DynamoDB with Delphi (video) at https://community.embarcadero.com/blogs/entry/amazon-dynamodb-with-delphi

5 Minute Snack: Is a package installed? The Package Manager icons tell you! https://flixengineering.com/archives/618

Third Party Libraries

TLanguage localization tool: https://delphitipsandtrick.blogspot.it/2017/10/delphi-tlanguage-localizaton-tool.html

Not new but fairly interesting.... Python for Delphi at https://github.com/pyscripter/python4delphi and you can read about it at http://www.atug.com/andypatterns/pythonDelphiTalk.htm

Delphi RNL ("Realtime Network Library") at https://github.com/BeRo1985/rnl

Use this RFID library in Delphi at https://github.com/islog/liblogicalaccess/wiki/Use-this-RFID-library-in-Delphi

Built with Delphi

Roselt Color Picker in Windows Store: https://www.microsoft.com/en-za/store/p/roselt-color-picker/9nq8c70flp0r?rtc=1

Smart IDE for OpenSCAD at https://github.com/senCille/senCilleSCAD/wiki

That's all for this month.