提交: 246ca6a2a767b86c11e98967305a8d69fae41aa0 - gikonavi (git)

ギコナビ

Commit MetaInfo

• 修订版: 246ca6a2a767b86c11e98967305a8d69fae41aa0 (tree)
• 时间: 2011-03-04 00:17:19
• 作者: h677 <h677>
• Commiter: h677

Log Message

ascii領域しか見てないけど、Euc2JISするように修正

更改概述

• modified: Belib.pas

差异

--- a/Belib.pas
+++ b/Belib.pas
@@ -215,6 +215,7 @@ begin
 						MakeError(FSession, ERROR_INVALID_DATA)
 					else begin
                         body := Buf;
+                        body := EUCtoSJIS(body);    // 2byte•¶Žš‚Ì•”•ª‚ÍŽg‚í‚È‚¢‚¯‚Ç”O‚Ì‚½‚ß
                         FSession.FDMDM := Copy(body, Pos('"DMDM=', body) + 6, Length(body));
                         FSession.FDMDM := Copy(FSession.FDMDM, 1, Pos(';', FSession.FDMDM) - 1);
                         FSession.FMDMD := Copy(body, Pos('"MDMD=', body) + 6, Length(body));