Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Belib.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by h677, Tue Feb 22 13:37:51 2011 UTC revision 1.2 by h677, Thu Mar 3 15:17:19 2011 UTC
# Line 215  begin Line 215  begin
215                                                  MakeError(FSession, ERROR_INVALID_DATA)                                                  MakeError(FSession, ERROR_INVALID_DATA)
216                                          else begin                                          else begin
217                          body := Buf;                          body := Buf;
218                            body := EUCtoSJIS(body);    // 2byte文字の部分は使わないけど念のため
219                          FSession.FDMDM := Copy(body, Pos('"DMDM=', body) + 6, Length(body));                          FSession.FDMDM := Copy(body, Pos('"DMDM=', body) + 6, Length(body));
220                          FSession.FDMDM := Copy(FSession.FDMDM, 1, Pos(';', FSession.FDMDM) - 1);                          FSession.FDMDM := Copy(FSession.FDMDM, 1, Pos(';', FSession.FDMDM) - 1);
221                          FSession.FMDMD := Copy(body, Pos('"MDMD=', body) + 6, Length(body));                          FSession.FMDMD := Copy(body, Pos('"MDMD=', body) + 6, Length(body));

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26