1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40:
| var data: TIdMultiPartFormDataStream; idhttp1: TIdHttp; plan1,plan2,plan3,plan4,plan5,plan6,plan7,plan8,feld1,feld2,feld3,feld4,feld5,feld6,feld7,feld8,upload:string; begin idhttp1 := TIdhttp.Create(Self); data := TIdMultiPartFormDataStream.Create; if fileexists('filepaths.ini') then begin listbox1.items.loadfromfile('filepaths.ini'); plan1:=listbox1.items[0]; plan2:=listbox1.items[1]; plan3:=listbox1.items[2]; plan4:=listbox1.items[3]; plan5:=listbox1.items[4]; plan6:=listbox1.items[5]; plan7:=listbox1.items[6]; plan8:=listbox1.items[7]; feld1:=listbox1.items[8]; feld2:=listbox1.items[9]; feld3:=listbox1.items[10]; feld4:=listbox1.items[11]; feld5:=listbox1.items[12]; feld6:=listbox1.items[13]; feld7:=listbox1.items[14]; feld8:=listbox1.items[15]; upload:=listbox1.items[16]; listbox1.clear; end; data.AddFile(feld1,plan1,'text'); data.AddFile(feld2,plan2,'text'); data.AddFile(feld3,plan3,'text'); data.AddFile(feld4,plan4,'text'); data.AddFile(feld5,plan5,'text'); data.AddFile(feld6,plan6,'text'); data.AddFile(feld7,plan7,'text'); data.AddFile(feld8,plan8,'text');
idhttp1.Post(upload, data); data.free;
end; |