冒険の書の作成の時に古いCookieを削除するようにした。

[gikonavigoeson/gikonavi.git] / Encrypt / UBase64.pas

diff --git a/Encrypt/UBase64.pas b/Encrypt/UBase64.pas
index 4337a7c..a33946d 100644 (file)
--- a/Encrypt/UBase64.pas
+++ b/Encrypt/UBase64.pas
@@ -12,6 +12,7 @@ procedure HogeBase64Decode(inputStream, outputStream: TStream); overload;
 
 function HogeBase64Encode(const inputStr: string): string; overload;
 function HogeBase64Decode(const inputStr: string): string; overload;
+function HogeBase64Encode(inputArray: array of Byte): string; overload;
 
 implementation
 
@@ -148,4 +149,19 @@ begin
   inputStream.Free;
 end;
 
+function HogeBase64Encode(inputArray: array of Byte): string; overload;
+var
+  inputStream: TMemoryStream;
+  outputStream: TStringStream;
+begin
+  inputStream := TMemoryStream.Create;
+  inputStream.WriteBuffer(inputArray, Length(inputArray));
+  inputStream.Position := 0;
+  outputStream:= TStringStream.Create('');
+  HogeBase64Encode(inputStream, outputStream);
+  result := outputStream.DataString;
+  outputStream.Free;
+  inputStream.Free;
+end;
+
 end.