TFileStream

ups...
var
Chunk : TChumk => Chunk : TChunk3DS

Du kan enten sætte position eller bruge seek() til at søge ud lige før det du vil læse også bruge Read();

Read(MyInt,sizeof(Integer));

resultatet står så i MyInt som er af typen Integer

/Martin

Hvordan søger jeg med seek() - jeg ved nemlig ikke hvilken position de forskelleige adresse har.
Og hvordan får jeg MyInt noget læseligt?

Hvis du gider at lave et eksempel? :-))

Du SKAL kende en position, ellers går den ikke. Myint kommer til at indeholde den integer der står i filen på det sted hvor du læser.

Måske jeg får tid senere *S*

hmmm... hvad er fordelen lige med seek() hvis man ikke kan søge med den? Det vil sige jeg bliver nødt til at benytte en repeat lykke til min søgning?

takker :-))

Yes, det man kan gøre er at lave en header i sin fil, hvor man skriver de pos. man har brug for

/Martin

Hvad nu hvis det ver en streng jeg ville have i stedet for et tal-værdi?

Procedure AddToStream ( Source , Dest : TStream );
var
  Size : Integer ;
begin
  try
    Source.position := 0 ;
    //Keep the size by puting it in the first byte
    Size := Source.Size ;
    Dest.Write(Size,SizeOf(Integer));
    Dest.CopyFrom(Source,0);
  except
  end;
end;

Procedure GetFromStream ( Source , Dest : TStream ; Index : Integer  );
Var
  Size , I : Integer ;
begin
  Dest.Position:=0;
  Source.Position := 0 ;
  For i := 0 to index-1 do begin
    Source.Read(Size,SizeOf(Integer));
    Source.Position := Source.Position + Size ;
  end;
  // if where all the way up the file pointer then someting went wrong :(
  if Source.position = Source.Size then Raise EAccessViolation.Create(\'Unknown File\') ;
  // Get the desired file size

  Source.Read(Size,SizeOf(Integer));
  // Clear Dest Buffer
  Dest.Position := 0 ;
  Dest.Size := 0 ;

  if (Size>0) and (Size<=Source.size) then
    Dest.CopyFrom(Source,Size);
  Dest.Position := 0 ;
end;

hmmm jeg læste lidt forkert..

troede du ville gemme og indlæse en stykke af en fil..

Lav en form med en knap på og lave følgende kode :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// helper functions
function GetStr(AStream: TStream): String;
VAR
  Len : Integer;
begin
  AStream.Read(Len,SizeOf(Len));
  Result := \'\';
  if Len > 0 then
  begin
      SetLength(Result,Len);
      AStream.Read(Result[1],Len);
  end;
end;

procedure PutStr(AStr: String; AStream: TStream);
VAR
  Len : Integer;
begin
  Len := Length(AStr);
  AStream.Write(Len,SizeOf(Len));
  if Len > 0 then AStream.Write(Astr[1],Len);
end;

function GetInt( aStream : TStream ) : Integer;
begin
  AStream.Read(Result,SizeOf(Result));
end;

procedure PutInt( aInt : Integer; AStream : TStream );
begin
  AStream.Write(aInt,SizeOf(aInt));
end;

function GetFloat( aStream : TStream ) : Double;
begin
  AStream.Read(Result,SizeOf(Result));
end;

procedure PutFloat( aFloat : Double; AStream : TStream );
begin
  AStream.Write(aFloat,SizeOf(aFloat));
end;

function GetStream( aStream : TStream ) : TStream;
VAR
  Len : Integer;
begin
  Result := TMemoryStream.Create;
  AStream.Read(Len,SizeOf(Len));
  if Len > 0 then Result.CopyFrom(aStream,Len);
  Result.Position := 0;
end;

procedure PutStream( aValue,aStream : TStream );
VAR
  Len : Integer;
begin
  Len := aValue.Size;
  AStream.Write(Len,SizeOf(Len));
  aValue.Position := 0;
  AStream.CopyFrom(aValue,Len);
end;

procedure TForm1.Button1Click(Sender: TObject);
VAR
  F : TFileStream;
  I : Integer;
  S : String;
begin
  F := TFileStream.Create(\'MyTest.dat\',fmCreate);
  I := 15;
  S := \'Hest\';
  PutInt(I,F);
  PutStr(S,F);
  F.Free;
  F := TFileStream.Create(\'MyTest.dat\',fmOpenRead);
  ShowMessageFmt(\'%d %s\',[GetInt(F),GetStr(F)]);
  F.Free;
end;

end.

/Martin

har dog ikke helt fundet ud af det endnu, men det er vist tid til at lukke dette spørgsmål...