Page 1 of 1

SaveToFile

Posted: Tue Mar 17, 2015 3:27 pm
by 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

Re: SaveToFile

Posted: Wed Mar 18, 2015 9:30 am
by admin
Hi,

Thank you for feedback.
We will fix this bug.

Best Regards.

Re: SaveToFile

Posted: Thu Mar 19, 2015 1:52 pm
by admin
Please download v1.6.10
We're looking forward to your comments and suggestions.
Delphi HL7 Team.

Re: SaveToFile

Posted: Fri Mar 20, 2015 10:43 am
by 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
2015-03-20 10_07_24-.jpg (6.94 KiB) Viewed 20387 times
"Stream Readerror"

Joschim