TByteSOAPArray vs. TByteDynArray

[Samashy]

Hallo,

ich versuche ein bestehendes Tool auf 64Bit hochzuziehen.
Das Tool füttert einen Restservice mit Dateien. In der 32Bit Variante forderte der Webservice:

Code:

const content: TByteDynArray

und in 64

Code:

const content: TByteSOAPArray

Mit dieser Funktion:

Code:

function FileToByteArray( const FileName : string ) : TByteDynArray; stdcall;
  const BLOCK_SIZE=1024;
  var BytesRead, BytesToWrite, Count : integer;
    F : FIle of Byte;
    pTemp : Pointer;
  begin
    AssignFile( F, FileName );
    Reset(F);
    try
      Count := FileSize( F );
      SetLength(Result, Count );
      pTemp := @Result[0];
      BytesRead := BLOCK_SIZE;
      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;
      end;
  finally
    CloseFile( F );
  end;
 end;

hatte ich bisher die Datei in das Array geschrieben.

Wie muss ich diese Funktion umschreiben?

[DeddyH]

TByteSOAPArray
Wenn ich das richtig sehe, musst Du nur den Rückgabetypen ändern.

[Samashy]

Sorry das habe ich vergessen zu schreiben:
Das habe ich probiert, aber dann kommt ein i/o 998 Fehler.
---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt xxx ist eine Exception der Klasse EInOutError mit der Meldung 'E/A-Fehler 998' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

[DeddyH]

An welcher Stelle knallt es denn? Ich glaube eher nicht, dass es am Rückgabetypen liegt. Hast Du mal versucht, die alten Pascal-Routinen (AssignFile, BlockRead, etc.) durch Streams zu ersetzen?

[Samashy]

Nein leider nicht, mit Streams habe ich noch nichts gemacht.

es knallt in der While-Schleife bei der zweiten Runde

Code:

 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;
      end;

Speziell bei der Zeile:

Code:

 BlockRead(F, pTemp^, BytesToWrite , BytesRead );

[Der schöne Günther]

Ich versuche die Logik erst gar nicht zu verstehen, aber dass LongInt auf Windows immer 4 Byte sind (während Pointer halt entweder 4 oder 8 Byte sind) ist dir klar, oder?

[Samashy]

Danke, habe auf Int64 umgestellt

Werde mich aber zusätzlich mal mit FileStream beschäftigen