X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=Belib.pas;fp=Belib.pas;h=86bfdd787da6702a329c1c2df1d85bfb8fd2395e;hb=246ca6a2a767b86c11e98967305a8d69fae41aa0;hp=bbf3cda34c90fd50a8b457853c22913b52f95e95;hpb=081a3c08cc2b390a0f0752d90153457772ef0af1;p=gikonavigoeson%2Fgikonavi.git diff --git a/Belib.pas b/Belib.pas index bbf3cda..86bfdd7 100644 --- 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));