Текущий архив: 2003.10.23;
Скачать: CL | DM;

Вниз

бобо ((( idHTTP1.POST(.......) - Неработает!!!   Найти похожие ветки 

← →
oduvan   (2003-08-25 18:59) [0]


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) [1]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.10.23;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.015 c