mehr hab ich noch nicht. Ich bin erst noch ein bischen am Testen.
Delphi-Quellcode:
procedure LoadFilestream(fname: string);
var
stream: TFilestream;
a:integer;
begin
stream:=TFileStream.Create(fname, fmOpenRead or fmShareExclusive);
Stream.Read(a,16);
showmessage(inttostr(a));
stream.destroy;
end;
procedure SaveFileStream(filename: string);
var
stream: TFilestream;
a:integer;
begin
stream:=TFileStream.Create(Filename,fmcreate or fmShareExclusive);
a:=213213;
stream.Write(a,16);
stream.Destroy;
end;
Beim Aufruf bin ich mir sicher, dass da nichts komisches reinkommen kann.
Das ist bis jetzt alles und ich seh keinen Fehler
