SF
TThread.CreateAnonymousThread(
procedure
begin
//do something
end).Start;
Size: a a a
SF
TThread.CreateAnonymousThread(
procedure
begin
//do something
end).Start;
SF
TThread.CreateAnonymousThread(
procedure
begin
//do something
end).Start;
ГМ
ГМ
SF
SF
ГМ
VA
AD
SF
SF
SF
АР
ГМ
procedure ThreadHTTP.Execute;
var
j:integer;
begin
inherited;
i:=0;
j:=0;
Stream:=TMemoryStream.Create;
Form1.IdHTTP1.Get('http://devdelphi.ru/files/VK_APImodul.rar',Stream);
Form1.ProgressBar1.Max:=Stream.Size;
while j<=Stream.Size do
begin
inc(i);
Synchronize(ShowResult);
inc(j);
Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+1;
end;
Stream.SaveToFile('C:\1.rar');
Stream.Free;
end;
ГМ
VA
ГМ
VA
ГМ
ГМ