В сообщении выводится не то, что нужно

@Zagadohnik37 · Регистрация: 23.01.2015

Author24 — интернет-сервис помощи студентам

Вот код:

Delphi

var s:TMemoryStream;
begin
  s:=TMemoryStream.Create;
 idHTTP1.Get('http://сайт.net/файл.txt',s);
ShowMessage(s.ToString);
s.free;

По (моей) логике в сообщении должен выводиться текст, что был в файле на сайте, но в место этого пишет: "TMemoryStream".
Как исправить, и сделать так, чтобы в сообщении выводится текст из файла?
*И можете написать, как сделать так, что бы в сообщении было несколько строк, в смысле каким знаком разделять строки?*

@krapotkin · 19.05.2017, 21:10

showMessage(s.datastring);
строки разделяются как всегда - в windows #13#10. в Linux - #10

@GoodWeather · 19.05.2017, 21:18

Может лучше так?:

Delphi

var s: String;
begin
s:=idHTTP1.Get('http://сайт.net/файл.txt');
ShowMessage(s);

Добавлено через 28 секунд
А в Mac - #13.

@~~antipattern~~ · 19.05.2017, 21:33

Сообщение от krapotkin

showMessage(s.datastring);

Это в новых версиях делфи такой кошмар?

@krapotkin · 20.05.2017, 08:44

GoodWeather, да нет. в Windows - #13#10, а в Unix, Mac, iOS, Linux - #10
antipattern, где кошмар?
забыл я написать что S не TMemoryStream а TStringStream
соответственно
если S:TStringStream, то S.Datastring - строка данных

@Zagadohnik37 · 20.05.2017, 15:12 **[ТС]**

GoodWeather, Для твоего кода не хватает вот этого:

Delphi

function p(s : string) : string;
var i,p : integer;
const
  cp1252 = 'àáâãäå¸æçèéêëìíîïðñòóôõö÷øùúûüýþÿÀÁÂÃÄÅ¨ÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞß';
  cp1251 = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
begin
  for i := 1 to length(s) do begin
    p := pos(s[i],cp1252);
    if p <> 0 then
      s[i] := cp1251[p];
  end;
  result := s;
end;

А в showmessage:

Delphi

1	ShowMessage(p(s));

@GoodWeather · 20.05.2017, 16:46

Кстати, какая версия Делфи и какая версия Indy?

Сообщение от Zagadohnik37

не хватает вот этого

Чего? Что за жуть? Зачем?
Нужны ли последующие преобразования зависит от кодировки файла. Вы знаете какая кодировка у файла, и какая кодировка вам нужна?

Сообщение от krapotkin

да нет

Нет не да нет а да)

#10 [LF] [\n] [\u000A] [ASCII 0x0A] используется в Multics, UNIX, UNIX-подобных операционных системах (GNU/Linux, AIX, Xenix, Mac OS X, FreeBSD и др.), BeOS, Amiga UNIX, RISC OS и других;
#13 [CR] [\r] [\u000D] [ASCII 0x0D] используется в 8-битовых машинах Commodore, машинах TRS-80, Apple II, системах Mac OS до версии 9 и OS-9;
#13#10 [CR+LF] [\r\n] [\u000D\u000A] [ASCII 0x0D+0x0A] используется в DEC RT-11 и большинстве других ранних не-UNIX- и не-IBM-систем, а также в CP/M, MP/M (англ.), MS-DOS, OS/2, Microsoft Windows, Symbian OS, протоколах Интернет.

Правда судя по цитате в новых Мак с какого-то перепугу перешли на другой формат, этого я не знал.
Но в большинстве текстовых редакторов традиционно осталося:
Название: Формат Конца Строк.png
Просмотров: 15

Размер: 855 байт

Название: Формат Конца Строк.png
Просмотров: 15

Размер: 855 байт

@krapotkin 5868 / 4596 / 1448 Регистрация: 14.04.2014 Сообщений: 20,392 Записей в блоге: 20
	19.05.2017, 21:10	2
	showMessage(s.datastring); строки разделяются как всегда - в windows #13#10. в Linux - #10 1

@~~antipattern~~ Заблокирован
	19.05.2017, 21:33	4
	Сообщение от krapotkin showMessage(s.datastring); Это в новых версиях делфи такой кошмар? 0

@krapotkin 5868 / 4596 / 1448 Регистрация: 14.04.2014 Сообщений: 20,392 Записей в блоге: 20
	20.05.2017, 08:44	5
	Сообщение было отмечено Zagadohnik37 как решение Решение GoodWeather, да нет. в Windows - #13#10, а в Unix, Mac, iOS, Linux - #10 antipattern, где кошмар? забыл я написать что S не TMemoryStream а TStringStream соответственно если S:TStringStream, то S.Datastring - строка данных 1

@GoodWeather 886 / 588 / 179 Регистрация: 28.02.2017 Сообщений: 2,359 Записей в блоге: 1
	20.05.2017, 16:46	7
	Кстати, какая версия Делфи и какая версия Indy? Сообщение от Zagadohnik37 не хватает вот этого Чего? Что за жуть? Зачем? Нужны ли последующие преобразования зависит от кодировки файла. Вы знаете какая кодировка у файла, и какая кодировка вам нужна? Сообщение от krapotkin да нет Нет не да нет а да) #10 [LF] [\n] [\u000A] [ASCII 0x0A] используется в Multics, UNIX, UNIX-подобных операционных системах (GNU/Linux, AIX, Xenix, Mac OS X, FreeBSD и др.), BeOS, Amiga UNIX, RISC OS и других; #13 [CR] [\r] [\u000D] [ASCII 0x0D] используется в 8-битовых машинах Commodore, машинах TRS-80, Apple II, системах Mac OS до версии 9 и OS-9; #13#10 [CR+LF] [\r\n] [\u000D\u000A] [ASCII 0x0D+0x0A] используется в DEC RT-11 и большинстве других ранних не-UNIX- и не-IBM-систем, а также в CP/M, MP/M (англ.), MS-DOS, OS/2, Microsoft Windows, Symbian OS, протоколах Интернет. Правда судя по цитате в новых Мак с какого-то перепугу перешли на другой формат, этого я не знал. Но в большинстве текстовых редакторов традиционно осталося: 0

В сообщении выводится не то, что нужно

Решение