Форум: "Сети";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];
Вниз
А как загрузить в 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 вся ветка
Форум: "Сети";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.041 c
