سلام
پیدا کردم
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
کد:
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;
علاقه مندي ها (Bookmarks)