diff options
| author | George Hazan <george.hazan@gmail.com> | 2013-06-17 21:57:16 +0000 |
|---|---|---|
| committer | George Hazan <george.hazan@gmail.com> | 2013-06-17 21:57:16 +0000 |
| commit | 6c4d35fca373a55252f4bce0bd0102f78eb67037 (patch) | |
| tree | 14041df61249254d4d67a4d0cff411ad59b230e4 /include/delphi | |
| parent | 5ab0462a05c80e52a629255353405d7e5c39e304 (diff) | |
ProtoServiceExists moved to mir_core
all another copies of it removed
git-svn-id: http://svn.miranda-ng.org/main/trunk@5006 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'include/delphi')
| -rw-r--r-- | include/delphi/m_core.inc | 7 | ||||
| -rw-r--r-- | include/delphi/m_helpers.inc | 17 |
2 files changed, 7 insertions, 17 deletions
diff --git a/include/delphi/m_core.inc b/include/delphi/m_core.inc index 0be77bbe48..04801f8702 100644 --- a/include/delphi/m_core.inc +++ b/include/delphi/m_core.inc @@ -519,6 +519,13 @@ function mir_vsntprintf(buffer:pWideChar;count:size_t;fmt:pWideChar;va:va_list): ///////////////////////////////////////////////////////////////////////////////
+// protocol functions
+
+function ProtoServiceExists(const szModule, szName:PAnsiChar):int; stdcall;
+ external CoreDLL name 'ProtoServiceExists';
+
+
+///////////////////////////////////////////////////////////////////////////////
// sha1 functions
type
pmir_sha1_byte_t = ^mir_sha1_byte_t;
diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc index e9bedfd7be..9c3881fe31 100644 --- a/include/delphi/m_helpers.inc +++ b/include/delphi/m_helpers.inc @@ -1,7 +1,5 @@ {$IFDEF M_API_UNIT}
-function ProtoServiceExists(const proto,service: PAnsiChar): int;
-
function CreateVersionString(version:dword;buf:PAnsiChar):PAnsiChar;
function CreateVersionStringPlugin(pluginInfo:PPluginInfoEx;buf:PAnsiChar):PAnsiChar;
function PLUGIN_MAKE_VERSION(a,b,c,d: Cardinal): int;
@@ -90,21 +88,6 @@ function Options_OpenPage(ood:POPENOPTIONSDIALOG):HWND; {$ELSE}
-function ProtoServiceExists(const proto,service: PAnsiChar): int;
-var
- buf:array [0..127] of AnsiChar;
-begin
- if (proto=nil) or (service=nil) then
- begin
- result:=0;
- exit;
- end;
- lStrCpyA(@buf,proto);
- lStrCatA(@buf,service);
- result:=ServiceExists(@buf);
-end;
-
-
function CreateVersionString(version:dword;buf:PAnsiChar):PAnsiChar;
var
vers:array [0..3] of integer;
|