Header einer Bitmap ändern / hinzufügen

[Tumm]

Hi

Um eine Bitmap zu identifizieren würde ich gerne ein bzw. Zwei Zeilen über den Code der Bitmap setzen, u.a. auch damit man sie nicht einfachso mit Paint öffnen kann. Nun hab' ich bisher allerdings nur (recht gute) Erfahrungen mit Stringlists (TStrings). Krieg ich die BMP irgendwie darein?

Tumm

[DGL-luke]

Hallo,

so könnts gehen:

Delphi-Quellcode:

const
  headerstring = 'this bitmap is property of tumm';

procedure EncodeFile(FName: string);
var
  msin, msout: TMemoryStream;
begin
  msin := TMemoryStream.Create;

  msin.LoadFromFile(FName);
  msin.Position := 0;

  msout := TMemoryStream.Create;
  msout.Write(headerstring, length(headerstring));
  msout.CopyFrom(msin,msin.Size);

  msout.SaveToFile(FName);

  msin.Free;
  msout.Free;
end;

function GetDecodedFile(FName: string): TMemoryStream;
var
  mstmp: TMemoryStream;
begin
  mstmp := TMemoryStream.Create;
  mstmp.LoadFromFile(FName);

  mstmp.Position := length(headerstring);

  Result := TMemoryStream.Create;
  Result.CopyFrom(mstmp, mstmp.Size-mstmp.Position);

  mstmp.Free;
end;

Informier dich am Besten über die TStream-Descendants.