А как загрузить в 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 © (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

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

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