Swissbit DLL - Diverse Fragen

[DeddyH]

Bei mir sieht das so aus:

Delphi-Quellcode:

// TChunkLength = UINT32
function Callback(const Chunk: PByte; ChunkLength: TChunkLength;
  CallbackData: Pointer): integer; Cdecl;
var
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream(CallbackData);
  Stream.Write(Chunk^, ChunkLength);
  Result := 0;
end;

Anschließend erzeuge ich einen MemoryStream und übergebe diesen als CallbackData an worm_export_tar.

Delphi-Quellcode:

Stream := TMemoryStream.Create;
try
  worm_export_tar(Context, Callback, Stream);
finally
  Stream.Free;
end;