TFielStream.seek aber wie ?

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

Hallo,
ich möchte eine bestimen datensatzt auslesen.
schreiben tue ich so:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:

// das funktioniert auch soweit
procedure TMfa.Packe;
var
  Datei:TStream;
  i,len,Size:Integer;
  DateiHeader:String;
  Test:TSearchRec;
  CFTime, EFTime, RFTime:_FileTime;

begin
  Datei := TFileStream.Create(FileName, fmCreate);

  Len:=Dateien.Count;
  Datei.Write(Len, SizeOf(Len));
//  FileTimeToLocalFileTime
  for i:=0 to Dateien.Count-1 do begin
    FindFirst(Dateien.Strings[i], faAnyFile,test);
    FileTimeToLocalFileTime(test.FindData.ftCreationTime, CFTime);
    FileTimeToLocalFileTime(test.FindData.ftLastWriteTime, EFTime);
    FileTimeToLocalFileTime(test.FindData.ftLastAccessTime, RFTime);

    DateiHeader:=Dateien.Strings[i] + ';'
                 + DateTimeToStr(FileTimeToDateTime(CFTime)) + ';'
                 + DateTimeToStr(FileTimeToDateTime(EFtime)) + ';'
                 + DateTimeToStr(FileTimeToDateTime(RFtime)) + ';'
                 + IntToSTr(test.Size) + ';' + FileGetTypeName(Dateien.Strings[i]) + ';' + 'PositionA' + ';' + 'PositionE';
    Len:=StrLen(PChar(DateiHeader));
    Datei.Write(Len, SizeOf(Len));
    Datei.Write(PChar(DateiHeader)^,Len);
    DateiHeader:='';
  end;
  Datei.Free;  
end;

// lesen wollte ich es so machen
procedure TMFa.Entpacke(Index:Integer);
var
  Datei:TStream;
  len:Integer;
  DateiHeader:String;
begin
  Datei := TFileStream.Create(FileName, fmOpenRead);
  Datei.Read(Len, SizeOf(Len)); // Länge für dateiinfo auslesen
  SetLength(DateiInfo,len); // länge setzen

  Datei.Seek(Datei.Position+index+1,soFromBeginning);

//  ShowMessage(IntToStr(Datei.Position));
//  exit;
  Datei.Read(Len, SizeOf(Len)); // länge für den dateiheader einlesen
  SetLength(DateiHeader,Len); // Header länge setzen

  Datei.Read(PChar(DateiHeader)^, Len); // header ein lesen
  ShowMessage(DateiHeader);

{  DateiInfo[index].FileName:=GetToken(DateiHeader,';',1);
  DateiInfo[index].CreateDateTime:=StrToDateTime(GetToken(DateiHeader,';',2));
  DateiInfo[index].usesDateTime:=StrToDateTime(GetToken(DateiHeader,';',3));
  DateiInfo[index].WriteusesDateTime:=StrToDateTime(GetToken(DateiHeader,';',4));
  DateiInfo[index].FileSize:=StrToInt(GetToken(DateiHeader,';',5));
  DateiInfo[index].FileDes:=GetToken(DateiHeader,';',6);}

  Datei.Free;
end;

allerdinks gibt es ein fehlermeldung "zu wenig arbeitspeicher"
kann mir jemmand sagen wie ich mit seek arbeiten muss damit es funktioniert ???

_________________
MFG
Michael Springwald, "kann kein englisch...."

AndyB · Beiträge: 1173 Erhaltene Danke: 14 RAD Studio XE2

Dein Einlese Konzept passt nicht zur Schreibfunktion. Zudem hast du ein Speicherleck, da du den mit FindFirst reservierten Speicher nicht mit FindClose wieder frei gibst.

_________________
Ist Zeit wirklich Geld?

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

habe ich der schreib funktion hinzugefügt.
und warum geht das lesen nicht so wie ich es haben wollte ?
wenn ich alles per forschleife auslese geht es prima nun wollte ich gerne nur einen bestiemmten eintrag auslesen, aber wie geht das ?

