SaveToFile

[Joschim]

Hi all,
I have the following problem:
Components version 1.6.5.2 with Delphi XE5

procedure TFrm_HL7.hl7_ORM_O01(Sender: TObject);
var
msg: TdiORM_O01_25;
begin
msg := TdiORM_O01_25.Create;

try
msg.AsString := sReceiveMsg;

msg.SaveToFile('c:\Temp\X.hl7');

.... SaveToFile do nothing

Best Regard
Joschim

[admin]

Hi,

Thank you for feedback.
We will fix this bug.

Best Regards.

[admin]

Please download v1.6.10
We're looking forward to your comments and suggestions.
Delphi HL7 Team.

[Joschim]

The bug is not solved.

procedure TFrm_HL7.hl7_ORM_O01(Sender: TObject);
var
msg: TdiORM_O01_25;
begin
msg := TdiORM_O01_25.Create;
try
msg.AsString := sReceiveMsg;
msg.SaveToFile('c:\Temp\X.hl7');

after msg.SaveToFile('c:\Temp\X.hl7');
--> See the attachment:

2015-03-20 10_07_24-.jpg (6.94 KiB) Viewed 22534 times

"Stream Readerror"

Joschim