Ik ben zelf even wezen surfen op het net, en kwam toen de volgende code tegen:
Code:
Procedure TForm1.CopyFileWithProgressBar(Source, Destination : string);
var
FromF,
ToF : file of byte;
Buffer : array[0..4096] of char;
NumRead : integer;
FileLength : longint;
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
CopyFileWithProgressBar('c:\Windows\Welcome.exe','c:\temp\Welcome.exe');
end;
Deze code is echter wel voor het kopieren op de harde schijf zelf. Hier wordt dus geen gebruik gemaakt van een internetverbinding, maar is deze code niet om te vormen naar hetgene dat ik nodig heb ?? En zo ja, hoe zouden jullie dat dan aanpakken ??
Bookmarks