BesaFHIR Released v 1.0.19!

Discussion of open issues, suggestions and bugs regarding to FHIR Components.
Post Reply
admin
Site Admin
Posts: 256
Joined: Sun Jun 05, 2011 8:06 pm

BesaFHIR Released v 1.0.19!

Post by admin »

Dear users,

Besa Software is glad to release the new version 1.0.19!

This version includes:
+ Added Custom HttpType connection.If you want to use other components for http connection (ICS Overbyte, Synopse mORMOT, synapse ..). You must use hcCustom type. And you must create your handler method.

How to use:

Code: Select all

procedure TForm3.btnCreate(Sender: TObject);
begin
  client.HttpType := hcCustom;
  client.OnExecuteVerbStream := ExecuteVerbStream;
end;

procedure TForm3.ExecuteVerbStream(AVerb:TBSFhirHTTPVerb; AUrl:String; ARequest, AResponse:TStream; const ARequestHeaders, AResponseHeaders: TStrings; var AResponseCode:Integer; var AResponseText:String);
var
  LRequestStr:string;
begin
  // Request Stream
  LRequestStr:= TStringStream(ARequest).DataString;
  
  // Execute your components equivalent method.
  case AVerb of
    fverbGet: ;// samplecomponent.Get(AUrl)
    fverbPost: ; // samplecomponent.Post(AUrl)
    fverbPut: ;
    fverbDelete: ;
    fverbOptions: ;
    fverbPatch: ;
  end;
	
  (*
    //Set response stream. (Stream is TStringStream type)
    TStringStream(AResponse).WriteString(response);
    //Set response headers.
    AResponseHeaders.
    AResponseCode:= samplecomponent.StatusCode;
    AResponseText:= samplecomponent.StatusText;
  *)
end;
We're looking forward to your comments and suggestions.
Besa Sofware Team.
Post Reply

Who is online

Users browsing this forum: No registered users and 1 guest