pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

Release 37

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@80 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby
2008-04-24 07:40:57 +00:00
parent a96a758414
commit 316ed093f8
26 changed files with 3601 additions and 1311 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ldapsend.pas
View File

@@ -1,5 +1,5 @@
{==============================================================================|
| Project : Ararat Synapse | 001.004.000 |
| Project : Ararat Synapse | 001.004.001 |
|==============================================================================|
| Content: LDAP client |
|==============================================================================|
@@ -344,7 +344,9 @@ var
begin
s := Value;
if FIsbinary then
s := EncodeBase64(Value);
s := EncodeBase64(Value)
else
s :=UnquoteStr(s, '"');
inherited Put(Index, s);
end;
@@ -1091,7 +1093,7 @@ begin
while n < i do
begin
u := ASNItem(n, t, x);
a.Add(UnquoteStr(u, '"'));
a.Add(u);
end;
end;
end;