Ładny brzuch
Mam blad w takim oto kodzie:
var Recv,Snd : TStringStream; begin Recv := TStringStream.Create(''); Snd := TStringStream.Create(''); Snd.WriteString('?imie=Janek&nazwisko=Nowak&email=moj@mail.cu&adres=Wiesniacza& miast=Minsk&kod=22222&wykonawca=Zelek&utwor=chicior'); try http.Post('http://www.cgm.pl/lista/barometr_propozycje_dodaj.exe.php',Snd,Recv); //tu pokazuje blad except ShowMessage('Blad!!'); end; memo1.Text:= Recv.ReadString(Recv.Size); Recv.Free; Snd.Free; HTTP.Disconnect; end;
Pokazuje blad (oczywiscie runtime): "HTTP/ 1.1 302 Found" Co to moze byc??
302 - dokument zosta przeniesiony pod inny adres :D Moesz ustawi HandleRedirects na true, ale i tak tutaj pojawi si inny bd (405 - method not allowed). Poza tym stronka korzysta z sesji, wic takie zagosowanie si prawdopodobnie nie uda ;)
Jakie wiec jest jakies rozwiazanie tzn. czy da sie jakos zrobic aby dalo sie w ten sposob glosowac??
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
var Recv,Snd : TStringStream; begin Recv := TStringStream.Create(''); Snd := TStringStream.Create(''); Snd.WriteString('?imie=Janek&nazwisko=Nowak&email=moj@mail.cu&adres=Wiesniacza& miast=Minsk&kod=22222&wykonawca=Zelek&utwor=chicior'); try http.Post('http://www.cgm.pl/lista/barometr_propozycje_dodaj.exe.php',Snd,Recv); //tu pokazuje blad except ShowMessage('Blad!!'); end; memo1.Text:= Recv.ReadString(Recv.Size); Recv.Free; Snd.Free; HTTP.Disconnect; end;
Pokazuje blad (oczywiscie runtime): "HTTP/ 1.1 302 Found" Co to moze byc??
302 - dokument zosta przeniesiony pod inny adres :D Moesz ustawi HandleRedirects na true, ale i tak tutaj pojawi si inny bd (405 - method not allowed). Poza tym stronka korzysta z sesji, wic takie zagosowanie si prawdopodobnie nie uda ;)
Jakie wiec jest jakies rozwiazanie tzn. czy da sie jakos zrobic aby dalo sie w ten sposob glosowac??