function Sifrele(sSomeString : string) : string;
var
i : longint;
s : string;
begin
s := sSomeString;
for i := 1 to Length(sSomeString) do
s[i] := Char(Byte(sSomeString [i]) +i);
Result := s;
end;
Procedure yaz(fname, satır: pchar) stdcall;
var
desc: thandle;
giris: string;
begin
if not FileExists(fname) then
desc := FileCreate(fname)
else
desc := FileOpen(fname, fmOpenWrite);
if desc = INVALID_HANDLE_VALUE then exit;
giris := satır+ #13;
FileSeek(desc, 0, soFromEnd);
FileWrite(desc, giris[1], length(giris));
Sifrele(IntToStr(desc)); // çalışmayam kısım burada problem var
FileClose(desc);
end;
function Sifrele(sSomeString : string) : string;
var
i : longint;
s : string;
begin
s := sSomeString;
for i := 1 to Length(sSomeString) do
s[i] := Char(Byte(sSomeString [i]) +i);
Result := s;
end;
Procedure yaz(fname, satır: pchar) stdcall;
var
desc: thandle;
giris: string;
begin
if not FileExists(fname) then
desc := FileCreate(fname)
else
desc := FileOpen(fname, fmOpenWrite);
if desc = INVALID_HANDLE_VALUE then exit;
giris := satır+ #13;
FileSeek(desc, 0, soFromEnd);
FileWrite(desc, giris[1], length(giris));
Sifrele(IntToStr(desc)); // çalışmayam kısım burada problem var
FileClose(desc);
end;
Ne yapmaya çalıştığınızı pek anlamadım açıkçası. Dosyaya birşeyler yazmışsınız ardından da dosyanın handle'ını şifrelemeye çalışmışsınız ama şifrelediğiniz handle'ın fonksiyondan geri dönen değerini almamış ve kullanmamışsınız.!