Отправляю файл на php скрипт следующим кодом Code: procedure TForm2.Button2Click(Sender: TObject); var FileName: string;response: string; var formData: TIdMultiPartFormDataStream; begin FileName := 'c:\pic.gif'; formData := TIdMultiPartFormDataStream.Create; formData.AddFile('File',fileName,'application/octet-stream'); formData.AddFormField('param1', 'value1'); //HttpObject.Port := Port; response := idHTTP1.Post('http://myhost/ppost.php',formData); Label1.Caption:= response ; Memo1.Lines.Text:= response ; end; Можно ли прибабахать сюда индекатор отправки файла, тоесть например через каждую секунду проверять сколько отправилось и выводить это число в label или через каждый килобыйт обновлять label
Радикальный/самый оптимальный вариант; sources/indy/idHTTPServer.pas и переписываешь компонент полностью под свои нужды... (потом его перекомпилить не забуть)
Создаешь обработчик события OnWork для IdHTTP. В обработчике выводишь число прочитанных/отосланных байт: procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer); begin if(AWorkMode=wmWrite) then label2.Caption := 'Sent: '+intToStr(AWorkCount)+' bytes' else label2.Caption := 'Received: '+intToStr(AWorkCount)+' bytes'; Application.ProcessMessages(); end;
