delphi 4 - hexdaten aus dateien lesen

[zed]

hi,
ich möchte eine textdatei hexadecimal modifizieren:
wenn in der datei ein R steht möchte ich dass delphi 62 liest.
wie kann ich eine datei so lesen oder kennt ihr ein gutes tutorial
danke

 

[Dario Linsky]

nimm doch einfach einen TFileStream. damit kannst du einzelne zeichen einer (text-)datei einlesen.
dann musst du nur noch den hexadezimalwert von dem char rausfinden und das wars.

 

[zed]

hey thanks

...dann muss ich nur noch rausfinden wie so ein TFileStream funzt, aber dat krieg ich schon hin
bis dann

 

[Dario Linsky]

muesste funktionieren:

procedure TForm1.Button1Click(Sender: TObject);
var
cnt: Integer;
fs: TFileStream;
b: Byte;
i: Integer;
begin
if (OpenDialog1.Execute) and (OpenDialog1.FileName <> '') then begin
fs := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
end;
cnt := 0;
while cnt < fs.Size do begin
fs.Read(b, 1);
i := Ord(b);
Memo1.Lines.Text := Memo1.Lines.Text + IntToHex(i, 1);
cnt := fs.Position;
Application.ProcessMessages;
end;
fs.Free;
end;

hoffe, ich hab dich richtig verstanden.

 

[zed]

danke!! hätte nich gedacht dass du mir so nett *lachwieeinkleinesschulmädchen* helfen würdest, aber was ich im obigen thread geschrieben habe war nicht exakt das was ich wollte, aber ich habe mein encode/decode programm bereits fertiggestellt.
(trotzdem danke)


thhp://www25.brinkster.com/onerror/lil_crypto.css
musste in exe umbenennen(webspace)

aber wie ich sagte: das krieg ich schon hin. ich bin ja nicht neu im proggen, aber neu in delphi, though vielen dank!
man sieht sich!