Hallo,
ich bekomme neuderding bei meinen archiver einen schreib fehler:
die datei sieht nicht so aus wie sie aussehen soll:
der erste teil sollte acci sein(header und der zweite teile nach dem heder sollte bin sein ist er aber nicht:
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:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
|
procedure TArchiver.WriteHeader;
var
i:Integer;
FN:String;
begin
for i:=0 to AI.FileListe.count-1 do begin
FN:=GetToken(AI.FileListe.Strings[i],';',1);
AI.Header.Add( FN + ';' + IntToStr(GetFileSize1(FN)) + ';' + GetToken(AI.FileListe.Strings[i],';',2) + ';' + GetToken(AI.FileListe.Strings[i],';',3)+ ';');
end;
AI.WArchiv.WriteString(AI.Header.Text);
AI.WArchiv.FlushBuffer;
end;
procedure TArchiver.OpenArchiv(ArchivName:TFileName);
var
str:String;
begin
TempDir:=GetExeDir + 'temp\';
AI.Name:=ArchivName;
if AI.Header = NIl then
AI.Header:=TStringList.Create;
if AI.FileListe = NIl then
AI.FileListe:=TStringList.Create;
if AI.A <> NIL then begin
AI.RArchiv.Free;
AI.WArchiv.Free;
AI.A.Free;
end;
if FileExists(AI.Name) = True then begin
AI.A:=TFileStream.Create(AI.Name,fmOpenRead);
AI.A.Position:=0;
AI.RArchiv:=TReader.Create(AI.A,20);
AI.WArchiv:=TWriter.Create(AI.A,20);
AI.WArchiv.Position:=0;
AI.RArchiv.Position:=0;
str:=AI.RArchiv.ReadString;
ReadHeader;
end
else begin
AI.A:=TFileStream.Create(AI.Name,fmCreate);
AI.A.Position:=0;
AI.RArchiv:=TReader.Create(AI.A,20);
AI.WArchiv:=TWriter.Create(AI.A,20);
AI.WArchiv.Position:=0;
AI.RArchiv.Position:=0;
end;
AI.Header_EndPos:=AI.RArchiv.Position;
end;
procedure TArchiver.Packe;
var
i:integer;
Datei:TFileStream;
begin
AI.WArchiv.Position:=0;
AI.WArchiv.WriteString(ASignatur);
WriteHeader;
for i:=0 to AI.FileListe.count-1 do begin
Datei:=TFileStream.Create(GetToken(AI.FileListe.strings[i],';', Integer(FiFileName)),fmOpenRead);
AI.A.CopyFrom(Datei,Datei.Size);
Datei.Free;
end;
end;
|
wo kann da ein fehler auftauchen ?