_________________
MFG
Michael Springwald, "kann kein englisch...."

Tryer · Beiträge: 226 Erhaltene Danke: 7

Das lesen funktioniert nicht weil Du versuchst direkt an eine Stelle zu springen die Du garnicht genau kennst.
Um das Element mit dem Index zu erreichen must Du halt immer wieder die Länge des nächsten Eintrags auslesen und dann um diese Länge weiterspringen. Dann wieder auslesen usw. bis Du "Index"-mal gesprungen bist.

MfG,
Tryer

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

ich habe es jetzt so versucht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:

procedure TMfa.Packe;
var
  Datei:TStream;
  i,len,Size:Integer;
  DateiHeader:String;
  Test:TSearchRec;
  CFTime, EFTime, RFTime:_FileTime;
  DL:String;
begin
  Datei := TFileStream.Create(FileName, fmCreate);
  Datei.seek(100,soFromBeginning);
  Len:=Dateien.Count;
  Datei.Write(Len, SizeOf(Len));

  for i:=0 to Dateien.Count-1 do begin
    FindFirst(Dateien.Strings[i], faAnyFile,test);
    FileTimeToLocalFileTime(test.FindData.ftCreationTime, CFTime);
    FileTimeToLocalFileTime(test.FindData.ftLastWriteTime, EFTime);
    FileTimeToLocalFileTime(test.FindData.ftLastAccessTime, RFTime);

    DateiHeader:=Dateien.Strings[i] + ';'
                 + DateTimeToStr(FileTimeToDateTime(CFTime)) + ';'
                 + DateTimeToStr(FileTimeToDateTime(EFtime)) + ';'
                 + DateTimeToStr(FileTimeToDateTime(RFtime)) + ';'
                 + IntToSTr(test.Size) + ';' + FileGetTypeName(Dateien.Strings[i]) + ';' + 'PositionA' + ';' + 'PositionE';
    Len:=StrLen(PChar(DateiHeader));
    dl:=dl + IntTostr(Datei.Position) + ',' + InttoStr(Len) + '|' ;
    Datei.Write(Len, SizeOf(Len));
    Datei.Write(PChar(DateiHeader)^,Len);

    DateiHeader:='';
  end;
  len:=StrLen(PChar(DL));
  Datei.seek(0,soFromBeginning);
  Len:=StrLen(PChar(DL));
  Datei.Write(Len, SizeOf(Len));
  Datei.Write(PChar(dl)^, len);

  Datei.Free;
  FindClose(test);
end;

procedure TMFa.Entpacke(Index:Integer);
var
  Datei:TStream;
  len:Integer;
  DateiHeader:String;
  DL:String;
begin
  Datei := TFileStream.Create(FileName, fmOpenRead);

  Datei.Read(Len, SizeOf(Len)); // die länge für DL auslesen
  SetLength(DL,len); // länge setzen für DL
  Datei.Read(PChar(DL)^, Len); // DL einlesen

  Datei.seek(100,soFromBeginning);
  Datei.Read(Len, SizeOf(Len)); // Länge für dateiinfo auslesen
  SetLength(DateiInfo,len); // länge setzen
  Datei.seek(StrToInt(GetToken(GetToken(DL,'|', index),',',1)),soFromBeginning);


  len:=StrToInt(GetToken(GetToken(DL,'|', index),',',2));
  SetLength(DateiHeader,Len); // Header länge setzen
  Datei.Read(PChar(DateiHeader)^, Len); // header ein lesen
  ShowMessage(DateiHeader);

  {DateiInfo[index-1].FileName:=GetToken(DateiHeader,';',1);
  DateiInfo[index-1].CreateDateTime:=StrToDateTime(GetToken(DateiHeader,';',2));
  DateiInfo[index-1].usesDateTime:=StrToDateTime(GetToken(DateiHeader,';',3));
  DateiInfo[index-1].WriteusesDateTime:=StrToDateTime(GetToken(DateiHeader,';',4));
  DateiInfo[index-1].FileSize:=StrToInt(GetToken(DateiHeader,';',5));
  DateiInfo[index-1].FileDes:=GetToken(DateiHeader,';',6);}

  Datei.Free;
