Kod: Tümünü seç
var
mpaud: TMemoryStream;
begin
mpaud := TMemoryStream.Create;
try
mpaud.LoadFromFile ('dd.mp3');
mpaud.Position := 0;
memo1.Lines.Add(inttostr(mpaud.Size));
mpaud.SaveToFile('tt.mp3');
finally
mpaud.Free;
end;
but i couldn't figure out how to do that properly