Fixes #2

Author: Lev Zenin

Source/PHPFunctions.pas

@@ -611,7 +611,14 @@ function TZendVariable.GetAsString: zend_ustr;
    end;
 
   case {$IFDEF PHP7}FValue^.u1.v._type{$ELSE} FValue^._type{$ENDIF} of
-   IS_STRING : result := Z_STRVAL(FValue);
+   IS_STRING : begin
+                 try
+                   SetLength(Result, FValue^.value.str.len);
+                   Move(FValue^.value.str.val^, Result[1], FValue^.value.str.len);
+                 except
+                   Result := '';
+                 end;
+               end;
    IS_DOUBLE : result := FloatToStr(FValue^.value.dval);
    IS_LONG   : result := IntToStr(FValue^.value.lval);
    IS_NULL   : result := '';

Source/ZENDAPI.pas

@@ -1552,11 +1552,7 @@ procedure VariantToZend(const Value:Variant;z:pzval;
          end;
 
   varUString    : //Peter Enz
-         begin
-            S := string(TVarData(Value).VUString);
-
-             ZVAL_STRING(z, zend_pchar(zend_ustr(S)), true);
-         end;
+             ZVAL_RawStr(z, RawByteString(TVarData(Value).VUString), true);
 
      varOleStr    : //Peter Enz
          begin
@@ -1629,12 +1625,7 @@ procedure VariantToZend(const Value:Variant;z:pzval;
                  end;
          end;
 
-     varUStrArg    : //Peter Enz
-         begin
-            S := string(TVarData(Value).VUString);
-
-             ZVAL_STRING(z, zend_pchar(zend_ustr(S)), true);
-         end;
+     varUStrArg  : ZVAL_RawStr(z, RawByteString(TVarData(Value).VUString), true);
      varInt64    : ZVALVAL(z, TVarData(Value).VInt64);
      varUInt64   : ZVALVAL(z, TVarData(Value).VUInt64);
      varShortInt : ZVALVAL(z, Integer(TVarData(Value).VShortInt));