Forum: Object-Pascal / Delphi-Language
Delphi
by etom291272,
12. Nov 2005
Danke union war wiedermal hammertip
aDateiGr := 0;
for i:=0 to aObjList.Count-1 do
begin
aFs:=TFileStream.Create(aObjList.Strings, fmOpenRead);
try
aDatName:=ExtractFileName(aObjList.Strings);
//aDateiGr:= aDateiGr+aFs.Size+length(aObjList.Strings)+1;
Forum: Object-Pascal / Delphi-Language
Delphi
by etom291272,
12. Nov 2005
hallo union
hier erstmal die funktion StringStrSpeichn
procedure TClDateiTransfer.StringStrSpeichn(ZeichenFolge: String;
ZielStr: TStream);
var i: Integer;
begin
i := Length(ZeichenFolge);
ZielStr.Write(i, sizeof(i));
Forum: Object-Pascal / Delphi-Language
Delphi
by etom291272,
12. Nov 2005
es ist nichts schlimm dran mich hat es nur interessiert ob man den code für den memorystream ändern und damit schneller machen kann oder ob für solche aufgaben generell ein filestream zu empfehlen ist.
Forum: Object-Pascal / Delphi-Language
Delphi
by etom291272,
12. Nov 2005
das heist in meinem fall sollte ich mit filestream arbeiten und die temp datei nachher löschen :?:
Forum: Object-Pascal / Delphi-Language
Delphi
by etom291272,
12. Nov 2005
Tag zusammen
folgender Code lest alle Dateien die sich in der übergebenen Stringlist befinden in einen Stream
der noch anschliessend komprimiert wird.
procedure TClDateiTransfer.ErzStreamObjUbertr(aObjList: TStringList; StatusBar:TStatusBar);
var
aFs:TFileStream;
aTempFs:TFileStream oder TMemorystream;
aDateiGr:Int64;