| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Alba ©   (2007-01-31 15:39:00) 

Подскажите пожалуйста, как мне отразить процесс отправки данных в интернет в компоненте 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;


---

DVM   (2007-01-31 17:21:00) [1]

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

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

---

Сергей М.   (2007-01-31 16:32:00) [2]

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


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

---

alba   (2007-01-31 16:23:00) [3]

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

---

Сергей М.   (2007-01-31 15:55:00) [4]

см. событие OnWork

---

Наверх