delphi4arab منتديات دلفي للعرب

الصفحات : 1 2

نعم ,لم تذكر الدالة CopyFileWithProgressBar1.

(26-04-2016, 01:24 AM)wadoud كتب : [ -> ]الدالة CopyFileWithProgressBar1.

راجع العدد 4 من مجلة دلفي
http://delphi4arab.net/forum/forumdisplay.php?fid=11

إقتباس :(CopyFileWithProgressBar1(a,b

الاخ الكريم هذه الدالة أين اجد محتواها

اين الخلل في هذا المثال كل شيئ يبدو جيدا لكن كل مرة تاتي هذه الرسالة

[ ARCHIVE.pas(7): W1005 L'unité 'FileCtrl' est propre à une plate-forme
[DCC Avertissement] ARCHIVE.pas(56): W1036 La variable 'ProgressBar1' n'est peut-être pas initialisée

كود :
unit ARCHIVE;

 interface

 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs,ShellAPI, Buttons, StdCtrls, ComCtrls, ExtCtrls, sPanel, FileCtrl;

 type
   TFICHE_ARCHIVE = class(TForm)
     BitBtn2: TBitBtn;
     SpeedButton1: TSpeedButton;
     Timer1: TTimer;
     OpenDialog1: TOpenDialog;
     sPanel1: TsPanel;
     GroupBox1: TGroupBox;
     DirectoryListBox1: TDirectoryListBox;
     ProgressBar1: TProgressBar;
     Edit1: TEdit;
     Image1: TImage;
     Label2: TLabel;
     Label1: TLabel;
     BitBtn1: TBitBtn;
     procedure BitBtn1Click(Sender: TObject);
       private
     { Déclarations privées }
     public
     { Déclarations publiques }

     PROCEDURE CopyFileWithProgressBar1(Source, Destination: string);
   end;

 var
   FICHE_ARCHIVE: TFICHE_ARCHIVE;

 implementation
 {$R *.dfm}
  PROCEDURE CopyFileWithProgressBar1(Source, Destination: string);
 var
   FromF, ToF: file of byte;
   Buffer: array[0..4096] of char;
   NumRead: integer;
   FileLength: longint;
   ProgressBar1: TProgressBar;

 begin
   AssignFile(FromF, Source);
   reset(FromF);
   AssignFile(ToF, Destination);
   rewrite(ToF);
   FileLength := FileSize(FromF);
   with Progressbar1 do
   begin
     Min := 0;
     Max := FileLength;
     while FileLength > 0 do
     begin
       BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead);
       FileLength := FileLength - NumRead;
       BlockWrite(ToF, Buffer[0], NumRead);
       Position := Position + NumRead;
     end;
     CloseFile(FromF);
     CloseFile(ToF);
   end;
 end;

 procedure TFICHE_ARCHIVE.BitBtn1Click(Sender: TObject);
   var
 s,dtring;
 begin
 s:=ExtractFileDir(Application.ExeName)+'\' + 'HABITAT.mdb' ;
 d:=Label2.Caption +'\'+ Edit1.Text+'.mdb' ;
  CopyFileWithProgressBar1(a,b);
 end;

الصفحات : 1 2

wadoud

محمد عبد العزيز

عبد المجيد

عبد المجيد