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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.11.2014, 19:52   #1
dosha
Форумчанин
 
Регистрация: 30.08.2010
Сообщений: 224
По умолчанию http analyzer api Entry.Content.data

Проблема в получении содержимого запроса, вместо строки выдает непонятно что....(Скриншот и проэкт на delphi прилагаю).

В самой программе получаю Entry по событиям
Код:
procedure TForm1.DoOnNewEntry(Sender: TObject; const Entry: ILogEntry;
  var DiscardIt: WordBool);
begin
  Memo1.Lines.Add(Format('%s OnNewEntry: %s %s', [FormatDateTime(
      'hh:nn:ss:zzz', Time), Entry.URL, ConvertByteArrayToString(Entry.Content.Data)]));
end;

procedure TForm1.DoOnUpdateEntry(Sender: TObject; const Entry: ILogEntry);
begin

   Memo1.Lines.Add(Format('%s OnUpdateEntry: %s %s', [FormatDateTime(
      'hh:nn:ss:zzz', Time), Entry.URL, ConvertByteArrayToString(Entry.Content.Data)]));
end;
В документации есть функция преобразования, но увы она не работает
Код:
//delphi convert a byte array to a string 
function ConvertByteArrayToString(const V:OleVariant):string; 
var 
count: Integer; 
ptr: Pointer; 
begin 
Result:=''; 
if VarIsNull(V) then 
Exit; 

count := VarArrayHighBound(V, 1) + 1; 
SetLength(Result,Count); 

ptr := VarArrayLock(V); 
try 
Move(ptr^,Result[1],Count); 
finally 
VarArrayUnlock(V); 
end; 
end;
Изображения
Тип файла: jpg screenshot.jpg (41.9 Кб, 108 просмотров)
Вложения
Тип файла: rar HTTPAnalyzer.rar (87.7 Кб, 6 просмотров)
dosha вне форума Ответить с цитированием
Старый 19.11.2014, 20:19   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Это кодировка сказывается. Нужно хотя бы знать в какой кодировке строка возвращается.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Python. В чем отличие Entry.delete(0, END) от Entry.delete(0.0, END) и еще вопрос pompiduskus PHP 4 12.08.2014 23:17
Непонятные проблемы с программой при выключенном Http Analyzer Hsl Общие вопросы Delphi 31 07.06.2014 13:18
Обход снифера HTTP Analyzer bakanaev Общие вопросы Delphi 23 12.08.2013 20:31
Авторизация на сайте, в HTTP Analyzer работает в программе нет. Человек_Борща Работа с сетью в Delphi 6 06.12.2010 15:40