ورود

View Full Version : سوال: دستور get و post در دلفی



feri_banamak
یک شنبه 25 آبان 1393, 22:44 عصر
با سلام و احترام خدمه دوستان و اساتید
من یک برنامه کوچیک دارم می خوام با دلفی بنویسم که چند پارامتر رو به یه url php ارسال کنه و جواب رو در یک متغیر بگیره
برنامه نویس php اعلام کرده پارامتر ها به این صورت ارسال بشه
api.php?check=1&activation=9536985814843883&hddid=5465212345
و جواب سه متغیر رو دریافت کنه
khoroji=> username|password|type

دوستان واسه نوشتن کد کمکم کنند ممنون میشم

*جیگرم*
دوشنبه 26 آبان 1393, 02:09 صبح
var
Params: TStringlist;
resp: TStringStream;
http: TIdHTTP;
begin
Params := TSTringList.Create;
resp := TStringStream.Create('');
http:= TIdHTTP.Create(nil);

params.Values['check']:='1';
params.Values['activation']:='9536985814843883';
params.Values['hddid']:='5465212345';
with HTTP do
begin
HandleRedirects := True;
AllowCookies := True;
Request.ContentType := 'application/x-www-form-urlencoded';//'text/html';
Request.AcceptCharSet := 'utf-8';
Request.UserAgent := '';
Request.Connection := 'Keep-Alive';
Request.ProxyConnection := 'Keep-Alive';
Request.CacheControl := 'no-cache';
try
get('http://yourdomain/api.php',params,resp);
except
exit;
end;
showmessage(UTF8ToString(resp.DataString));
...
params.Free;
resp.Free;
http.close;
http.free;
...
end;