TIdHTTP i metoda POST

0

Witam, pisze sobie programik w Delphi do wysylania zapytania POST na strone www, mam taki kod:

{----------------------------------------------------------------------------}
procedure TWatek.Execute;
var
  text1,text2,text3,text4,text5,text6,xxx : String;
  len,j,k : integer;
  nadanie,odbior : TStringStream;
begin

  nadanie := TStringStream.Create('');
  odbior := TStringStream.Create('');

  text1:='cookie...';
  text2:='cookie...';
  text3:='cookie...';
  Form1.idHTTP1.Request.CustomHeaders.Add('Cookie: '+text1+text2+text3);

  text4:='tekst...';
  text5:='tekst...';
  text6:='tekst...';

  j:=StrLen(pchar(numer));
  k:=STrLen(pchar(text4+text5+text6));
  len:=k+j;

  Form1.idHTTP1.Request.CustomHeaders.Add('Content-Length: '+IntToStr(len));

  nadanie.WriteString('txt='+text4+text5+text6);
  Form1.IdHTTP1.Post('http://www.strona.pl', nadanie, odbior);

end;
{----------------------------------------------------------------------------}

Mam rowniez ustawione w komponencie ContentType oraz UserAgent, lecz po kompilacji i uruchomieniu wywalany jest blad: Project Project1.exe raised exception class EIdIOKHndlerPropInvalid with message 'IOHandler value is not vaild'.

0

nikt nie wie? :(

1 użytkowników online, w tym zalogowanych: 0, gości: 1