Kol IdHttp

← →
Dy1 (2010-01-06 21:44) [0]

помогите пожалуйста.
Часть моего кода...
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}

← →
Дмитрий К © (2010-01-06 22:22) [1]

Не хватает создания st.

← →
Dimaxx © (2010-01-06 22:27) [2]

Качни Fiddler и глянь что у тебя отправляется. Я когда с EVE API работал тоже вроде все строки верные, а код не пашет. Вот фидлер и показал какую муть отсылает код... Я отказался от такого вот способа отсылки и оправлял все одной строкой. Если я правильно понял, в твоем варианте будет "http://www.dy.cdrrhq.ru/s?n1=a&n2=0".

PS: Пользовался переделанной под КОЛ версией HTTPGet от UtilMind.

← →
Dy1 (2010-01-07 09:36) [3]

а как Fiddler запустить? Он ничего не перехватывает

← →
Dy1 (2010-01-07 09:40) [4]

и как в HTTPGet отправить POST ?

← →
Dy1 (2010-01-07 11:06) [5]

заюзал АПИ и исправил ошибку в стыренном :) коде. Без аутентификации работает

В фидлере в настройках запускаешь перехват всего, а не тока ишака. Постил примерно так:

var O: PStream; HT: PHTTPGet; ... HT:=NewHTTPGet(True); O:=NewMemoryStream; HT.URL:="<запрос>"; HT.Get(O); HT.Free; ...

далее из мемстрима грузил в парсер полученный xml и работал с ним.

← →
MTsv DN (2010-01-07 15:03) [7]

Navernjaka pol"zuew" zamenu systemnix fajlov... Eto zlo, udaljaj...12 kilo s exe-wnika togo ne stojat...

← →
Dy1 (2010-01-08 09:26) [8]

кто? Я не использую

Kol IdHttp Найти похожие ветки