DelphiHL7 Released v 1.6!

Discussion of open issues, suggestions and bugs regarding to (known as Delphi HL7) HL7 Components
Post Reply
admin
Site Admin
Posts: 256
Joined: Sun Jun 05, 2011 8:06 pm

DelphiHL7 Released v 1.6!

Post by admin »

Dear users,

DelphiHL7 is glad to release the new improved version 1.6.

This version includes:

* Faster, more convenient, the infrastructure was developed.
It was easy to create custom messages.

* TdiString type changed to TdiNodeData type.


-----------------------------------------------------------
* Faster, more convenient, the infrastructure was developed.
It was easy to create custom messages.

Sample:

ZIN attributes are provided below:
SEQ TYPE ELEMENT NAME
1 ST İfcondition
2 ST Condition

Code: Select all

unit uZINsegment;

interface

uses
  diHL7Base,diHL724,diHL7DT24,diHL7Grp24;

type
  TdiZIN_24 = class(TdiSegment)
  protected
    function Getifcondition: TdiST_24;
    function Getcondition: TdiST_24;
    procedure Setifcondition(const Value: TdiST_24);
    procedure Setcondition(const Value: TdiST_24);
  public
    property ifcondition : TdiST_24 read Getifcondition write Setifcondition;
    property condition : TdiST_24 read Getcondition write Setcondition;
    procedure Init;override;
  end;

implementation

{ TdiZIN_24 }
procedure TdiZIN_24.Init;
begin
  inherited;
  Name :='ZIN';
  Definitions.Add('condition',TdiST_24,0,1);
  Definitions.Add(
    'ifcondition', // Field name must be unique
    TdiST_24, // Field Type 
    0, // Minimum number of repetitions. if 0 is optional
    1  // Maximum number of repetitions. if 0 is optional.  if -1 is unbounded
  );  

end;

function TdiZIN_24.Getcondition: TdiST_24;
begin
  Result:= TdiST_24(GetStructure('condition',0));
end;

function TdiZIN_24.Getifcondition: TdiST_24;
begin
  Result:= TdiST_24(GetStructure('ifcondition',0));
end;

procedure TdiZIN_24.Setcondition(const Value: TdiST_24);
begin
  SetStructure('condition',0,Value);
end;

procedure TdiZIN_24.Setifcondition(const Value: TdiST_24);
begin
  SetStructure('ifcondition',0,Value);
end;

initialization
  diRegisterClass(TdiZIN_24,'ZIN','2.4');

finalization
  diUnRegisterClass(TdiZIN_24);


end.

DelphiHL7 team.
chaiyaporn
Posts: 1
Joined: Thu Jan 31, 2013 7:15 am

Re: DelphiHL7 Released v 1.6!

Post by chaiyaporn »

I've purchase site license but no source code after install. Any suggestions ?
admin
Site Admin
Posts: 256
Joined: Sun Jun 05, 2011 8:06 pm

Re: DelphiHL7 Released v 1.6!

Post by admin »

Hi,

Please login your account with username, password.
Download setup file.

Best regards.
Post Reply

Who is online

Users browsing this forum: No registered users and 0 guests