PHP DM Gate v0.9 » Вопрос про TidHttp. Просмотр отправляемого содержимого. <span class="vd">[D7, WinXP]</span>

vegarulez © (30.01.09 10:55) [0]

Привет всем мастерам!
использую TidHttp (indy10.1.5 + D7). но сервер почему то пишет о неверно авторизации в связи с чем возникает такой вопрос - Как посмотреть содержимое пакета, то - что непосредственно в сеть отправляется, при Post запросе?

begin
Source := TMemoryStream.Create;
try
Source.LoadFromFile(edPostFile.Text);
HTTP.Post(cbURL.Text, Source, Response);
finally
Source.Free;
end;
end;

<Цитата>
Медвежонок Пятачок © (30.01.09 11:01) [1]

HTTP.Post('http://localhost', Source, Response);

<Цитата>
vegarulez © (30.01.09 11:12) [2]

на локалхосте не могу с эмулировать сервер потому как на настоящем сервере используется сертификат SSL и обмен идёт по HTTPS с проверкой сертификатов и авторизацией. поэтому нужно именно посмотреть что на сервер уходит, потому как нужно отладить - где-то ошибка сидит.

<Цитата>
Медвежонок Пятачок © (30.01.09 11:17) [3]

если ssl то никак не посмотришь.

убери ссл и поставь локальный сервер, который ничего не делает, а просто читает заголовок и боди.
тогда все увидишь аз из

<Цитата>
Anatoly Podgoretsky © (30.01.09 11:55) [4]

> vegarulez (30.01.2009 11:12:02) [2]

И что ты будешь делать с этой ширрованой абракадаброй.

<Цитата>
brother © (02.02.09 08:20) [5]

имхо задача не решаема) или поднимай копию сервера на локале)

<Цитата>
vegarulez © (02.02.09 09:23) [6]

Поднял SSL сервер на базе инди из взятый сэмплов на базе IdTCPServer, подложил ему KeyFile, CertFile, RootCertFile, но там сэмпл, для обмена мгновенными сообщениями по зашифрованному каналу м\у клиентом и сервером. Я так подумал пусть моеё приложение и будет клиентом, т.к. idhttp посылает всё равно текст - попробовал на него отпрвить - в итоге вижу только заголовок, т.е. начальную часть сообщения, остальное чото не выводится - повисает.

Думаю ладно подниму обычный хттп сервер на базе idhttpserver, т.к. посоветовали, отключив SSL. Cкачал сэмпл с сайта инди - а он не хочет комплититься - ругается.

[Fatal Error] IdSysBase.pas(31): Could not create output file 'junk\IdSysBase.dcu'

В чём может быть проблема???

<Цитата>
Медвежонок Пятачок © (02.02.09 09:35) [7]

нет каталога junk

<Цитата>
vegarulez © (02.02.09 09:58) [8]

Удалено модератором
Примечание: Со сленгом на базар

<Цитата>
vegarulez © (02.02.09 09:59) [9]

хотя сам файл ничего примечательно из себя не представляет..
{
$Project$
$Workfile$
$Revision$
$DateUTC$
$Id$

This file is part of the Indy (Internet Direct) project, and is offered
under the dual-licensing agreement described on the Indy website.
(http://www.indyproject.org/)

Copyright:
(c) 1993-2005, Chad Z. Hower and the Indy Pit Crew. All rights reserved.
}
{
$Log$
}

unit IdSysBase;

interface

type
TIdSysBase = class
end;

implementation

end.

<Цитата>
Медвежонок Пятачок © (02.02.09 10:18) [10]

хм... так а причём тут junk

притом, что в свойствах проекта сказано создавать в нем dcu

<Цитата>
vegarulez © (02.02.09 10:20) [11]

Медвежонок Пятачок © (02.02.09 10:18) [10]

Как это отключить???
ведь IdSysBase.dcu уже создан и есть в "c:\Program Files\Indy 10 for Delphi 7\Source\Core\"

<Цитата>
Медвежонок Пятачок © (02.02.09 10:21) [12]

.... в свойствах проекта сказано ....

<Цитата>