Commit: 950df316ca5f5a4214f6bfa07a0a532040d6b322 - gikonavi (git)

ギコナビ

Commit MetaInfo

• Revisão: 950df316ca5f5a4214f6bfa07a0a532040d6b322 (tree)
• Hora: 2010-07-10 16:52:22
• Autor: h677 <h677>
• Commiter: h677

Mensagem de Log

２ちゃんねるビューアへのログインで、リクエストヘッダを追加

Mudança Sumário

• modified: Dolib.pas
• modified: gikoNavi.res

Diff

--- a/Dolib.pas
+++ b/Dolib.pas
@@ -33,7 +33,7 @@ unit Dolib;
 interface
 
 uses
-	Windows, SysUtils, WinInet;
+	Windows, SysUtils, WinInet, YofUtils;
 
 type
 	TDolibSession = class(TObject)
@@ -227,6 +227,7 @@ var
 	Buf: array[0..4096] of Char;
 	UserInfo: string;
 	UserAgent: string;
+    Header: string;
 	cb: DWORD;
 	Delim: Integer;
 begin
@@ -255,9 +256,11 @@ begin
 			if not Assigned(hRequest) then
 				MakeError(FSession, GetLastError())
 			else begin
-				UserInfo := Format('ID=%s&PW=%s', [ID, Pass]);
+				UserInfo := Format('ID=%s&PW=%s', [HttpEncode(ID), HttpEncode(Pass)]);
+                Header := 'Content-Type: application/x-www-form-urlencoded'#13#10;
 				UserAgent := Format('%s %s', [DOLIB_2CH_UA, ClientUA]) + #13#10;
-				if not HttpSendRequest(hRequest, PChar(UserAgent), DWORD(-1), PChar(UserInfo), Length(UserInfo)) then
+                Header := Header + UserAgent;
+				if not HttpSendRequest(hRequest, PChar(Header), DWORD(-1), PChar(UserInfo), Length(UserInfo)) then
 					MakeError(FSession, GetLastError())
 				else begin
 					if not InternetReadFile(hRequest, @Buf, SizeOf(Buf), cb) then

Binary files a/gikoNavi.res and b/gikoNavi.res differ