end;

jetzt mache ich das so:
an pos 0 werden die größen und die länge abgespeichert von den einzelnen datenstätzen.
und beim auslesen soll dahin gegangen werden.
Aber das geht auch nicht

kann mir wer sagen wie ich das richtig machen könnte ?
das format soll jetzt nämlich so aussehen:

Anfangposition,größe| und soweiter
anzahl der dantenstäze(4)
Dateiname + ';' + .......
aber irgenwie klappt das nicht so wie ich es haben will

habe auch erst gestern mit tfilestream angefangen.

_________________
MFG
Michael Springwald, "kann kein englisch...."

Tryer · Beiträge: 226 Erhaltene Danke: 7

Wie wär´s mal mit nem einfachen Tutorial ?

Mit einer Indexliste am Anfang machst Du es Dir nur noch schwerer, so wird das nichts.

Tip für später: Statt n Byte auszulesen kann man auch n Byte ab der aktuellen Position weiterspringen, man erreicht immer die gleiche Position.
Wenn man das mit einer bestimmten Häufigkeit machen will muss man halt mitzählen.

MfG,
Tryer

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

diese tutor kenne ich schon, das war die basis für die idee.......
das prinzip habe ich ja verstanden nur was noch fehlt sind die idee wie ich es am besten umsetzten könnte, das ziel soll es sein:
das man ein header hat aus den man nun bestimmte zeilen auslesen kann und mehr will ich ja eingetnlich garnicht, dachte nicht das es so schwer wird das umzusetzen.

_________________
MFG
Michael Springwald, "kann kein englisch...."

Tryer · Beiträge: 226 Erhaltene Danke: 7

Dann fang mit der einfacheren Variante an:
Lies vom Prinzip erstmal alles aus was Du vorher auch reingeschrieben hast.
Dabei liest Du dann halt nicht bis "Dateien.Count" sondern nur bis "Index".
Spätere Optimierungen sind dann immer noch möglich.

MfG,
Tryer

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

wie meinst du das ?
komme irgendwie nicht gans mit

_________________
MFG
Michael Springwald, "kann kein englisch...."

Tryer · Beiträge: 226 Erhaltene Danke: 7

Das simpelste wäre wohl wenn Du das Tutorial erstmal vollständig durcharbeitest, ohne am Algorithmus was zu ändern.
Wenn Du es dann verstanden hast (nicht blos abgetippt), dann kannst Du Dich an schwierigere Probleme heranwagen.
Nimm Also z.B. eine Listbox und lege die inhalte in einem eigenen Stream ab um sie dann wieder zu laden, ohne auf LoadfromStream / SaveToStream zurückzugreifen.

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Speichern:
 - Anzahl der Elemente in den Stream schreiben
 - von 0 bis Anzahl - 1:
    - Länge des Strings in den Stream schreiben
    - String in den Stream, schreiben

Laden:
  - Anzahl der Elemente auslesen
  - von 0 bis Anzahl - 1:
    - Länge des Strings auslesen
    - String auslesen
    - String in die Listbox eintragen

MfG,
Tryer

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

ich habe ja das prinzip verstanden und das tutor auch durchgearbeitet.
und load.... und save... nutze ich auch garnicht davonmal abgesehen:)
naja mal sehen ob ich es noch schaffe:)

_________________
MFG
Michael Springwald, "kann kein englisch...."

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

hat sich erledigt, habe es hinbekommen:)

muss jetzt nur noch den datei inhalt hintendran packen und fertig, dafür überlege ich mir z.Z. noch ein brauchbare funktion.

_________________
MFG
Michael Springwald, "kann kein englisch...."

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme