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

А как загрузить в Memo содержимое текстового файла в интернете   Найти похожие ветки 

← →
Русланка   (2005-08-26 17:34) [0]

Например надо загрузить в Memo файл, который лежит по адресу
www.myweb/test.txt

---

← →
Poirot ©   (2005-08-26 18:01) [1]

Например так на скорую руку

var
 s:TMemoryStream;
 d:TIdHTTP;
begin
 d := TIdHTTP.Create(self);
 s := TMemoryStream.Create();
 d.Get("http://www.rarlab.com/download.htm", s);
 s.Position := 0;
 Memo1.Lines.LoadFromStream(s);
 s.Free;
 d.Free;
end;


---

← →
Русланка   (2005-08-26 18:29) [2]

Супер! Работает!
Тогда еще вопрос если позволите. Как загрузить двоичный файл (test.bin) с интернета и сохранить его в папке программы?

---

← →
Digitman ©   (2005-08-26 18:39) [3]

http://delphimaster.net/view/6-1125054010/

---

← →
Русланка   (2005-08-26 18:55) [4]

А как показать прогресс загрузки файла?
Использую  TIdHTTP

---

← →
Poirot ©   (2005-08-26 19:02) [5]

OnWorking
OnWorkBegin
OnWorkEnd
...
Could you please RTFM :)))

---

← →
Русланка   (2005-08-26 19:07) [6]

Почему то у меня эти события не срабатывают...

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
 const AWorkCountMax: Integer);
var i:integer;
begin
 ProgressBar1.Min:=0;
 ProgressBar1.Max:= AWorkCountMax;
end;

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
 const AWorkCount: Integer);
begin
 ProgressBar1.Position:= AWorkCount;
end;

---

← →
Poirot ©   (2005-08-26 19:22) [7]

Application.ProcessMessages() в procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;

---

← →
Русланка   (2005-08-26 19:27) [8]

Все равно не помогает.
Ставлю там брейкпойнт - даже не заходит туда

---

← →
Poirot ©   (2005-08-26 19:29) [9]

хм, а вы не пробовали  в Poirot ©   (26.08.05 18:01) [1] вместо d поставить свой IdHTTP1 ? ил например так сделать
d.OnWorkBegin := IdHTTP1WorkBegin;
d.OnWork := IdHTTP1Work;
...
Советую таки почитать книжки по Делфи.!

---

← →
Русланка   (2005-08-26 21:22) [10]

Сейчас попробую...;)
Книжки с удовольствием бы почитала, только в тех что у меня есть этот компонент не описан...

---

← →
Русланка   (2005-08-26 21:24) [11]

Спасибо Вам большое, Poirot! ВСе работает...
Последний вопрос - почему так медленно отрабатывает Прогресс ?
Загружаю файл 100 кб, размер ResvBuffSize = 8192, MaxLineLenght = 8192

---

← →
Poirot ©   (2005-08-26 23:22) [12]

От соединения это зависит!!
Мб также от скорости оюбработки окном сообщений отрисовки. Можно попробовать запускать скачивание файла в отдельном потоке!
Зы:Бинарные файлы можно загружвть тем-же способом, что я указал, только бинарный файл надо сохранить из потока в файл :)

---

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

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



Память: 0.47 MB
Время: 0.024 c