SchredderProg (mit source) gesucht!

[MrKnogge]

dann must du eben selbst mal bei sourceforge suchen, mein link war ja nur eins von vielen...

[HW764]

Kann mir niemand ein Link geben?

[Luckie]

Zitat von HW764:

Kann mir niemand ein Link geben?

Dir wurden bereits Links gegeben. Und auch anregungen wo nach und wie man bei Google und hier in der Delphipraxis suchen kann.

Aber wie wäre es zum Beispiel hier mit: http://www.delphipraxis.net/internal...atei+l%F6schen oder hier sogar mit Code: http://www.delphipraxis.net/internal...atei+l%F6schen

Gefunden über datei löschen. Es gibt wohl sogar noch mehr Beispiele mit Sourcen. Such einfach mal.

[HW764]

Easydel ist ohne source. Und der andere code hat statt die date gelöscht sie 5 GB gross gemacht!!!

[Mirilin]

Dann fang doch mal hiermit an.

mfg Tobias

[HW764]

Wie muss ich den code ändern dass er die datei ca 5 mal überschreibt?

[Meflin]

du lässt einfach das erase weg und fürst das ganze in einer schleife aus, nach der schliefe dann das erase

[Luckie]

Zitat von HW764:

Easydel ist ohne source. Und der andere code hat statt die date gelöscht sie 5 GB gross gemacht!!!

Hallo? Wie wäre es denn mal mit selber programmieren? Wie es geht hat man dir gesagt, Sourcen an denen du dich orientieren kannst wiurden dir auch gegeben. Und wenn du nicht in dr Lage bist es selber zu programmieren und den Source haben willst und dir die Freewareangebote nicht zu sagen, dann musst du es dir wohl für Geld programmieren lassen.

[Mirilin]

Was hast Du denn bis jetzt abgeändert? Eigeninitiative ?

mfg Tobias

[Ultimator]

Probier das doch mal so:

Delphi-Quellcode:

procedure TForm1.ShrederFile(Wieoft:Integer); 
const Buffer = 1024; 
var 
  arr: array [1..Buffer] of byte; 
  fi: file; 
  i, n, Z: integer; 
begin 
Z:=0
if OpenDialog1.Execute then 
  begin 
    repeat 
    AssignFile(fi, OpenDialog1.FileName); 
    Reset(fi, 1); 
    n := FileSize(fi); 
    FillChar(arr, SizeOf(arr), #0); 
    for i := 1 to n div Buffer do 
    begin 
      BlockWrite(fi, arr, n mod Buffer); 
    end; 
    CloseFile(fi); 
    Erase(fi); 
  end; 
 inc(Z);
until Z=Wieoft;
end;

Ich habs zwar jetzt nicht getestet, müsste aber gehen.

EINEGNINITIATIVE

[edit]OH MEIN GOTT! Bin ich heut wieder langsam...[/edit]