أعطاء قيمة ل Progressbar ?

أخي أحمد

لا أدري إن كنت فهمت عليك صح أنت تريد نسخ ملف لكن بشريط تقدم بمجرد إختياره من OpenDialog إن كان هذا ما قصدته

فيجب أن تعرف حجم الملف المراد نسخه بعد ذلك يجب أن أن تربط القيمة Max إلى حجم الملف ومن ثم تقرأ الكتلة المراد نسخها

على أجزاء

procedure TForm1.Button1Click(Sender: TObject);
var
 sourceName, destName: String;
 buffer: array [0..255] of byte;
 nRead: Integer;
 Source, Dest: TFileStream;
begin
 if not OpenDialog1.Execute then Exit;
 SourceName:= OpenDialog1.FileName;
 Source:= TFileStream.Create(SourceName, fmOpenRead);
 Progressbar1.Min:= 0;
 Progressbar1.Max:= Source.Size;
 Source.Position:= 0;
 destName:= ExtractFilePath(ParamStr(0))+ExtractFileName(SourceName);
 Dest:= TFileStream.Create(DestName, fmCreate);
 repeat
	nRead:= Source.Read( buffer, 255);
	dest.WriteBuffer( buffer, nRead);
	Application.ProcessMessages;
	Progressbar1.Position:= Progressbar1.position + nRead;
 until nRead <= 0;

 FreeAndNil(Source);
 FreeAndNil(Dest);
end;

أرجو أن أكون قد أصبت أتمنى التوفيق

- السلام عليكم .

- مشكور اخي على هذه النوضيحات.

- اضافة الى

اقتباس

فيجب أن تعرف حجم الملف المراد نسخه بعد ذلك يجب أن أن تربط القيمة Max إلى حجم الملف ومن ثم تقرأ الكتلة المراد نسخها

على أجزاء

- فانني اقوم بعملية النسخ الاحتياطي .. لذلك لا يمكنني تحديد حجم الملف الذي سوف ينشأ (ملف الباك اب).... فهل اقوم بحساب الملف الاصلي ؟

أخي أحمد

المقصود بالملف المراد نسخه هو الملف الأصلي أي نربط القيمة Max لشريط التقدم إلى حجم الملف الأصلي طالما أنك لا تريد إضافة تغيرات