Einzelnen Beitrag anzeigen

Benutzerbild von ErazerZ
ErazerZ

Registriert seit: 27. Mai 2005
Ort: Baden
315 Beiträge
 
Delphi 2007 Enterprise
 
#7

Re: im HEX-Code geänderte Datei wieder speichern?

  Alt 4. Nov 2008, 20:56
Folgender Code schreibt einfach Hex Zeichen in einer Datei. Wobei zuerst in einem StringList gespeichert wird (hab ich nur jetzt ganz schnell zusammengetippt, natürlich kannst es besser machen wenns magst). Die Zeichen werden danach in einem array von bytes gespeichert und das wird dann in einer Datei geschrieben.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
  n, len: Integer;
  s: string;
  sl: TStringList;
  ba: array of Byte;
  fs: TFileStream;
begin
  len := 0;
  sl := TStringList.Create;
  s := Memo1.Text;
  s := StringReplace(s, '$', '', [rfReplaceAll]);
  s := StringReplace(s, '0x', '', [rfReplaceAll]);
  sl.Delimiter := ' ';
  sl.DelimitedText := s;
  SetLength(ba, sl.Count);
  for n := 0 to sl.Count -1 do
  begin
    ba[n] := StrToInt('$' + sl[n]);
  end;
  sl.Free;
  fs := TFileStream.Create('c:\okay.txt', fmOpenWrite or fmCreate);
  fs.Write(Pointer(ba)^, Length(ba));
  fs.Free;
end;
  Mit Zitat antworten Zitat