هل يمكن استنساخ ملف فديو من سواقه الى اخرى بكود دلفي؟

السلام عليكــم ورحمـة الله وبركاتــة ،،

اين انتم اخوان لم يرد علي احد هل السؤال صعب الى هذا الحد

اين الاخ سام لم يرد علينا او المشرفين

انا انتظر الجواب

السلام عليكم

الدالة التالية تقوم بالغرض

CopyFile('c:\test.txt','d:\test.txt',true);

السلام عليكــم ورحمـة الله وبركاتــة ،،

لا اقصد هذه الدالة انا اعرفها في تقوم بنسخ نص من ملف الى اخر من نوع تكس

والذي اريده استنساخ ملف فديوي او اي ملف اخر كما نعمل في الوندوز كوبي لملف ومن ثم نلصقه في اي مكان نريد

عموما مشكور يا اخي على الرد

وانا انتظر الجواب

السلام عليكــم ورحمـة الله وبركاتــه ،،

الاخوة الاعزاء وصلت الى الكود الاستنساخ لاي امتداد كان وهذا الكود هدية لاخوتي في المنتدى

function FCopy(SourceName, TargetName: string): boolean;

var

SourceF, TargetF: file;

Buf: array [0 .. 1023] of byte;

NumRead: integer;

Age, Handle: integer;

begin

Result:= false;

try

AssignFile(SourceF, SourceName);

AssignFile(TargetF, TargetName);

FileMode:= 0;

Reset(SourceF, 1);

Rewrite(TargetF, 1);

while not Eof(SourceF) do

begin

BlockRead(SourceF, Buf, SizeOf(Buf), NumRead);

BlockWrite(TargetF, Buf, NumRead);

end;

CloseFile(SourceF);

CloseFile(TargetF);

Age:= FileAge(SourceName);

Handle:= FileOpen(TargetName, fmOpenWrite);

FileSetDate(Handle, Age);

FileClose(Handle);

Result:= True;

except

on E: EInOutError do

begin

MessageDlg(E.Message, mtError, [mbOk], 0);

exit;

end;

end;

end;

هذه الدالة تؤدي الغرض

السلام عليكم ,,

أخ الكرعاوي ,, الدالة CopyFile تنسخ أي ملف ,,

CopyFile('C:\ved.avi','C:\Documents and Settings\Administrator\Desktop\ved.avi',True);

جربها على ملف الفيديو

بالتوفيق