tstrings.loadfromstream

[Gumer]

Вот имеется такой код.

procedure TForm1.Button1Click(Sender: TObject);
var ms:TMemoryStream;
    st:TStrings;
begin
ms:=tmemorystream.create;
st:=tstringlist.create;

//1
idhttp1.Get('http://bestgames.moy.su/test.txt',ms);
st.LoadFromStream(ms);
if st.count>0 then
 showMessage(st.Strings[0]);

st.Free;
ms.Free;

ms:=tmemorystream.create;
st:=tstringlist.create;

//2
ms.LoadFromFile('test.txt');
st.loadfromstream(ms);
if st.count>0 then
 showMessage(st.strings[0]);

st.Free;
ms.Free;
end;

В первом случае ничего не выскакивает, во втором - первая строка из файла (все как надо), хотя файл из интернета и на компьютере абсолютно одинаковые.

Почему так и как это исправить?

[Stilet]

А не проще ли:

st.text:=idhttp1.Get('http://bestgames.moy.su/test.txt');
if st.count>0 then
 showMessage(st.Strings[0]);

Или тебе принципиально с Stream классами работать нужно?

[Gumer]

Проще, спасибо!

Но все равно момент непонятный, хотелось бы разобраться.

[Stilet]

хотелось бы разобраться.

Там какой-то прикол с Стримами. Вообще они достаточно криво работают...

[JTG]

ms.SaveToFile и проверить, может оно вообще не загружает ничего. И st:TStringList для надёжности

[evg_m]

хотя файл из интернета и на компьютере абсолютно одинаковые.

но кто сказал что файл БЫЛ получен.

idhttp1.Get('http://bestgames.moy.su/test.txt',ms);
//ЗДЕСЬ надо проверить что файл был получен
st.LoadFromStream(ms);

[Gumer]

Я сначала через файлы и работал, но потом увидел, что это можно сделать через Stream.

idhttp1.Get('http://bestgames.moy.su/test.txt',ms);
ms.SaveToFile('test2.txt');
st.LoadFromFile('test2.txt');

Вот так работает.

И вот еще:

procedure TForm1.Button1Click(Sender: TObject);
var ms:TMemoryStream;
    st:TStrings;
begin
ms:=tmemorystream.create;
st:=tstringlist.create;

//1
idhttp1.Get('http://bestgames.moy.su/test.txt',ms);
st.LoadFromStream(ms);
if st.count>0 then
 showMessage(st.Strings[0]);

//отсюда я убрал ms.free (см. первое сообщение)

//2
ms.LoadFromFile('test.txt');
st.loadfromstream(ms);
if st.count>0 then
 showMessage(st.strings[0]);

st.Free;
ms.Free;
end;

Выдает только одно сообщение, из второго случая, наверное, и выдает "ue", хотя в файле 3 строки:
red
green
blue

Должно и выскакивало сообщение "red".

[Пепел Феникса]

а кто после загрузки будет смещать позицию потока в ноль?

idhttp1.Get('http://bestgames.moy.su/test.txt',ms);
ms.Position:=0;
st.LoadFromStream(ms);

это дырка ИнДи, они забыли это сделать...

а при загрузке с файла позиция восстанавливается.

Вообще они достаточно криво работают...

пока не увижу аргументов не поверю
тысячи раз с ними работал, и все ровно

[MMM_Corp]

потоки - отлично работаюь, не надо ля-ля...

а где тут:

Position:=0;

компилятор сам будет ставить ?

[Stilet]

тысячи раз с ними работал

Значит мне не везло, но глюков я нахватался при работе с потоками