چسباندن دو فابل mp3 به هم

[mahmood]

سلام
پیدا کردم

[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

InStream, OutStream: TFileStream;
begin
OutStream := TFileStream.Create('result.mp3', fmCreate or
fmShareDenyWrite);
try
InStream := TFileStream.Create('part1.mp3', fmOpenRead or
fmShareDenyWrite);
try
OutStream.CopyFrom(InStream, 0);
finally
InStream.Free;
end;
InStream := TFileStream.Create('part2.mp3', fmOpenRead or
fmShareDenyWrite);
try
OutStream.CopyFrom(InStream, 0);
finally
InStream.Free;
end;
finally
OutStream.Free;
end;
end;