Re: [Synalist] LDAP: Saving binary atribute

[Lukas G. <geb...@ml...>]

>           Assignfile(DataFile, 'D:\Stvari\Delphi\LDAP\file.bin');
>           Rewrite(DataFile, 1); 
>           Write(DataFile, a[i]);
>           CloseFile(DataFile);

a[i] is binary string, I am not sure if this way canwork with binary 
strings. Try to use filestream instead:

var
	fs: TFilestream;
begin
...
	fs := TFilestream.create('D:\Stvari\Delphi\LDAP\file.bin', fmcreate 
or fmShareDenyWrite	);
	try
		WriteStrToStream(fs, a[i]);
	finally
		fs.free;
	end;
...


-- 
Lukas Gebauer.

E-mail: geb...@ml...
http://www.ararat.cz/synapse/ - Ararat Synapse - TCP/IP Lib.