> 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: [EMAIL PROTECTED]
http://www.ararat.cz/synapse/ - Ararat Synapse - TCP/IP Lib.
-------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
