[ Tamo Neki @ 06.06.2013. 00:41 ] @
Kako da konvertujem ovaj buffer array of char u string da bih mogao da pozovem funkciju koja ce enkriptovati buffer? Code: function RC4(Expression, Password: string): string; procedure TForm1.CopyFileWithProgressBar1(Source, Destination: string); var FromF, ToF: file of byte; Buffer: array[0..4096] of char; NumRead,i: integer; FileLength: longint; begin AssignFile(FromF, Source); reset(FromF); AssignFile(ToF, Destination); rewrite(ToF); FileLength := FileSize(FromF); with Progressbar1 do begin Min := 0; Max := FileLength; while FileLength > 0 do begin BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead); Buffer := RC4(Buffer, 'key'); //Incompatible types: 'Array' and 'String' FileLength := FileLength - NumRead; BlockWrite(ToF, Buffer , NumRead); Position := Position + NumRead; end; CloseFile(FromF); CloseFile(ToF); end; end; Ili ako neko zeli moze da postavi primer enkripcije fajla sa prikazom progres bara? |