A File Online Query Display and Download Function Realized by Delphi

I have always wanted to make an online file retrieval and download function similar to 360. The PC side is also the winform side. Today I have time to simply implement this function. Part of the code:

Create a frame:

Set related parameter information:

procedure TfMain.getdata;varitem: TfrFileItem;i: Integer;begin//Just set the corresponding data structure herecleardata;for i := 0 to 10 dobeginitem := TfrFileItem.Create(self);item.Name := 'item_' + i.ToString;// item.Image1.Picture.LoadFromFile()//Load image informationitem.Title.Caption := 'file name' + i.ToString;item.info.Caption := 'This is used for file information description';item.pnSize.Caption := '20M';item.url := 'http://xxxxxx:8002/ver/testUpdate.zip';item.Parent := pnContent;item.Top := item.Height * (i + 1) + 1;item.Align := alTop;end;end;

Delphi file batch download demo_bilibili_bilibili