moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-29 04:22:16 -05:00
Code Issues Releases Wiki Activity

left some debug info

Browse Source
This commit is contained in:
Raymond 2010-05-19 22:58:52 +02:00
parent c3cb6ec1ba
commit 363e7d394f
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Units/MMLCore/dtm.pas
View File

@ -174,7 +174,6 @@ begin
begin begin
if ii < 9 then if ii < 9 then
raise Exception.CreateFMT('Invalid DTM-String passed to StringToDTM: %s',[s]); raise Exception.CreateFMT('Invalid DTM-String passed to StringToDTM: %s',[s]);
Writeln(copy(s,2,ii-1));
Source := Base64DecodeStr(copy(s,2,ii-1)); Source := Base64DecodeStr(copy(s,2,ii-1));
i:= PLongint(@source[1])^; //The 4 four bytes should contain the dest len! i:= PLongint(@source[1])^; //The 4 four bytes should contain the dest len!
if i < 1 then if i < 1 then
@ -356,7 +355,6 @@ begin
begin begin
setlength(result,Destlen + SizeOf(Integer)); setlength(result,Destlen + SizeOf(Integer));
PInteger(@result[1])^ := len; PInteger(@result[1])^ := len;
Writeln(len);
Move(bufferstring[0],result[1 + sizeof(integer)],Destlen); Move(bufferstring[0],result[1 + sizeof(integer)],Destlen);
//We now have Size + Compressed data.. Lets Base64Encrypt it! //We now have Size + Compressed data.. Lets Base64Encrypt it!
Result := 'm' + Base64EncodeStr(result); Result := 'm' + Base64EncodeStr(result);