Скачать: CL | DM;

отразить в 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]

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


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

---

← →
DVM ©   (2007-01-31 17:21) [4]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c