* Add test for case of pointer and size

packages/vcl-compat/tests/tcnetencoding.pp

@@ -26,6 +26,7 @@ type
   published
     procedure TestHookUp;
     procedure TestBytesToString;
+    procedure TestPointerLengthToString;
     procedure TestBytesToBytes;
     procedure TestStringToString;
   end;
@@ -210,6 +211,12 @@ begin
   AssertBytes(EncDefBytes,Enc.Encode(DefBytes));
 end;
 
+procedure  TTestBase64Encoding.TestPointerLengthToString;
+
+begin
+ AssertEquals('Encoding',SDefBytes,Enc.EncodeBytesToString(Pointer(DefBytes),Length(DefBytes)));
+end;
+
 procedure TTestBase64Encoding.TestStringToString;
 begin
   AssertEquals('Encoding', SDefLetters,Enc.Encode('ABCDE'));