Peresident_y
شنبه 28 اسفند 1389, 13:49 عصر
من برای پست مقادیر به یک پیچ php از روش زیر استفاده میکنم و به خوبی برای کارکتر های لاتین کار میکند
مشکل در مورد ارسال پارامترهای فارسی است و هیچ راهی براش پیدا نکردم
ممنون میشم راهنمای کنید
var
lHTTP: TIdHTTP;
lParamList: TStringList;
var
MD5: IMD5;
begin
MD5 := GetMD5;
MD5.Init;
MD5.Update(PAnsiChar(AnsiString('234324324')));
lParamList := TStringList.Create;
lParamList.Clear;
lParamList.Add('username=api');
lParamList.Add('password='+LowerCase(MD5.AsString) );
lParamList.Add('action=addt');
lParamList.Add('firstname='+(IWEdit1.text));
lParamList.Add('lastname='+(IWEdit2.text));
lParamList.Add('companyname='+(IWEdit3.text));
lParamList.Add('email='+(IWEdit4.text));
lParamList.Add('address1='+(IWEdit5.text));
lParamList.Add('address2='+(IWEdit6.text));
lParamList.Add('city='+(IWEdit7.text));
lParamList.Add('state='+(IWEdit7.text));
lParamList.Add('postcode='+(IWEdit8.text));
lParamList.Add('country='+(IWEdit9.text));
lParamList.Add('phonenumber='+AnsiToUtf8(IWEdit10. text));
lParamList.Add('password2='+IWEdit11.text);
lParamList.Add('groupid=2');
lHTTP := TIdHTTP.Create(nil);
try
Result := lHTTP.Post('http://domain.com/includes/api.php',lParamList);
finally
FreeAndNil(lHTTP);
FreeAndNil(lParamList);
end;
مشکل در مورد ارسال پارامترهای فارسی است و هیچ راهی براش پیدا نکردم
ممنون میشم راهنمای کنید
var
lHTTP: TIdHTTP;
lParamList: TStringList;
var
MD5: IMD5;
begin
MD5 := GetMD5;
MD5.Init;
MD5.Update(PAnsiChar(AnsiString('234324324')));
lParamList := TStringList.Create;
lParamList.Clear;
lParamList.Add('username=api');
lParamList.Add('password='+LowerCase(MD5.AsString) );
lParamList.Add('action=addt');
lParamList.Add('firstname='+(IWEdit1.text));
lParamList.Add('lastname='+(IWEdit2.text));
lParamList.Add('companyname='+(IWEdit3.text));
lParamList.Add('email='+(IWEdit4.text));
lParamList.Add('address1='+(IWEdit5.text));
lParamList.Add('address2='+(IWEdit6.text));
lParamList.Add('city='+(IWEdit7.text));
lParamList.Add('state='+(IWEdit7.text));
lParamList.Add('postcode='+(IWEdit8.text));
lParamList.Add('country='+(IWEdit9.text));
lParamList.Add('phonenumber='+AnsiToUtf8(IWEdit10. text));
lParamList.Add('password2='+IWEdit11.text);
lParamList.Add('groupid=2');
lHTTP := TIdHTTP.Create(nil);
try
Result := lHTTP.Post('http://domain.com/includes/api.php',lParamList);
finally
FreeAndNil(lHTTP);
FreeAndNil(lParamList);
end;