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

diff --git a/Belib.pas b/Belib.pas
index bbf3cda..86bfdd7 100644 (file)
--- a/Belib.pas
+++ b/Belib.pas
@@ -215,6 +215,7 @@ begin
                                                MakeError(FSession, ERROR_INVALID_DATA)
                                        else begin
                         body := Buf;
+                        body := EUCtoSJIS(body);    // 2byte\95¶\8e\9a\82Ì\95\94\95ª\82Í\8eg\82í\82È\82¢\82¯\82Ç\94O\82Ì\82½\82ß
                         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));