Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.07.2010, 14:49   #1
mc_12
 
Регистрация: 03.01.2009
Сообщений: 4
По умолчанию Результат POST-запроса в TStringStream

Здравствуйте, уважаемые программисты.
Есть код процедуры
Код:
var
  TmpStream:TStringStream;
  StrList:TStringList;
  URLData,URLPost:string;
begin
  StrList:=TStringList.Create;
  //URL сугубо для примера
  URLPost:='https://license.avira.com/en/login.html';
  //тоже бессмысленный параметр
  URLData:='parameters';
  //изменение кодировки не спасло
  TmpStream:=TStringStream.Create('',TEncoding.UTF8);
  HttpPostURL(URLPost,URLData,TmpStream);
  Memo1.Text:=TmpStream.DataString;
  //Memo1.Lines.LoadFromStream(TmpStream); - результат - пустота
  //для анализа, в блокноте теже прямоугольнички (непечатаемые символы)
  Memo1.Lines.SaveToFile('t.txt');
  TmpStream.Free;
  StrList.Free;
end;
по результатам выполнения post-запроса получаем текст в StringStream, затем из него в Memo (использовал 2 способа, в первом, более удачном, в Memo помещается текст, но вместо переноса строки - непечатаемые символы - квадратики).

внимание вопросы:
- как избавиться от квадратиков используя TStringStream?
- как для таких целей пользоваться другими потоками (TMemoryStream например)

оборудование:
- codegear delphi 2010
- synapse (вместо indy)

вложение: txt документ с результатами запроса

просьба: сильно не ругаться
Вложения
Тип файла: txt t.txt (14.2 Кб, 21 просмотров)
mc_12 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
post запрос, результат разбить на строки Kukkk Общие вопросы Delphi 2 20.08.2009 17:01
Ответ POST запроса... HTL Работа с сетью в Delphi 1 31.07.2009 12:12
Странность POST-запроса Voody Работа с сетью в Delphi 4 21.07.2009 20:39
Отправка POST запроса S@fer Работа с сетью в Delphi 0 29.01.2009 13:33