Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Belib.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
| |