отразить в ProgressBar процесс отправки данных постом (TIdHTTP)

← →
Alba © (2007-01-31 15:39) [0]

Подскажите пожалуйста, как мне отразить процесс отправки данных в интернет в компоненте progressbar?

прогресбар нужно привязать к этому коду:
procedure TForm1.FormCreate(Sender: TObject); var sl,text : TStringList; path,stroka:string; i, k: integer; begin //Form1.Hide; sl := TStringList.Create; text := TStringList.Create; path := ExtractFilePath(Application.ExeName); try text.LoadFromFile(path+"config.txt"); k:=text.Count; i:=0; while(i<k) do begin stroka:=text.Strings[i]; sl.Add(stroka); i:=i+1; // end; text.LoadFromFile(path+"group.txt"); sl.Add("group="+text.GetText); text.LoadFromFile(path+"tovar.txt"); sl.Add("tovar="+text.GetText); RichEdit1.Text := IdHTTP1.Post("http://localhost/cosmo/1c/1c.php", sl) finally sl.Free; text.Free; end; end;

← →
Сергей М. © (2007-01-31 15:55) [1]

см. событие OnWork

← →
alba © (2007-01-31 16:23) [2]

Спасибо за ответ, но я чет не понял че это за событие...
Простите за тупость :)

← →
Сергей М. © (2007-01-31 16:32) [3]

> я чет не понял че это за событие

Т.е справку ты проштудировал на эту тему и ничерта не понял, так ?

> Спасибо за ответ, но я чет не понял че это за событие...
>

Чего там понимать то. Оно возникает каждый раз после передачи или приема очередной порции данных.

отразить в ProgressBar процесс отправки данных постом (TIdHTTP) Найти похожие ветки