Edited EETTrzba.SaveToXML.

mirus77 · Jan 19, 2017 · 6fa7a30 · 6fa7a30
1 parent 9b9aa86
commit 6fa7a30
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 1 deletion.
diff --git a/demo/u_main.pas b/demo/u_main.pas
@@ -227,11 +227,18 @@ procedure TTestEETForm.DoOdeslatTrzba;
 //    EET.SignTrzba(eTrzba); // normalizace datumu a vygenervani PKP,BKP
 
     // test ulozeni do XML a nacteni z XML
+    // nacteni nefunguje v Delphi 2007
+//    ms.Clear;
 //    EET.SaveToXML(eTrzba, ms);
 //    ms.Position := 0;
+//    ms.SaveToFile('eTrzba.xml');
 //    eTrzba.Free;
 //    eTrzba := EET.NewTrzba;
 //    EET.LoadFromXML(eTrzba, ms);
+//    ms.Clear;
+//    EET.SaveToXML(eTrzba, ms);
+//    ms.Position := 0;
+//    ms.SaveToFile('eTrzbaLoaded.xml');
 
 {$IF Defined(USE_DIRECTINDY)}
 {$MESSAGE HINT 'USE_DIRECTINDY'}
@@ -245,6 +252,14 @@ procedure TTestEETForm.DoOdeslatTrzba;
     Odp := EET.OdeslaniTrzby(eTrzba, false, 5000);
 {$IFEND}
 
+    ms.Clear;
+    EET.SaveToXML(eTrzba, ms);
+    ms.Position := 0;
+    ms.SaveToFile('eTrzbaSigned.xml');
+
+    // nacteni xml Soap Request po zpracovani
+    // nacteni xml Soap Response po zpracovani
+    // vyjmuto z eventù Before a After, protoe zamrzala aplikace pøi pouití WainForSingleObject
     EET.RequestStream.Position := 0;
     EET.ResponseStream.Position := 0;
     synmRequest.Lines.LoadFromStream(EET.RequestStream);

diff --git a/include/eet/u_EETTrzba.pas b/include/eet/u_EETTrzba.pas
@@ -677,7 +677,7 @@ procedure TEETTrzba.SaveToXML(const parameters: Trzba; const DestStream: TStream
     NodeObject.Attributes['xmlns'] := FISKXML_TNSSCHEMA_URI;
     XMLAnsiStr := AnsiString(NodeObject.XML);
     XML.Active := False;
-    XMLAnsiStr := AnsiString(ReplaceStr(string(XMLAnsiStr), ' xmlns=""', ''));
+    XMLAnsiStr := AnsiReplaceStr(string(XMLAnsiStr), ' xmlns=""', '');
     DestStream.WriteBuffer(Pointer(XMLAnsiStr)^, Length(XMLAnsiStr) * SizeOf(XMLAnsiStr[1]));
   finally
     XML := nil;
@@ -978,6 +978,7 @@ procedure TEETRIO.HTTPWebNode_BeforePost(const AHTTPReqResp: THTTPReqResp; AData
 procedure TEETTrzbaThread.Execute;
 begin
   try
+    FOdpoved := nil;
     CoInitialize(nil);
     try
       FOdpoved := EET.OdeslaniTrzby(FTrzba);