TImage

← →
Disa © (2003-05-18 09:14) [0]

Как в TImage загрузить файл из интернета при работе программы?

← →
Delphi5.01 © (2003-05-18 10:31) [1]

Vam ponadobitsa TIdHTTP komponent is bazovoi palitri delphi6 "Indy Clients"
procedura kachaet luboi fail iz ineta. soxranaetsa v tomje kataloge gde i proga
Procedure DownloadFile(URL: String);
var f: TFileStream;
begin
Try
f:=TFileStream.Create(ExtractFileName(URL),fmCreate or fmOpenReadWrite);
Form1.HTTP.Get(URL,f);
Finally
f.Free;
end;
end;
esli xotite mojete ustanovit progress bar chtob videt skolko ostalos kachat

procedure TForm1.HTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
PB.Position:=0;
PB.Max:=AWorkcountMax;
end;

procedure TForm1.HTTPWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
PB.Position:=AWorkCount;
Application.ProcessMessages;
end;

PB eto Progress Bar
Jelau udachi!

TImage Найти похожие ветки