一段很简单的代码
NMHTTP1.InputFileMode := FALSE;
NMHTTP1.OutputFileMode := FALSE;
NMHTTP1.ReportLevel := Status_Basic;
Edit2.Text='username='+HttpEncode('123')+'&password='+HttpEncode('123');
With NMHTTP1.HeaderInfo do
Begin
Cookie := '';
LocalMailAddress := '';
LocalProgram := '';
Referer := '';
UserID := '';
Password := '';
End;
NMHTTP1.Post(Edit1.Text,Edit2.Text);
Memo1.Text := NMHTTP1.Body;
NMHTTP1.InputFileMode := FALSE;
NMHTTP1.OutputFileMode := FALSE;
NMHTTP1.ReportLevel := Status_Basic;
Edit2.Text='username='+HttpEncode('123')+'&password='+HttpEncode('123');
With NMHTTP1.HeaderInfo do
Begin
Cookie := '';
LocalMailAddress := '';
LocalProgram := '';
Referer := '';
UserID := '';
Password := '';
End;
NMHTTP1.Post(Edit1.Text,Edit2.Text);
Memo1.Text := NMHTTP1.Body;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货