Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Samashy,
26. Jul 2021
Danke, habe auf Int64 umgestellt
Werde mich aber zusätzlich mal mit FileStream beschäftigen
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Samashy,
26. Jul 2021
Nein leider nicht, mit Streams habe ich noch nichts gemacht.
es knallt in der While-Schleife bei der zweiten Runde
while (BytesRead = BLOCK_SIZE ) do
begin
BytesToWrite := Min(Count, BLOCK_SIZE);
BlockRead(F, pTemp^, BytesToWrite , BytesRead );
pTemp := Pointer(LongInt(pTemp) + BLOCK_SIZE);
Count := Count-BytesRead;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Samashy,
26. Jul 2021
Hallo,
ich versuche ein bestehendes Tool auf 64Bit hochzuziehen.
Das Tool füttert einen Restservice mit Dateien. In der 32Bit Variante forderte der Webservice:
const content: TByteDynArray
und in 64
const content: TByteSOAPArray
Mit dieser Funktion:
function FileToByteArray( const FileName : string ) : TByteDynArray; stdcall;