Delphi-Quellcode:
procedure TForm2.BitBtn1Click(Sender: TObject);
var F:TStream;
begin
BitBtn1.Enabled:=false;
ListView2.Items[0].SubItems.Add('');
F:=TFileStream.Create('D:\projekte und programme\downloadserver\client\downloads\'+ListView2.Items[0].Caption,fmCreate);
IdHTTP2.Get('http://'+Form1.Edit1.Text+':412/load='+Label1.Caption+'/'+ListBox1.Items[0],F);
F.Free;
end;
procedure TForm2.IdHTTP2WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
ListView2.Items.Delete(0);
ListBox1.Items.Delete(0);
Application.ProcessMessages;
BitBtn1.Click;
end;
wenn ich den button anklicke, wird die erste datei heruntergeladen, die 2. irgendwie auch, aber bei der 2. wird das IdHTTP2WorkEnd nicht ausgeführt!
Edit: Wenn ich BitBtn1.Click erst nach 2 Sekunden oder so ausführe, werden 2 Dateien downgeloadet, aber der 3. Download wird nicht gestartet
echt sau nervig sowas
