Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

А как загрузить в Memo содержимое текстового файла в интернете [D7, WinXP]

Русланка © (2005-08-26 17:34:00)
Например надо загрузить в Memo файл, который лежит по адресу
www.myweb/test.txt

Poirot (2005-08-26 23:22:00) [1]
От соединения это зависит!!
Мб также от скорости оюбработки окном сообщений отрисовки. Можно попробовать запускать скачивание файла в отдельном потоке!
Зы:Бинарные файлы можно загружвть тем-же способом, что я указал, только бинарный файл надо сохранить из потока в файл :)

Русланка (2005-08-26 21:24:00) [2]
Спасибо Вам большое, Poirot! ВСе работает...
Последний вопрос - почему так медленно отрабатывает Прогресс ?
Загружаю файл 100 кб, размер ResvBuffSize = 8192, MaxLineLenght = 8192

Русланка (2005-08-26 21:22:00) [3]
Сейчас попробую...;)
Книжки с удовольствием бы почитала, только в тех что у меня есть этот компонент не описан...

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

Русланка (2005-08-26 19:27:00) [5]
Все равно не помогает.
Ставлю там брейкпойнт - даже не заходит туда

Poirot (2005-08-26 19:22:00) [6]
Application.ProcessMessages() в procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;

Русланка (2005-08-26 19:07:00) [7]
Почему то у меня эти события не срабатывают...

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:02:00) [8]
OnWorking
OnWorkBegin
OnWorkEnd
...
Could you please RTFM :)))

Русланка (2005-08-26 18:55:00) [9]
А как показать прогресс загрузки файла?
Использую TIdHTTP

Digitman (2005-08-26 18:39:00) [10]
http://www.delphimaster.ru/cgi-bin/forum.pl?n=4&id=1125054010

Русланка (2005-08-26 18:29:00) [11]
Супер! Работает!
Тогда еще вопрос если позволите. Как загрузить двоичный файл (test.bin) с интернета и сохранить его в папке программы?

Poirot (2005-08-26 18:01:00) [12]
Например так на скорую руку
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;

Наверх

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