отразить процесс закачки файла [D7, 2000, XP]
kyran29 © (2009-11-23 21:48:00)
Подскажите как отразить весь процесс закачки файла на форме, с
помощью компонентов TProgressbar и TLabel.
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, StdCtrls,URLMon;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TLoadThread = class(TThread)
protected
FResult:String;
procedure Execute; override;
procedure ShowResult;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile),
PChar(DestFile), 0, nil) = 0;
except
Result := False;
end;
end;
procedure TLoadThread.Execute;
const
//// Адресок
SourceFile = '
http://downloads.kaspersky-labs.com/trial/registered/8NGILSWTCHAPVSJ1NTX8/kav9.0.0.736ru.exe';
// Куда качаем
DestFile = 'c:\kav9.0.0.736ru.exe ';
begin
if DownloadFile(SourceFile, DestFile) then
FResult:='Файл загружен!'
else
FResult:='Ошибка при загрузке - '+ SourceFile;
Synchronize(ShowResult);
end;
procedure TLoadThread.ShowResult;
begin
ShowMessage(FResult);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
lt:TLoadThread;
begin
lt:=TLoadThread.Create(False);
lt.FreeOnTerminate:=True;
lt.Resume;
end;
Alexey (2009-11-23 22:08:00) [1]
http://www.delphi.int.ru/articles/39/
Все великолепно описано
Наверх 
ЧАТ |
Орешник |
|
