Vorschau und Öffnen von Bilddateien nicht zulassen

[BrotherLui]

Hallo an Alle!

Hier mein 1. Beitrag. Hab nichts passendes im Forum gefunden.

Mein Programm speichert diverse .bmp Dateien. Wie kann ich verhindern, dass die gemachten Bilder nicht geöffnet werden können? Es soll weder die Vorschau noch irgendwelche Dateiinfos angezeigt werden.

Ich hänge ein Bild an bei dem das genau so ist. Irgendwie sollte das ja dann auch möglich sein.


Ich speichere meine Bilder folgendermaßen: Vielleicht könnte man an diesem Punkt ansetzen:

Delphi-Quellcode:

var 
bild : TBitmap;
begin
bild := TBitmap.Create;
// ...
// ...
bild.SaveToFile(installpfad+'test.bmp');

Danke für eure Hilfe.

[mr47]

Je nachdem wie sicher das sein soll, kannst du die Datei verschlüsseln, oder, was nicht so sicher wäre, du könntest die Datei geringfügig verändern!


Gruß mr47


[edit]: Rechtschreibung :wink:

[BrotherLui]

Verschlüsselung. Das ist es!

Hab es mit XOR gelöst. Ist bestimmt nicht das Sicherste aber muss es in meinem Fall auch nicht sein.

Delphi-Quellcode:

function XORCrypt(Password,InputFilePath,OutputFilePath:String):Boolean;
var aktChar: Integer;
   InputFile, OutputFile: File of Byte;
   Buffer:Byte;
begin
  Result := False;

  try
    aktChar := 1;

    AssignFile(InputFile,InputFilePath);
    Reset(InputFile);

    AssignFile(OutputFile,OutputFilePath);
    Rewrite(OutputFile);

    while not Eof(InputFile) do
    begin
      if(aktChar > Length(Password)) then aktChar := 1;
      Read(InputFile,Buffer);
      Buffer := Buffer xor ord(Password[aktChar]);
      Write(OutputFile,Buffer);
      Inc(aktChar);
      Application.ProcessMessages;
    end;
  finally
    CloseFile(InputFile);
    CloseFile(OutputFile);

    Result := True;
  end;
end;

Danke! :hi:

[DGL-luke]

also ich würds mit einem einfachen alog komprimieren. damit hast du zwei vorteile: Ohne weiteres kein zugriff, und verringerte Dateigröße.

(Da fällt mir ein, ich suche ja nach einer vernünftigen Zip-Kompo...)