I have now this DN.fsc
var
PasswordBuffer : TStrings;
Procedure OnCreate;
begin
PasswordBuffer := TStringList.Create;
end;
procedure OnDestroy;
begin
PasswordBuffer.free;
end;
procedure getAccounts;
var
thisAccount : String;
currentAccount : String;
i : integer;
begin
try
thisAccount := trim(copy(_gBuff,4,$E));
PasswordBuffer.loadFromFile(_gCustomDir+'DN_Passwords.txt');
for i:= 0 to PasswordBuffer.count-1 do begin
currentAccount := trim(copy(HStr(passwordBuffer[i]),4,$E));
if strcmp(lowercase(thisAccount),lowercase(currentAccount)) then begin
_gOutBuff := HStr(PasswordBuffer[i]);
exit;
end;
end;
except
Writelogln(ExceptionMessage);
end;
updateFile;
end;
procedure updateFile;
begin
writelogln('Account not found / file not found');
PasswordBuffer.Add(buftohex(_gBuff));
PasswordBuffer.SafeToFile(_gCustomDir+'DN_Passwords.txt');
end;
begin
if (_gAbsNumPkt = 2) and (not _gFromServ) then begin
getAccounts;
end;
end.
but wp sais me that somethink wrong with PasswordBuffer.SafeToFile(_gCustomDir+'DN_Passwords.txt');
i dont find any error i dont get the DS_passwords.txt file. what i make wrong?
