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

[mahmood]

سلام
برای سیستم های سخنگو که تو بانک ها حتما دیدید مثلا میگوید صد و بیست و پنج . صداهای "صدو " و " بیست و " و "پنج" را پشت سر هم گفته میشه .
میتونید کمک کنید که چجوری به صورت آنلاین، چند صدا را پشت سر هم اضافه کنم و یک فایل صوتی را پخش کنم؟

[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;