Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Kamil,
4. Okt 2003
Da fällt mir noch ein:
Falls du statt ReadBuffer Read nimmst, dann kannst du es so machen:
var
Len: integer;
...
begin
...
while SrcStream.Position < SrcStream.Size do
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Kamil,
4. Okt 2003
if SrcStream.Size-SrcStream.Position>1024 then
Len=1024
else
Len:=SrcStream.Size-SrcStream.Position;
Bin schon ein wenig müde...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Kamil,
3. Okt 2003
var
Len: integer;
...
begin
...
while SrcStream.Position < SrcStream.Size do
begin
Len:=(SrcStream.Size-SrcStream.Position) mod 1025;
SrcStream.ReadBuffer(SrcBuffer^, Len);
EncodeBuffer(SrcBuffer^, DestBuffer^, Len);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Kamil,
3. Okt 2003
In eine cardinal Variable passen nur 32 Bit...
Nimm ein Array:
var
SrcBuffer, DestBuffer: array of byte;
begin
while SrcStream.Position < SrcStream.Size do
begin
SrcStream.ReadBuffer(SrcBuffer, 1024);
EncodeBuffer(SrcBuffer, DestBuffer, 1024);
DestStream.WriteBuffer(DestBuffer, 1024);