TIdHTTPProxyServer лог прокси
Есть компонента на вкладке Indy - TIdHTTPProxyServer
Кто с ней работал?
При помощи нее можно сделать проксик. Вопрос в другом - как посмотреть данные, которые идут через этот проксик?
Могу посмотреть какие идут запросы наружу, а какие данные приходят на эти запросы что-то не смог найти... Да и в инете хелпы как-то не охти много =(
Кто с ней работал?
При помощи нее можно сделать проксик. Вопрос в другом - как посмотреть данные, которые идут через этот проксик?
Могу посмотреть какие идут запросы наружу, а какие данные приходят на эти запросы что-то не смог найти... Да и в инете хелпы как-то не охти много =(
AContext->Headers->GetText(); - так можно посмотреть какие заголовки идут
AContext->Document - вот так можно посмотреть к какие файлы пытается загрузить (картинки, файлы, обращения к пхп)...
....
Выводит список хедеров и какая информация пришла причем только до раздела data =(
AContext->Document - вот так можно посмотреть к какие файлы пытается загрузить (картинки, файлы, обращения к пхп)...
....
Выводит список хедеров и какая информация пришла причем только до раздела data =(
Вроде нашел я... Теперь новая загвоздка... проблема с чтением данных из потока...
VStream->Size например имеет длинну 1800
а в str2 попадает только несколько крякозяблей... в чем проблема может быть?
VStream->Size например имеет длинну 1800
а в str2 попадает только несколько крякозяблей... в чем проблема может быть?
Код:
void __fastcall TForm1::IdHTTPProxyServer1HTTPDocument(TIdHTTPProxyServerContext *AContext,
TStream *&VStream)
{
int LSize;
AnsiString str = AContext->Headers->Values["Content-Type"];
LSize = VStream->Size;
Memo1->Lines->Add(AContext->Document);
if(str.Pos("text/xml") && LSize>0)
{
AnsiString str2;
Memo1->Lines->Add(LSize);
str2.SetLength(LSize);
VStream->Position=0;
VStream->ReadBuffer(&str2[1],VStream->Size-1);
Memo1->Text = Memo1->Text+str2;
Memo1->Lines->Add("");
}
TStream *&VStream)
{
int LSize;
AnsiString str = AContext->Headers->Values["Content-Type"];
LSize = VStream->Size;
Memo1->Lines->Add(AContext->Document);
if(str.Pos("text/xml") && LSize>0)
{
AnsiString str2;
Memo1->Lines->Add(LSize);
str2.SetLength(LSize);
VStream->Position=0;
VStream->ReadBuffer(&str2[1],VStream->Size-1);
Memo1->Text = Memo1->Text+str2;
Memo1->Lines->Add("");
}
Если получаете лабуду =) значит она просто сжата в gzip, поэтому лучше проверять заголовок Content-Encoding =). Вообщем сам разобрался. Всем спасибо за помощь
Цитата: newcss
Если получаете лабуду =) значит она просто сжата в gzip, поэтому лучше проверять заголовок Content-Encoding =). Вообщем сам разобрался. Всем спасибо за помощь
каким образом разжать gzip-трафик? (байты начинаются с 1f 8b 08 00 00), использование всяких idzlib и т.д. ругаются на неверный формат данных.. Может необходимо добавить еще какой заголовок? спасибо