pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

+ Base64( refactored ),

Browse Source 
+ Base16 
+ Extendable "AnsiChar" and "WideChar"
+ tests

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@665 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-01-19 17:46:33 +00:00
parent a0f8752046
commit cff1351132
17 changed files with 1485 additions and 506 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
wst/trunk/imp_utils.pas
View File

@ -51,9 +51,9 @@ Type
const AData : Extended
) : string;
function LoadBufferFromFile(const AFileName : string) : TBinaryString;
function LoadBufferFromStream(AStream : TStream) : TBinaryString;
function LoadBufferFromFile(const AFileName : string) : TByteDynArray;
function LoadBufferFromStream(AStream : TStream) : TByteDynArray;
implementation
@ -143,7 +143,7 @@ begin
Result := s
end;
function LoadBufferFromStream(AStream : TStream) : TBinaryString;
function LoadBufferFromStream(AStream : TStream) : TByteDynArray;
var
len : Int64;
begin
@ -152,7 +152,7 @@ begin
if ( len > 0 ) then begin
try
AStream.Seek(0,soBeginning);
AStream.Read(Result[1],len);
AStream.Read(Result[0],len);
except
SetLength(Result,0);
raise;
@ -160,7 +160,7 @@ begin
end;
end;
function LoadBufferFromFile(const AFileName : string) : TBinaryString;
function LoadBufferFromFile(const AFileName : string) : TByteDynArray;
var
locStream : TStream;
begin