I use XE4 idhttp login to post traditional sina blog, but mmoResultSource. Text without any return code, I think it is login failed, who can help to see what reason, thank you appreciate!
Procedure TForm1. BtnLoginClick (Sender: TObject);
Var
PostData: TStringList;
PostStream: TStringStream;
I: Integer;
StrResultSourceCode LoginStatus: String;
Match: TMatch;
Group: TGroup;
Groups: TGroupCollection;
The begin
Idhttp. Request. Accept:='text/HTML, application/XHTML + XML, */*';
Idhttp. Request. AcceptEncoding:='gzip, deflate';
Idhttp. Request. AcceptLanguage:='useful - TW';
Idhttp. Request. CacheControl:='no - cache;
Idhttp. Request. Connection:='Keep - the Alive;
IdHTTP. Request. ContentType:='application/x - WWW - form - urlencoded';
Idhttp. Request. Host:='mysinablog.com'.
Idhttp. Request. Referer:='http://mysinablog.com/admin.php';
Idhttp. Request. UserAgent:='Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0) ';
PostStream:=TStringStream. Create (' userName='+ UTF8Encode (edtUserName. Text) +' & amp; UserPassword='+ UTF8Encode (edtPassword. Text) +' & amp; Op=Login& Next=');
MmoResultSource. Text:=idhttp. Post (' http://mysinablog.com/admin.php ', postStream);
end;