Merhaba,
Ben delphi de bir dosyayı buffera alıp bazı değerleri değiştirip, bufferi dosya olarak kaydettikten sonra dosya boyutu çok büyük çıkıyor, nerede yanlış yapıyorum ?
dosya 500 KB ama 185 MB ollarak çıkıyor
Sorun Çözüldü, Teşekkürler.
Ben delphi de bir dosyayı buffera alıp bazı değerleri değiştirip, bufferi dosya olarak kaydettikten sonra dosya boyutu çok büyük çıkıyor, nerede yanlış yapıyorum ?
dosya 500 KB ama 185 MB ollarak çıkıyor
if OpenDialog1.Execute then fsi:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead + fmShareDenyNone); fsi.Position:=0; SetLength(TmpBuf, fsi.Size); ZeroMemory(TmpBuf,fsi.Size); L := Length(tmpbuf); while fsi.Position < fsi.Size do begin fsi.Read(TmpBuf[0], fsi.Size); end; fsi.Free; // bufferda değişiklik fsi:=TFileStream.Create('C:\new.dat', fmCreate + fmShareDenyNone); fsi.Position :=0; try if tmpbuf <> nil then fsi.Write(tmpbuf[0], Length(tmpbuf)); finally fsi.Free end; end;
Sorun Çözüldü, Teşekkürler.