29-07-2019, Saat: 16:16
Merhaba,
Aşağıdaki kod ile ZLib string veri sıkıştırma işlemi yapıyorum. Delphi ile yazdığım WebServisten bu sıkıştırılmış veriyi geriye döndürüyorum. Fakat get metodu ile alırken "Metin içeriğinde geçersiz karakter bulundu" hatası alıyorum. Çünkü sıkıştırılmış veride unicode karakterler var. Sıkıştırılmış veriyi Base64'e convert edip geriye döndürürsem herhangi bir sorunum kalmıyor. Buradaki sorunum Base64'e dönüştürürsem sıkıştırma 40/1 'den 20/1'e düşüyor. Base64 convert etmeden bu işlemi nasıl gerçekleştirebiliriz?
Aşağıdaki kod ile ZLib string veri sıkıştırma işlemi yapıyorum. Delphi ile yazdığım WebServisten bu sıkıştırılmış veriyi geriye döndürüyorum. Fakat get metodu ile alırken "Metin içeriğinde geçersiz karakter bulundu" hatası alıyorum. Çünkü sıkıştırılmış veride unicode karakterler var. Sıkıştırılmış veriyi Base64'e convert edip geriye döndürürsem herhangi bir sorunum kalmıyor. Buradaki sorunum Base64'e dönüştürürsem sıkıştırma 40/1 'den 20/1'e düşüyor. Base64 convert etmeden bu işlemi nasıl gerçekleştirebiliriz?
uses ZLib; function ZLibCompress(const AValue:String):String; Var xCompressor : TZCompressionStream; xIn,xOut : TStringStream; begin Result := ''; xIn := TStringStream.Create(AValue); xOut := TStringStream.Create; try xCompressor := TZCompressionStream.Create(clMax,xOut); try xCompressor.CopyFrom(xIn,xIn.Size); finally FreeAndNil(xCompressor); end; Result := xOut.DataString; finally FreeAndNil(xOut); FreeAndNil(xIn); end; end;
Yalnızım ama bir kente yürüyen ordu gibiyim, edebiyattan kaçınmalıyım..