1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31:
| procedure TForm1.Button2Click(Sender: TObject); type TCopyBuffer = array[0..4095] of Char; var Buffer: ^TCopyBuffer; Source, Dest: file; RetVal: Integer; begin New(Buffer);
try AssignFile(Source, 'C:\meinsong.mp3'); Reset(Source, 1);
AssignFile(Dest, 'C:\test.txt'); Rewrite(Dest, 1);
while (not Eof(Source)) do begin BlockRead(Source, Buffer^, SizeOf(Buffer^), RetVal); BlockWrite(Dest, Buffer^, RetVal); end;
CloseFile(Source); CloseFile(Dest);
Memo1.Lines.LoadFromFile('C:\test.txt'); finally Dispose(Buffer); end; end; |