Forum: Object-Pascal / Delphi-Language
Delphi
by endeffects,
14. Okt 2004
ich hab schon ein wenig rumgesucht und folgenden thread gefunden:
http://www.delphipraxis.net/internal_redirect.php?t=1040&highlight=mmf
hast du den code von Christian Seehase auch genutzt?
Forum: Object-Pascal / Delphi-Language
Delphi
by endeffects,
14. Okt 2004
@supermuckl
davon hör ich nun das erste mal, wüßte nicht das es sowas auch gibt
naja ich werds auch nochmal probieren
Forum: Object-Pascal / Delphi-Language
Delphi
by endeffects,
14. Okt 2004
nabends,
ich möchte euch nochmal für eure hilfe und gedult danken,
im großen und ganzen läuft das nun, die 500mb datei
wird innerhalb von ein paar sekunden abgearbeitet,
jetzt muss ich nur noch sicher stellen das strings
die ersetzt werden sollen nicht durch die puffer
größe zerstückelt werden, aber ich denke das bekomm
ich auch alleine hin
Forum: Object-Pascal / Delphi-Language
Delphi
by endeffects,
13. Okt 2004
wahrscheinlich stell ich mich einfach zu dumm an
srcStream.Read(Buffer,ChunkLen);
N:=N-ChunkLen;
DestStream.Write(Buffer,Length(Buffer));
erzeugt auch eine zugriffsverletzung
Forum: Object-Pascal / Delphi-Language
Delphi
by endeffects,
13. Okt 2004
ich nutze doch read & writebuffer ?
Forum: Object-Pascal / Delphi-Language
Delphi
by endeffects,
13. Okt 2004
nein das klappt leider auch noch nicht,
ich hab die abwandlung von jemanden aus einer newsgroup
im orginal sah das ganze so aus:
srcStream.ReadBuffer(PChar(Buffer),ChunkLen);
und
DestStream.WriteBuffer(PChar(Buffer),Length(Buffer));
allerdings ging das ganze so nicht durch den compiler
Forum: Object-Pascal / Delphi-Language
Delphi
by endeffects,
13. Okt 2004
also zur zeit schaut das ganze wie folgt aus:
const
BlockSize = 1024;
var SrcStream, DestStream: TFileStream;
FileName, FileName2, Buffer: String;
N, ChunkLen :integer;
begin
FileName:= 'dump1.txt';
FileName2:= 'dump2.txt';
Forum: Object-Pascal / Delphi-Language
Delphi
by endeffects,
13. Okt 2004
blocksize ist wie folgt deklariert:
const
BlockSize = 1024;
den rückgabewert aus readbuffer kann ich leider
nicht so einfach speichern
Dumplist:= SrcStream.ReadBuffer(Buffer^, Len);
Forum: Object-Pascal / Delphi-Language
Delphi
by endeffects,
13. Okt 2004
naja ich hab leider noch nie so wirklich mit filestreams gearbeitet,
da muss ich erstmal grübeln wie ich da den häppchenportionierer aufsetze
Forum: Object-Pascal / Delphi-Language
Delphi
by endeffects,
13. Okt 2004
ja leider, dafür hat man aber eine 2mb datei in weniger als 1 sekunde abgearbeitet
Forum: Object-Pascal / Delphi-Language
Delphi
by endeffects,
13. Okt 2004
ich hatte es anfangs mit folgendem code probiert
F:=TFileStream.Create(FileName,fmOpenRead);
try
SetLength(Dumplist,F.Size);
F.ReadBuffer(Dumplist,F.Size);
finally
F.Free;
end;