-
Dy1 (06.01.10 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} -
Дмитрий К © (06.01.10 22:22) [1]Не хватает создания st.
-
Dimaxx © (06.01.10 22:27) [2]Качни Fiddler и глянь что у тебя отправляется. Я когда с EVE API работал тоже вроде все строки верные, а код не пашет. Вот фидлер и показал какую муть отсылает код... Я отказался от такого вот способа отсылки и оправлял все одной строкой. Если я правильно понял, в твоем варианте будет "http://www.dy.cdrrhq.ru/s?n1=a&n2=0".
PS: Пользовался переделанной под КОЛ версией HTTPGet от UtilMind. -
Dy1 (07.01.10 09:36) [3]а как Fiddler запустить? Он ничего не перехватывает
-
Dy1 (07.01.10 09:40) [4]и как в HTTPGet отправить POST ?
-
Dy1 (07.01.10 11:06) [5]заюзал АПИ и исправил ошибку в стыренном :) коде. Без аутентификации работает
-
Dimaxx © (07.01.10 14:59) [6]В фидлере в настройках запускаешь перехват всего, а не тока ишака. Постил примерно так:var
O: PStream;
HT: PHTTPGet;
...
HT:=NewHTTPGet(True);
O:=NewMemoryStream;
HT.URL:="<запрос>";
HT.Get(O);
HT.Free;
...
далее из мемстрима грузил в парсер полученный xml и работал с ним. -
MTsv DN (07.01.10 15:03) [7]Navernjaka pol'zuew' zamenu systemnix fajlov... Eto zlo, udaljaj...12 kilo s exe-wnika togo ne stojat...
-
Dy1 (08.01.10 09:26) [8]кто? Я не использую