Small corrections o warnings.

mirus77 · Jan 26, 2017 · 7441a7d · 7441a7d
1 parent 6fa7a30
commit 7441a7d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/demo/u_main.pas b/demo/u_main.pas
@@ -93,6 +93,7 @@ procedure TTestEETForm.BeforeSendExecute(const MethodName: string; var SOAPReque
 begin
   MemStream := TMemoryStream.Create;
   try
+    S := UTF8Encode(SOAPRequest);
     MemStream.Position := 0;
     MemStream.Write(S[1], Length(S));
     MemStream.SaveToFile('request.xml');

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 := AnsiReplaceStr(string(XMLAnsiStr), ' xmlns=""', '');
+    XMLAnsiStr := AnsiString(AnsiReplaceStr(string(XMLAnsiStr), ' xmlns=""', ''));
     DestStream.WriteBuffer(Pointer(XMLAnsiStr)^, Length(XMLAnsiStr) * SizeOf(XMLAnsiStr[1]));
   finally
     XML := nil;