 Posté le: 28 11 2002 18:40 Sujet du message: CopiefileStream |
|
|
| Code: |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
CopieFileStream: TButton;
procedure CopieFileStreamClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CopieFileStreamClick(Sender: TObject);
var s,c:TfileStream; (*la classe tfilestream permet une copie rapide des fichier*)
nomsource,nomcible:string;
begin
NomSource:='c:\netlog.txt';
NomCible:='c:\cible.txt';
s:=TfileStream.Create(NomSource,fmOpenRead);
Try
c:=TfileStream.Create(NomCible,fmOpenWrite);
try
c.CopyFrom(S,s.Size);
finally
c.Free;
end;
finally
s.free;
end;
showmessage('Le fichier' + nomsource+'a été copié!');
end;
end.
|
|
|
Vinchenzo
Invité
|
S'enregistrer
Rechercher
FAQ
Connexion
