[us8ihj]

Добрый день! Я, как новичек, хотел обратится за помощью. Есть такая задача: Нужно в Memo (либо другой контейнер) загрузить данные по ссылке http://qwer.ru/12345678.txt (это просто пример, но ссылка имеет схожий вид). Как организовать процесс ввода? Учитывать то, что файл может не находится в кэше браузера. Просто его надо открыть и загрузить в Memo. Буду благодарен за помощь.

[Snake22]

добавь на форму компонент idHTTP
и потом, например, на кнопку напиши
memo1.Text:=IdHTTP1.get('http://qwer.ru/12345678.txt')

[M.A.D.M.A.N.]

Код:

TIdHTTP;
TIdHTTP.Get('qwer.ru/12345678.txt', stream);
memo1.lines.loadfromstream(stream);

[us8ihj]

При нажатии на кнопку выдает ошибку Socket Error #10061.Connection refused. И ничего не происходит. Вот нашел для теста ссылку на текстовый файл: http://www.typograf.ru/flog/test1.txt , пытлася его загрузить.
M.A.D.M.A.N., при запуске жалуется на stream как на необъявленную переменную. Какой тип ей объявить?

[angvelem]

Эх, лодыри, справку лень почитать.

Код:

var
  Stream : TMemoryStream;

  ...
  Stream := TMemoryStream.Create;
  try
    TIdHTTP.Get('qwer.ru/12345678.txt', Stream);
    memo1.lines.loadfromstream(Stream);
  finally
    Stream.Free;
  end;

[Snake22]

хм у мя вот так норм все в мемо загрузилось
Memo1.Text:=IdHTTP1.Get('http://www.typograf.ru/flog/test1.txt')
может зависит от типа интернет соединеия че нить,незнаю уж.но сработало без ошибок.

[us8ihj]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var Stream:TMemoryStream;
begin
Stream:=TMemoryStream.Create;
try
IdHTTP1.Get('http://www.typograf.ru/flog/test1.txt',Stream);
Memo1.Lines.LoadFromStream(Stream);
finally
Stream.Free;
end;
end;

Вот таким способом ничего не происходит.

Snake22, А вашим сработало! Оказывается я забыл http:// дописать.

Вообщем-то говоря мне нужно не просто открыть файл, но и считать с него определенную информацию.
Файл такого вида:

a1 b1 c1 d1 ...
a2 b2 c2 d2 ...
...

где aN, bN, cN, dN - это строковая информация (там могут быть и слова и айпи-адреса (с точками) или просто числа, а пробелы - табуляция.

Этот файл надо открыть, и вывести в StringGrid. Если бы я работал с файлом который находится на компьютере - было бы проще. Конечно, можно открыть по ссылке, вывести в Memo и сохраннить в текстовый документ, но Memo1.Text:=... Выведет этот файл одной строкой, а мне нужно чтобы формат файла остался прежним и с ним можно было вести дальшейшую его обработку (в частности, это надо поместить в StringGrid).

[angvelem]

Ну нужно же хоть маленько думать, после загрузки файла указатель в Stream указывает на его конец.

Код:

procedure TForm1.Button4Click(Sender: TObject);
var
  Stream : TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  try
    IdHTTP1.Get(''http://www.typograf.ru/flog/test1.txt', Stream);
    Stream.Seek(0, 0); // установим указатель потока в начало
    if Stream.Size > 0 then
      Memo1.Lines.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;