![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Kol IdHttp
Dy1 © (2010-01-06 21:44:00)помогите пожалуйста.
Часть моего кода...
procedure TForm1.Button1Click(Sender: PObj);
var
p: pidhttp;
l: PStrList;
st: PStream;
begin
p := NewIdHTTP(Form);
l := NewStrList;
l.Add('n1=a');
l.Add('n2=0');
p.Post(' http://www.dy.cdrrhq.ru/s', l, st);//здесь пхп. Сам по себе работает
Зависает на:
procedure TIdHTTP.DoRequest(const AMethod: TIdHTTPMethod; AURL: string; const ASource: PObj{TObject}; const AResponseContent: PStream{TStream});
...
case AMethod of
...
hmPost: WriteLn('POST ' + AURL + ' HTTP/' + ProtocolVersionString[ProtocolVersion]); {do not localize}
Dy1 (2010-01-08 09:26:00) [1]кто? Я не использую
MTsv DN (2010-01-07 15:03:00) [2]Navernjaka pol'zuew' zamenu systemnix fajlov... Eto zlo, udaljaj...12 kilo s exe-wnika togo ne stojat...
Dimaxx (2010-01-07 14:59:00) [3]В фидлере в настройках запускаешь перехват всего, а не тока ишака. Постил примерно так:
var
O: PStream;
HT: PHTTPGet;
...
HT:=NewHTTPGet(True);
O:=NewMemoryStream;
HT.URL:="<запрос>";
HT.Get(O);
HT.Free;
...
далее из мемстрима грузил в парсер полученный xml и работал с ним.
Dy1 (2010-01-07 11:06:00) [4]заюзал АПИ и исправил ошибку в стыренном :) коде. Без аутентификации работает
Dy1 (2010-01-07 09:40:00) [5]и как в HTTPGet отправить POST ?
Dy1 (2010-01-07 09:36:00) [6]а как Fiddler запустить? Он ничего не перехватывает
Dimaxx (2010-01-06 22:27:00) [7]Качни Fiddler и глянь что у тебя отправляется. Я когда с EVE API работал тоже вроде все строки верные, а код не пашет. Вот фидлер и показал какую муть отсылает код... Я отказался от такого вот способа отсылки и оправлял все одной строкой. Если я правильно понял, в твоем варианте будет " http://www.dy.cdrrhq.ru/s?n1=a&n2=0".
PS: Пользовался переделанной под КОЛ версией HTTPGet от UtilMind.
Дмитрий К (2010-01-06 22:22:00) [8]Не хватает создания st.