| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

бобо ((( idHTTP1.POST(.......) - Неработает!!! [D6, WinXP]

oduvan ©   (2003-08-25 18:59:00) 


procedure TForm1.Button1Click(Sender: TObject);
var
s,stt:TStringList;
ss:TMEmoryStream;
st,sres:string;
begin
s:=TStringList.Create;
stt:=TStringList.Create;

st:="action=gettree";

sres:="";
sres:=sres+"POST /admin/service_lab/prodkernel.php HTTP/1.0"+#13#10;
sres:=sres+"Host: wwwkbp"+#13#10;
sres:=sres+"User-Agent: Super User Agent"+#13#10;
sres:=sres+"Content-Type: application/x-www-form-urlencoded"+#13#10;
sres:=sres+"Content-length: "+inttostr(length(st))+#13#10;
sres:=sres+"Referer: http://127.0.0.1/"+#13#10;
sres:=sres+#13#10;
sres:=sres+st;
sres:=sres+#13#10;
s.text:=sres;

ss:=TMemoryStream.Create;
http.Post(" http://wwwkbp/admin/service_lab/prodkernel.php",s,ss);

stt.LoadFromStream(ss);
showmessage(stt.Text);

ss.free;
s.Free;
end;


Пытаюсь послать скриттуданные на своем локальном сервере, нифига.! что такое?
помогите ПОЖАЛУЙСТААААААААААААААААААААА! ыыыыыыыыыыыыы

---

Reindeer Moss Eater   (2003-08-25 19:31:00) [1]

Обнови библиотеку, или вызывай Post с параметром "имя файла"

---

Наверх