Форум: "Начинающим";
Текущий архив: 2010.01.17;
Скачать: [xml.tar.bz2];

Вниз

отразить процесс закачки файла   Найти похожие ветки 

← →
kyran29 ©   (2009-11-23 21:48) [0]

Подскажите как отразить весь процесс закачки файла на форме, с помощью компонентов 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) [1]

http://www.delphi.int.ru/articles/39/

Все великолепно описано

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2010.01.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c