unit uPS_HTTPClient_Main;
{<                           HOW IT WORKS?

 -All will work through VisualFrame
 for ex. SomeHTTPClient.VisualFrame.SomeProperty:=SomeValue;

 -We will have some External FDConnection

 -We will have HTTP_ConnectionParams in VisualFrame like Host, Port, etc.

 -All files will be kept on Server in /public/files/IDUser+UserName/Year/Month/day


}

interface

uses
  System.SysUtils, System.Classes, Vcl.Controls, Vcl.ExtCtrls,

  //myUnits
  uVisualFrame

  ;

type
  TPS_HTTPClient = class(TPanel)
  private

   FVisualFrame:TVisualFrame_HTTP;

  protected
    { Protected declarations }

  public

   constructor Create(AOwner: TComponent); override;

   property VisualFrame:TVisualFrame_HTTP read FVisualFrame
   write FVisualFrame;

  published


    { Published declarations 123 }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TPS_HTTPClient]);
end;

{ TPS_HTTPClient }

constructor TPS_HTTPClient.Create(AOwner: TComponent);
begin
  inherited;

  //Setting

  Self.Caption:='';

  FVisualFrame:=TVisualFrame_HTTP.Create(Self);
  FVisualFrame.Parent:=Self;
  FVisualFrame.Align:=alClient;
  FVisualFrame.Show;

end;

end.
