From cb4a46e7fbe62d788e66ed6121c717a2d22a4d7c Mon Sep 17 00:00:00 2001
From: watcherhd <watcherhd@e753b5eb-9565-29b2-b5c5-2cc6f99dfbcb>
Date: Thu, 21 Apr 2011 14:14:52 +0000
Subject: svn.miranda.im is moving to a new home!

git-svn-id: http://miranda-plugins.googlecode.com/svn/trunk@7 e753b5eb-9565-29b2-b5c5-2cc6f99dfbcb
---
 delphi/Awkward/utils/utils.pas | 44 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 delphi/Awkward/utils/utils.pas

(limited to 'delphi/Awkward/utils/utils.pas')

diff --git a/delphi/Awkward/utils/utils.pas b/delphi/Awkward/utils/utils.pas
new file mode 100644
index 0000000..8c16e03
--- /dev/null
+++ b/delphi/Awkward/utils/utils.pas
@@ -0,0 +1,44 @@
+unit Utils;
+
+interface
+
+uses windows;
+
+function SaveTemporaryW(ptr:pointer;size:dword;ext:PWideChar=nil):pWideChar;
+function SaveTemporary (ptr:pointer;size:dword;ext:PAnsiChar=nil):PAnsiChar;
+
+implementation
+
+uses common,io;
+
+function SaveTemporaryW(ptr:pointer;size:dword;ext:PWideChar=nil):pWideChar;
+var
+  buf,buf1:array [0..MAX_PATH-1] of WideChar;
+  f:THANDLE;
+begin
+  GetTempPathW(MAX_PATH,buf);
+  GetTempFileNameW(buf,'wat',GetCurrentTime,buf1);
+  ChangeExtW(buf1,ext);
+
+  f:=ReWrite(buf1);
+  BlockWrite(f,pByte(ptr)^,size);
+  CloseHandle(f);
+  StrDupW(result,buf1);
+end;
+
+function SaveTemporary(ptr:pointer;size:dword;ext:PAnsiChar=nil):PAnsiChar;
+var
+  buf,buf1:array [0..MAX_PATH-1] of AnsiChar;
+  f:THANDLE;
+begin
+  GetTempPathA(SizeOf(buf),buf);
+  GetTempFileNameA(buf,'wat',GetCurrentTime,buf1);
+  ChangeExt(buf1,ext);
+
+  f:=ReWrite(buf1);
+  BlockWrite(f,pByte(ptr)^,size);
+  CloseHandle(f);
+  StrDup(result,buf1);
+end;
+
+end.
\ No newline at end of file
-- 
cgit v1.2.3